Извините за офф-топ, но важно, может кто-нить поможет? :

Пишу в Delphi.
Для того чтоб узнать IP я использовал следующую функцию

function get_ip(): string;

var  WSAData    :TWSAData;

    P          :PHostEnt;

    Name       :array [0..$FF] of Char;

    IP         :string;



begin

  WSAStartup($0101, WSAData);

  GetHostName(name, $FF);

  P:=GetHostByName(Name);

  IP:=inet_ntoa(PInAddr(p.h_addr_list^)^);

  WSACleanup;

  result:=ip;

end;

Но дело в том что я так получаю только ОДИН IP адрес. А что если у машины больше одного адреса? Например у меня есть инет и сеть, по такой функции прога показывает мой сетевой IP (192.168.0.1), а как мне сделать так чтоб прога еще сказала мой инетский айпишник?

Спасибо..

| Сообщение посчитали полезным: