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

function GetInetClietIP: String;
var
  IdHttp: TIdHttp;
  I : integer;
  StringList: TStringList;
begin
  RESULT := '';
  IdHttp := TIdHttp.Create(nil);
  StringList := TStringList.Create;
  Try
    StringList.Add(IdHttp.get('http://checkip.dyndns.org'));
    for I := 0 to Length(StringList.Text) do begin
      if StringList.Text[I] in [#46, #48..#57] then RESULT := RESULT+StringList.Text[I];
      end;
  finally
    StringList.Free;
    IdHTTP.Free;
    end;
end;					

1:
2:
3:

<?
print getenv("REMOTE_ADDR");
?>