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

Question

有没有一种方法可以将PDF从Delphi 7中的TWebbrowser保存到文件中？ 我可以在Web浏览器中显示PDF，但是如何将其保存到本地PDF文件中？

Answer 1

您可以使用TWebbrowser将任何网页保存到文件中，如下所示：

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;