..oder wenn Du die Indys installierst hast -> idIPWatch
.. habe gerade gemerkt, dass dies Dir nicht viel weiterhelfen wird, sorry.
Delphi-Quellcode:
function GetIPString :
string;
var
RespText :
string;
YourIPPos : integer;
CopyLoop : integer;
IPText :
string;
IDHTTP : TIdHTTP;
begin
IPText := '
';
IDHTTP := TIdHTTP.Create(
nil);
try
// Need to set up proxy here if you're using one ...
RespText := IDHTTP.Get('
http://www.whatismyip.com/');
YourIPPos := Pos('
Your IP is ', RespText);
for CopyLoop := YourIPPos + strlen('
Your IP is ')
to length(RespText)
do
begin
if not (RespText[CopyLoop]
in ['
0'..'
9', '
.'])
then break;
IPText := IPText + RespText[CopyLoop];
end;
finally
IDHTTP.Free;
end;
Result := IPText;
end;
Basierend auf den Vorschlag von Balu der Bär.
Grüße
Klaus