如何从TWebBrowser获取HTML源代码？ [英] How can I get HTML source code from TWebBrowser

问题描述

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

我想在WebBrowser组件上获取活动页面的源代码，并将其写入Memo组件。 p>

谢谢。

解决方案

您可以使用 IPersistStreamInit 界面和保存方法来存储Web浏览器在Stream中的内容。

 使用
 ActiveX; 
 
函数GetWebBrowserHTML（const WebBrowser：TWebBrowser）：String; 
 var 
 LStream：TStringStream; 
流：IStream; 
 LPersistStreamInit：IPersistStreamInit; 
 begin 
如果没有分配（WebBrowser.Document）然后退出; 
 LStream：= TStringStream.Create（''）; 
 try 
 LPersistStreamInit：= WebBrowser.Document as IPersistStreamInit; 
 Stream：= TStreamAdapter.Create（LStream，soReference）; 
 LPersistStreamInit.Save（Stream，true）; 
 result：= LStream.DataString; 
 finally 
 LStream.Free（）; 
结束
结束
  

How can I get source code from WebBrowser component?

I want to get source code of active page on WebBrowser component and write it to a Memo component.

Thanks.

解决方案

You can use the IPersistStreamInit Interface and the save method to store the content of the Webbrowser in a 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;

这篇关于如何从TWebBrowser获取HTML源代码？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！