TWebbrowser für Speedtest in Console

[Harry M.]

Problem wiefolgt gelöst:

Delphi-Quellcode:

program SpeedTest2;

{$APPTYPE CONSOLE}

uses
  SysUtils, OleCtrls, SHDocVw, ActiveX;


type
  TClass = class(TWebBrowser)
    Browser: TWebbrowser;
    procedure WebBrowserDocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);

  end;

procedure TClass.WebBrowserDocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
begin
  // das 'writeln' ist nur testweise
  // der eigendliche Code wertet nach dem
  // 2. Durchlauf die Ergebnisse der SpeedTests aus
  // da beim 1. Durchlauf nur 'Test läuft' ankommt

  writeln('Document compled');
end;



begin           
  CoInitialize(nil);

  with TClass.Create(nil) do begin

    Browser := TWebBrowser.Create(nil);

    Browser.OnDocumentComplete := WebBrowserDocumentComplete;
    Browser.Navigate('http://wieistmeineip.de/speedtest/run.php');


    writeln('Taste drücken zum beenden...');
    readln;

    Browser.Free;
    end;

  OleUninitialize;
end.

Komischerweise wird WebBrowserDocumentComplete nicht durchlaufen...