Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Delphi para la web
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-10-2014
deneus deneus is offline
Miembro
 
Registrado: ago 2007
Posts: 10
Poder: 0
deneus Va por buen camino
APPTYPE CONSOLE y Webbrowser

Hola mi nombre es Deneus me gustaría peguntar si alguno puede ver como hacer que funcione este código y se pueda ejecutar el evento: Browser.OnDocumentComplete.
Gracias de antemano.

Código Delphi [-]
program SpeedTest2;

{$APPTYPE CONSOLE}

uses
   SysUtils,  SHDocVw, ActiveX;


type
   TClass = class(TWebBrowser)
     Browser: TWebbrowser;


procedure WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);



   end;

var
WebDataText:string;


procedure TClass.WebBrowserDocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin

   writeln('Document compled');
   // writeln(WebDataText);
end;



begin
   CoInitialize(nil);

   with TClass.Create(nil) do begin

     Browser := TWebBrowser.Create(nil);

     Browser.OnDocumentComplete := WebBrowserDocumentComplete;
     Browser.Navigate('poner aquí una URL');


//      sleep(5000);
//     WebDataText:= Browser.OleObject.Document.body.outerHTML;


     writeln('cargando...');


     readln;

     //Browser.Free;
     end;

   OleUninitialize;
end.

Última edición por ecfisa fecha: 06-10-2014 a las 03:21:33. Razón: Etiquetas [delphi]
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error System.data APPTYPE CONSOLE - RAD STUDIO SMTZ .NET 1 26-04-2008 12:17:23
Console Aplication KAYO Varios 3 13-07-2007 21:16:24
Cambiar los textos a color de console. REHome .NET 3 21-06-2007 03:16:11
Console aplication y readln acl_gandalf Varios 3 16-04-2005 23:15:35
Console en Firbird? El_Perrito Firebird e Interbase 3 20-01-2004 20:36:02


La franja horaria es GMT +2. Ahora son las 21:45:33.


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