Ohne Fehlerbehandlung
Delphi-Quellcode:
Function GetExtIP: String;
var
IdHTTP: TIdHTTP;
begin
IdHTTP := TIdHTTP.Create(nil);
try
Result := IdHTTP.Get('http://checkip.dyndns.org/');
Result := Copy(Result, pos(':', Result) + 1);
Result := Trim(copy(Result, 1, pos('</', Result) - 1));
finally
IdHTTP.Free;
end;
end;
Die beiden Lösungen von "http://www.swissdelphicenter.ch/de/showcode.php?id=1013"
und Bummi
sind sehr interessant, da sie beide eine Internetseite/
HTML parsen.
Dat is aber eindeutig zu wenig Kopiersubstanz für einen Black Ninja wie z.B. von "http://de.narutopedia.eu/wiki/Madara_Uchiha", der wohl ein Sysinfo-Tool in Delphi zusammenkopieren will?
SCNR