TWebbrowser für Speedtest in Console

[marabu]

Hallo Harry,

in einer Konsolanwendung gelten andere Gesetze als in einer GUI-Anwendung. Ohne Nachrichtenschleife und ohne grafische Oberfläche kannst du mit TWebBrowser nicht allzuviel anfangen. Vielleicht geht es ja auch ohne:

Delphi-Quellcode:

program myip;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  Classes,
  MSHTML,
  Windows,
  idHTTP,
  SysUtils;

const
  URL = 'http://www.wieistmeineip.de';

var
  s: TStream;
  doc: IHTMLDocument2;

{$I Proc.ProcessMessages.pas}
{$I Func.LoadDocument.pas}
{$I Func.UrlDownload.pas}

begin
  CoInitialize(nil);
  s := TMemoryStream.Create;
  if UrlDownload(URL, s) = 200 then
  begin
    doc := CoHTMLDocument.Create as IHTMLDocument2;
    if LoadDocument(doc, s) then
    begin
      WriteLn(Format('%s (%.0n)', [doc.title, 1.0 * s.Size]));
    end else WriteLn('LoadDocument() failed')
  end else WriteLn('UrlDownload() failed');
  s.Free;
end.

Die Include-Dateien kannst du dir hier besorgen.

Grüße vom marabu