Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-03-2004
Avatar de dmassive
dmassive dmassive is offline
Miembro
 
Registrado: mar 2004
Ubicación: Paraná - Argentina
Posts: 60
Poder: 21
dmassive Va por buen camino
Question 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.
Responder Con Cita
  #2  
Antiguo 12-03-2004
Avatar de acertij022
acertij022 acertij022 is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina-Bs. As.
Posts: 233
Poder: 22
acertij022 Va por buen camino
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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 02:29:16.


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