Hallo,
ich habe den Code mit dem NMHTTP Client umgebaut
und angepasst.
Delphi-Quellcode:
function getPublicIP:
String;
var
WebAddress:
string;
idHttp1: TIdHttp;
begin
idHttp1 := TIdHttp.Create(
nil);
WebAddress := '
http://www.whatismyip.com/automation/n09230945.asp';
try
result:=idhttp1.Get(WebAddress);
//NMHTTP1.Get(WebAddress);
except
on E:
Exception do
begin
MessageDlg('
Could not get IP Address! ' +
'
Please ensure you are connected to ' +
'
the Internet.', mtError, [mbOK], 0);
end;
end;
result:=trim(result);
idHttp1.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=getPublicIp;
end;
Unter dieser Webadresse gibt whatsmyip nur die
IP Adresse aus.
Es ist nicht mehr nötig diese aus einer Stringlist oder aus einem TMemo
auszufiltern.
Wie Du siehst wird hier der das Object TidHttp aus der
Indy Komponentensammlung
verwendet.
In den Uses sollte dann folgendes stehen:
Delphi-Quellcode:
uses
...,IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient
IdHTTP;
Ich habe die
Indy Version 9 benutzt.
Grüße
Klaus