Cómo utilizar el control WebBrowser para obtener el código fuente de una página web

Para utilizar el control WebBrowser para obtener el código fuente de una página web, la mayoría de las personas utilizan el siguiente método para obtenerlo:

(WebBrowser1.Document as IHtmlDocument2).body.outerHtml;

Lo bueno de este método es que solo puedes obtener el código fuente de entre y de la página web. No se puede acceder al código fuente de la página web entre body> y , ni al fuera de , como el código fuente de la página web de la parte . el método compartido por el gran maestro. Puedes consultarlo:

El procedimiento TForm1.Button1Click(Sender = Button1Click)(Sender = Button1Click). Button1Click(Remitente: TObject);

var

ole_index, oleObj: OleVariant;

i: entero;

comenzar

si WebBrowser1.entonces Salir; //La página web se está cargando. OleObject.document.frames.item(ole_index);

Memo1.Lines.Add(oleObj.document.url);

Memo1.Lines.Add(oleObj.document.documentElement. outsideHtml);

Memo1.Lines.Add(' '); Memo1.Lines.Add(' '); //agregar líneas en blanco

end;

fin;