GetIP - IP Adresse (im www) ermitteln

[ghost007]

nettes tool, aber wenn ich meine bin auf deinen sourcecode gespannt, würd ihn gern mit dem weg vergleichen, den ich in meinem chatprogramm verwende um die internet IP herauszufinden

[EDIT]
es funktioniert bei mir (WinXP Home) einwandfrei
So ermittle ich die internet IP:
Um die dauerhafte verfügbarkeit zu gewehrleisten(es ist zwar unwahrscheinlich, das eine solche seite wie www.wieistmeineip.de mal offline geht, aber es kommt vor) zu können, lade ich die getip.php auf einen freespace von z.B. funpic.de oder ohost.de hoch.
Sourcecode der php datei:

Code:

<?php 
echo $REMOTE_ADDR; 
?>

Nun erstelle ich ein projekt mit z.B. folgendem code unter der verwendung der indys (hier indy9):

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=idHTTP1.Get(hier URL zu der getip.php eintregen, bei mir   z.B.'http://auspex.au.ohost.de/getip.php');
end;

end.

und schwupp schon hab ich meine internet IP
[/EDIT]