Как узнать IP-адрес???

← →
Klaz (2002-12-17 08:21) [0]

Сино не ругайтесь, плз. Походил на форуме, нашел такой исходничек, вставляю его в прогу - ругается на неизвестные типы TWSAData и т.п. ШО Я ДЕЛАЮ НЕ ТАК, HELP ME...

var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;

← →
Klaz (2002-12-17 09:42) [1]

а че, свой IP нихто не узнавал?

← →
KasAlex © (2002-12-17 09:51) [2]

Модуль WinSock подключил?

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

Как узнать IP-адрес??? Найти похожие ветки