Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   TWebBrowser (OnDocumentComplete vs OnDownloadComplete) (https://www.clubdelphi.com/foros/showthread.php?t=8206)

dmassive 12-03-2004 13:19:41

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;

Pero este Codigo Funciona Mal. (Memo1.Lines.Text := Document.Body.parentElement.outerHTML;) 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;

¿Cual es la diferencia entre estos 2 eventos?
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.

acertij022 12-03-2004 13:53:35

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 :p


La franja horaria es GMT +2. Ahora son las 12:46:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi