如何从TWebBrowser获取HTML源代码

Question

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

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

谢谢。

Answer 1

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

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; 

Answer 2

这已经在Embarcadero论坛上多次提出和回答，并发布了大量代码示例。搜索档案。

它的要点是你Navigate()到所需的URL并等待OnDocumentComplete事件触发，然后QueryInterface()的Document属性为IPersistStreamInit接口并调用其save()方法。创建一个TStream对象实例（如TMemoryStream），将其包装在一个TStreamAdapter对象中，然后将该适配器传递给save()。您可以根据需要将TStream加载到TMemo中。

Answer 3

那也是行之有效：

function GetHTML(w: TWebBrowser): String; 
Var 
    e: IHTMLElement; 
begin 
    Result := ''; 
    if Assigned(w.Document) then 
    begin 
    e := (w.Document as IHTMLDocument2).body; 

    while e.parentElement <> nil do 
    begin 
     e := e.parentElement; 
    end; 

    Result := e.outerHTML; 
    end; 
end;