1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

TForm1.btn_SearchClick(Sender: TObject);
const
  sURL = 'http://www.whatismyip.com';
  sSearchText = 'your ip is';
var
  sResult: string;
  sIP    : string;
begin
  try
    HTTP.Get(sURL);
    sResult := http.Body;
    sResult := LowerCase(sResult);
    sIP := Copy(sResult, pos(sSearchText, sResult) + Length(sSearchText) + 1,pos(' ', Copy(sResult, pos(sSearchText, sResult) + Length(sSearchText) + 1, length(sResult))) -1 );
    txt_InternetIP.Text := sIP; // hier nun deine ip...
  except
    ShowMessage('Sorry, Die Internet IP kann nicht angezeigt werden !!!');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

uses
  winsock;

function GetLocalIPs: String;
type PPInAddr= ^PInAddr;
var
  wsaData : TWSAData;
  HostInfo : PHostEnt;
  HostName : Array[0..255] of Char;
  Addr : PPInAddr;
begin
  if WSAStartup($0102, wsaData) <> 0 then Exit;
  try
    if GetHostName(HostName, SizeOf(HostName)) <> 0 then
    begin
      result:='';
      Exit;
    end;
    HostInfo:= GetHostByName(HostName);
    if HostInfo=nil then
    begin
      result:='';
      Exit;
    end;
    Addr:=Pointer(HostInfo^.h_addr_list);
    if (Addr=nil) or (Addr^=nil) then
    begin
      result:='';
      Exit;
    end;
    if not (copy(strpas(inet_ntoa(addr^^)),1,7) = '192.168') then
    begin
      result:=StrPas(inet_ntoa(Addr^^));
      inc(Addr);
    end
    else
    begin
      inc(addr);
      while Addr^ <> nil do
      begin
        result:=StrPas(inet_ntoa(Addr^^));
        inc(Addr);
      end;
    end;
  finally
    WSACleanup;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function GetIP: String;
var phoste : PHostEnt;
    Buffer : array[0..100] of Char;
    WSAData : TWSAData;
begin
     result := '';
     if WSAStartup($0101, WSAData)<>0 then exit;
     GetHostName(Buffer, SizeOf(Buffer));
     phoste := GetHostByName(Buffer);
     if phoste = NIL then result := '0.0.0.0'
     else result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
     WSACleanup;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.btn_LoadClick(Sender: TObject);
var
  URL : String;
begin
  URL:='http://www.it-leinefelde.de/delphi/myip.php';
  NMHTTP1.Get(URL);
  txt_Internet_IP.Text := NMHTTP1.Body;
end;					

1:
2:
3:

<?php 
echo $REMOTE_ADDR; 
?>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

implementation

uses registry;

{$R *.dfm}

var regist : TRegistry;

procedure TForm1.FormCreate(Sender: TObject);
begin
 regist := TRegistry.Create;
 regist.RootKey := HKEY_LOCAL_MACHINE;
end;

function GetIPAddress: string;

var phoste : PHostEnt;
    Buffer : array [0..100] of char;
    WSAData : TWSADATA;

begin
 result := '';
 if WSAStartup($0101, WSAData) <> 0 then exit;
 GetHostName(Buffer, SizeOf(Buffer));
 phoste :=GetHostByName(buffer);
 if phoste = nil then
  result := '127.0.0.1'
 else
  result := StrPas(inet_ntoa(PInADDr(phoste^.h_addr_list^)^));
 WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 regist.OpenKey('\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{6313E1DE-FDA3-4C50-859E-07BB4854DDCD}',True);
 Label4.Caption := regist.ReadString('DhcpIPAddress');
 Label6.Caption := GetIPAddress;
 Label8.Caption := '127.0.0.1';
end;					

1:

txt_WebIP.Text:= HTTP1.Get('http://www.meinserver.de/myip.php');