¿Cómo puedo obtener el código fuente HTML de TWebBrowser

Question

¿Cómo puedo obtener el código fuente del componente WebBrowser?

Quiero obtener el código fuente de la página activa en el componente WebBrowser y escribirlo en un componente Memo.

Gracias.

Answer 1

Puede utilizar la interfaz IPersistStreamInit y el método save para almacenar el contenido del navegador web en una secuencia.

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

Esto se ha preguntado y respondido muchas veces en los foros de Embarcadero, con muchos ejemplos de códigos publicados. Busque los archivos.

El quid de la cuestión es que Navigate() a la URL deseada y esperar a que el evento OnDocumentComplete al fuego, a continuación, QueryInterface() la propiedad Document para la interfaz IPersistStreamInit y llamar a su método save(). Cree una instancia de objeto TStream, como TMemoryStream, envuélvala en un objeto TStreamAdapter y pase el adaptador a save(). Luego puede cargar el TStream en el TMemo según sea necesario.

Answer 3

Eso funciona bien también:

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;