Come posso ottenere il codice sorgente HTML da TWebBrowser

Question

Come posso ottenere il codice sorgente dal componente WebBrowser?

Desidero ottenere il codice sorgente della pagina attiva sul componente WebBrowser e scriverlo su un componente Memo.

Grazie.

Answer 1

È possibile utilizzare l'interfaccia IPersistStreamInit e il metodo save per archiviare il contenuto del Webbrowser in un flusso.

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

Questo è stato chiesto e risposto molte volte nei forum Embarcadero, con molti esempi di codice pubblicati. Cerca negli archivi.

L'essenza di esso è che si Navigate() per l'URL desiderato e attendere l'evento OnDocumentComplete al fuoco, poi QueryInterface() la proprietà Document per l'interfaccia IPersistStreamInit e chiamare il suo metodo save(). Creare un'istanza dell'oggetto TStream, ad esempio TMemoryStream, inserirla in un oggetto TStreamAdapter e quindi passare l'adattatore a save(). È quindi possibile caricare TStream nello TMemo secondo necessità.

Answer 3

che funziona bene ugualmente:

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;