No hay respuestas en este tema

[deneus3000]

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.

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.