вопрос про IP

[ЧИЖ]

Можт кто знает какой компонент может дать, или как узнать IP компа который находится на другом коце модемного соединения, потомучто как определить свой я знаю.

мне нужно написать мелкую прогу которая при запуске определяла бы IP соединенного с моим компьютера и прописывала его в некоторый config некоторой игры, загвоздка в определении IP.

[Air]

Можно по имени компа.

function IPToName(IP: string): string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  WSAStartup($101, WSAData);
  SockAddrIn.sin_addr.s_addr:=inet_addr(PChar(IP));
  HostEnt:=gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
  if HostEnt <> nil then
    Result:=StrPas(Hostent^.h_name)
  else
    Result:='';
end;

function NameToIP(const HostName: string): string;
type
  TaPInAddr = array[0..10] of PInAddr;
  PaPInAddr = ^TaPInAddr;
var
  phe: PHostEnt;
  pptr: PaPInAddr;
  i: Integer;
  GInitData: TWSAData;
begin
 WSAStartup($101, GInitData);
 Result:='0.0.0.0';
 phe:=GetHostByName(PChar(HostName));
 if phe=nil then Exit;
 pPtr:=PaPInAddr(phe^.h_addr_list);
 i:=0;
 while pPtr^[i] <> nil do
  begin
   Result:=inet_ntoa(pptr^[i]^);
   Inc(i);
  end;
 WSACleanup;
end;