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.