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

function GetLocalIpAddress: 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;					

1:
2:
3:

<?php
 echo "$REMOTE_ADDR";
?>					

1:

Label2.Caption := IdHTTP1.Get('http://www.reepo2k.de/ProgrammData/ip.php');