![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
СРОЧНО!!! ЛЮДИ СКАЖИТЕ КАК ПОЛУЧИТЬ IP-адресс(не локального)? [Delphi, Windows]
INNOCHENTI © (2002-04-23 17:30:00)Как его зделать до среды нужно...
Anatoly Podgoretsky (2002-04-29 08:23:00) [1]K-Sergey (29.04.02 05:43)
Ты бы задал свой вопрос как положено в отдельной своей сообственной ветке
K-Sergey (2002-04-29 05:43:00) [2]TWSAData -А где бы его взять?
Anatoly Podgoretsky (2002-04-24 09:43:00) [3]Выбрось GetHostName(name, $FF);
3d[Power] (2002-04-24 09:32:00) [4]=) cорри, уставший был не заметил. Насколько я знаю ты пишешь игру на дельфиксе. Возми локальный ИП и отправь другому компу
INNOCHENTI (2002-04-24 08:20:00) [5]Я ведь просил не локального!!!!!
3d[Power] (2002-04-23 21:44:00) [6]uzez winsock;
function GetLocalIP : string;
var
WSAData : TWSAData;
p : PHostEnt;
Name : array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
result := inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;