Wie bekommt man die Öffentliche IP heraus ?

[Luckie]

Und was passiert, wenn die Seite nicht erreichbar ist?

[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;

[Matze]

Ich weiß nicht, ob man solche Seiten einfach für eigene Programme nutzen darf, aber es wäre unter Umständen sinnvoller, nach einem festgelegten Timeout, eine andere Seite zu nutzen. Dann hast du beispielsweise eine Liste mit 3 Seiten und die Wahrscheinlichkeit, dass alle nicht erreichbar sind, ist schon sehr gering. Ist dies der Fall, dann würde ich erst eine Meldung ausgeben.

Da gibt's ja einige Anbieter, auch welche, die dir Arbeit abnehmen, da du nicht erst die IP heraus friemeln musst, sondern direkt die IP erhälst: http://www.whatismyip.org/

Wenn du natürlich eigenen Webspace hast, bist du (auch rechtlich) auf der sicheren Seite.