如何在Delphi7中使用TWebbrowser将URL中的PDF保存为PDF文件？

Question

Is there a way to save a PDF from a TWebbrowser in Delphi 7 to a file? I can display the PDF in the Webbrowser but How do I save it to a locally PDF FIle?

Answer 1

You can save any webpage to a file with TWebbrowser like this:

Uses 
  ActiveX,
  ...

...

procedure TForm1.SaveDocument(AFilename : String);

var 
  Stream : TFileStream;
  StreamAdapter: IStream;
  PersistStreamInit: IPersistStreamInit;

begin
 if not Assigned(Browser.Document) then
  Exit;
 if Browser.Document.QueryInterface(IPersistStreamInit, PersistStreamInit) = S_OK then
  begin
   Stream := TFileStream.Create(AFilename, fmCreate);
   try
    StreamAdapter := TStreamAdapter.Create(Stream);
    PersistStreamInit.Save(StreamAdapter, True);
   finally
    Stream.Free;
   end;
  end;
end;