Socket Get Loacl IP address

Добрый день.

Пишу одну програмку и необходимо посылать в пакете локальный IP адресс. Как программно его получить?

тынц1
тынц2
тынц3
тынц4
тынц4

uses Winsock;
...

procedure TForm1.FormCreate(Sender: TObject);
var
  wVerReq: WORD;
  wsaData: TWSAData;
  i: pchar;
  h: PHostEnt;
  c: array[0..128] of char;
begin
  wVerReq := MAKEWORD(1, 1);
  WSAStartup(wVerReq, wsaData);
  {Получаем хост (имя) компа}
  GetHostName(@c, 128);
  h := GetHostByName(@c);
  Host.Caption := h^.h_Name; //Host отображает хост(имя) компьютера
  {Достаем IP}
  i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
  IPaddr.Caption := i; //Теперь IPaddr отображает IP-адрес
  WSACleanup;
end;

----
www.hramin.jino-net.ru

Спасибо

незачто! обрашайся ешё раз :)

----
www.hramin.jino-net.ru