Определение IP

← →
BlackGrin © (2002-04-19 21:26) [0]

Как присвоить определенной переменной в делфях айпишку машины на которой эта программа запущена?

← →
Song © (2002-04-20 09:24) [1]

В FAQ есть.

← →
BlackGrin © (2002-04-21 14:28) [2]

Если серъезно , то я впервые перед тем как задать вопрос искал по форуму такую тему и не нашел. Кинь просо оператор которое это производит плз! :)

← →
Malder © (2002-04-21 15:04) [3]

BlackGrin, не мог ты искать такой вопрос. Потому что они задаются раз в неделю точно. И ты нашел бы обязательно...

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;

← →
Song © (2002-04-21 15:12) [4]

2BlackGrin © (21.04.02 14:28)
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988622334&n=20
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988620992&n=20

хм... сенкс..... только вот у меня теперь очередной вопрос..... В всех примерах в описание переменных описывается
WSAData : TWSAData;

Не примите за ламера.... но дефля ругается, говрит Андеклеред :(

Uses WinSock;

Определение IP Найти похожие ветки