¿Cómo puedo obtener el código fuente de la página a través de WebBrowser-Control (ActiveX InternetExplorer)?

Question

¿Cómo puedo obtener el código fuente de la página a través de WebBrowser Control (ActiveX InternetExplorer)?

Tengo un documento xml "foo.xml".

var 
Web: TWebBrowser; 
begin 
... 
Web.Navigate("foo.xml"); 
// How can I get source code thru WebBrower control<---- 
... 
end; 

Answer 1

Pensé que esto sería fácil, pero parece que podría haber sido olvidado. Sin embargo, puedes hacerlo fácilmente con un control TidHTTP.

MyPage := IdHTTP1.Get('www.google.com'); 

Sé que no es lo que quieres, pero podría ayudarte.

Answer 2

En el evento DocumentCompleted, mire la propiedad DocumentText del control WebBrowser. Debe tener el texto completo de la página cargada.

Answer 3

IHTMLDocument2(Web.Document).Body.InnerHTML; 

Esto debería devolver el origen de la página.

Answer 4

Otro método que funciona bien es usar Synapse. Use la llamada de sinapsis HttpGet para recuperar su recurso inicial (que le proporciona el código fuente) y luego manipule según sea necesario.

Otra opción sería utilizar el componente EmbeddedWB que expone MUCHAS más propiedades y características del navegador web que el componente Delphi estándar y aún así se ajusta a su requisito de hacerlo dentro del navegador web.

Answer 5

Para acceder a todo el HTML de la página a través del uso de control WebBrowser:

Web.Document.All[0].OutterHtml; 

Answer 6

private void btnTest_Click(object sender, EventArgs e) 
     { 
      wbMain.Navigate("foo.xml"); 
      wbMain.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(testing); 
     } 

     private void testing(Object sender, WebBrowserDocumentCompletedEventArgs e) 
     { 
      test = wbMain.DocumentText; 
     } 

Sé que esto es un poco tarde, pero esto funciona para mí. wbMain es el Objeto WebBrowser.

Answer 7

WebBrowser1.Navigate() lo carga en la ventana del componente RAD utilizando el componente integrado de IE en el sistema operativo Windows. Lo que hace es responder a una devolución de llamada (para el componente del navegador, hacer doble clic en el evento OnDownloadComplete) y guardarlo en el archivo de esa función. Fragmentos de código de trabajo:

procedure TMainForm.WB_SaveAs_HTML(WB : TWebBrowser; const FileName : string) ; 
var 
    PersistStream: IPersistStreamInit; 
    Stream: IStream; 
    FileStream: TFileStream; 
begin 
    if not Assigned(WB.Document) then 
    begin 
    Logg('Document not loaded!') ; //'Logg' adds a line to a log file. 
    Exit; 
    end; 

    PersistStream := WB.Document as IPersistStreamInit; 
    FileStream := TFileStream.Create(FileName, fmCreate) ; 
    try 
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream; 
    if Failed(PersistStream.Save(Stream, True)) then ShowMessage('SaveAs HTML fail!') ; 
    finally 
    FileStream.Free; 
    end; 

end; (* WB_SaveAs_HTML *) 

procedure TMainForm.WebBrowser1DownloadComplete(Sender: TObject); 
begin 
    if (WebBrowser1.Document<>nil)AND NOT(WebBrowser1.busy) then begin 
     WB_SaveAs_HTML(WebBrowser1,'test.html'); 
     //myStringList.loadFromFile('test.html'); //process it. 
    end; 
end; 

en cuenta que algunos tipos MIME ("Archivo"), tales como JSON dan un cuadro de diálogo 'Guardar como ...' en el IE, que para su lectura y requiere intervención manual.