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

Question

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