如何從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;