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

Question

有没有办法从 Delphi 7 中的 TWebbrowser 将 PDF 保存到文件中？ 我可以在 Webbrowser 中显示 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;