Wie bekommt man die Öffentliche IP heraus ?

[Corpsman]

*g*


ok ihr habt ja Recht dieses Try finaly zeug vergesse ich immer.

also ich hab das mal mit diesem What is my IP ausprobiert, das klappt eigentlich net schlecht

Delphi-Quellcode:

Procedure TForm1.Button4Click(Sender: TObject);
Var
  bla: TIdHTTP;
  l: Tstringlist;
  j, i: integer;
  t, s: String;
Begin
  bla := TIdHTTP.create(self);

  l := TStringList.create;
  // Nur zum Debuggen in einem String zwischengelagert
  Try
    t := bla.Get('http://www.whatismyip.de');
  Finally
    bla.free;
  End;
  l.Add(t);
  label7.Caption := '';
  For i := 0 To l.count - 1 Do Begin
    j := pos('your ip is', lowercase(l[i]));
    If j <> 0 Then Begin
      s := l[i];
      delete(s, 1, j + length('your ip is'));
      delete(s, pos(' ', s), length(s));
      label7.Caption := 'Externe IP : ' + s;
      break;
    End;
  End;
  l.free;
  bla.free;
  If Length(label7.Caption) = 0 Then Begin
    showmessage('Fehler Konnte [url]http://www.whatismyip.de[/url] nicht erreichen.');
  End;
End;