delphi - 如何从 TWebBrowser 获取 HTML 源代码

Question

如何从 WebBrowser 组件获取源代码？

我想获取 WebBrowser 组件上事件页面的源代码并将其写入 Memo 组件。

谢谢。

Answer 1

您可以使用IPersistStreamInit接口(interface)和 save方法将 Web 浏览器的内容存储在 Stream 中。

Uses 
  ActiveX;

function GetWebBrowserHTML(const WebBrowser: TWebBrowser): String;
var
  LStream: TStringStream;
  Stream : IStream;
  LPersistStreamInit : IPersistStreamInit;
begin
  if not Assigned(WebBrowser.Document) then exit;
  LStream := TStringStream.Create('');
  try
    LPersistStreamInit := WebBrowser.Document as IPersistStreamInit;
    Stream := TStreamAdapter.Create(LStream,soReference);
    LPersistStreamInit.Save(Stream,true);
    result := LStream.DataString;
  finally
    LStream.Free();
  end;
end;