Hiho habe folgenden code bei Delphi-Forum.de gefunden:
Code:
const
sURL = 'http://www.whatismyip.com';
sSearchText = 'your
ip is';
var
sResult: string;
sIP : string;
begin
try
sResult := http.Get(sURL);
sResult := LowerCase(sResult);
sIP := Copy(sResult, pos(sSearchText, sResult) + Length(sSearchText) + 1,pos(' ', Copy(sResult, pos(sSearchText, sResult) + Length(sSearchText) + 1, length(sResult))) -1 );
ShowMessage(sIP); // hier nun deine
ip...
except
MessageDlg('Sie sind nicht mit dem Internet verbunden.', mtError, [mbOK], 0);
so... nur bei mir findet er das "http" vor dem Get nicht !!! Habe die
Indy-Komponente installiert und sie liegt auch auf dem Formular ...
weiss jemand was ich falsch mache ?!?
danke
Trouble_Maker