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

发布时间：2020-12-15 04:28:30 所属栏目：大数据来源：网络整理

导读：如何从WebBrowser组件获取源代码？我想在WebBrowser组件上获取活动页面的源代码,并将其写入Memo组件. 谢谢. 解决方法您可以使用 IPersistStreamInit 接口和 save方法将Webbrowser的内容存储在流中. Uses ActiveX;function GetWebBrowserHTML(const WebBrow

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

我想在WebBrowser组件上获取活动页面的源代码,并将其写入Memo组件.

谢谢.

解决方法

您可以使用 IPersistStreamInit接口和 save方法将Webbrowser的内容存储在流中.

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!