![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
|
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;
Genera una ecepcion ![]() 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 ![]() |
![]() |
|
|
|