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');
end;
begin
CoInitialize(nil);
with TClass.Create(nil) do begin
Browser := TWebBrowser.Create(nil);
Browser.OnDocumentComplete := WebBrowserDocumentComplete;
Browser.Navigate('poner aquí una URL');
writeln('cargando...');
readln;
end;
OleUninitialize;
end.