Как определить Свой ip адрес!

[Marsik]

Здравствуйте. Как можно определить Свой ip адрес? Я делаю так:

uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

Но так определяется локальный ip 192.168.1.3, а как чтобы настоящий ip адрес в интернете определить?

[Ins]

Создать (или найти) сервер, который принимает определенный запрос и возвращает ответом IP с которого он пришел. Далее отправить на этот сервер запрос и дождаться ответа. Пример такого сервера - http://www.whatismyip.com

[Marsik]

Ну и как сделать чтобы этот сервер прислал ip? а то чтото никак не могу понять!

[Ins]

Глянь обсуждение здесь, там готовый код есть:
http://www.delphikingdom.com/asp/ans...IDAnswer=49100

Этот код не составляет труда переделать под любой сервер.

[Marsik]

Спасибо за помощь INS, помогли!!!