Ich hab da mal ne Funktion zusammengebaut die ohne großen Aufwand die externe
IP / Internet
IP anzeigt.
Getestet mit Wind XP, Delphi 7..
Delphi-Quellcode:
uses sockets;
function getExIP: string;
var web:TTcpClient;
tmp:string;
begin
web:=TTcpClient.Create(web);
web.RemoteHost:='checkip.dyndns.org';
web.RemotePort:='80';
web.Open;
web.Sendln('GET /'+#13#10+'HOST: http://'+web.RemoteHost+#13#10);
tmp:=web.Receiveln('#13#10');
web.Close;
delete(tmp,1,pos('<body>',tmp));
result:=Copy(tmp, Pos(':', tmp) + 2, Pos('</bo', tmp) - Pos(':', tmp) - 2);
end;
LG Marko