FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
TWebBrowser (OnDocumentComplete vs OnDownloadComplete)
Buenos dias amigos!
No entiendo muy bien las diferencias entre los eventos OnDocumentComplete y OnDownloadComplete de la componente TWebBrowser. Este Codigo Funciona Bien. Código:
procedure TForm_Bajar_Datos.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var Document: IHTMLDocument2; begin N := N + 1; Document := WebBrowser1.Document as IHTMLDocument2; Memo1.Lines.Text := Document.Body.parentElement.outerHTML; Memo1.Lines.SaveToFile('pagina.txt'); end; Código:
procedure TForm_Bajar_Datos.WebBrowser1DownloadComplete(Sender: TObject); var Document: IHTMLDocument2; begin N := N + 1; Document := WebBrowser1.Document as IHTMLDocument2; Memo1.Lines.Text := Document.Body.parentElement.outerHTML; Memo1.Lines.SaveToFile('pagina.txt'); end; Hasta este problema yo creia que: *OnDocumentComplete se producia cuando el codigo fuente era cargado. *OnDownloadComplete se producia cuando el codigo fuente y los demas archivos como imagenes eran cargados. Pero creo que estoy equivocado. |
#2
|
||||
|
||||
La verdad que desconozco el porque del error , pero te doy otra alternativa para bajar una pagina web
var Stream: TStream; begin Stream := TFileStream.Create('c:\mipagina.htm', fmCreate); idhttp1.Get('http://www.mi pagina.com.ar/index.htm',Stream); Stream.Free; end; Espero averte sido de ayuda |
|
|
|