![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IP своего компьютера [D6, WinXP]
dkDimon © (2002-10-27 18:17:00)Здравствуйте. Подскажите плиз как можно получить IP своего компа с помощь Дельфи???
Mischka (2002-11-01 14:25:00) [1]2 daan_m
не издевайтесь над человеком.
daan_m (2002-10-31 11:49:00) [2]127.0.0.1 не пробовал
dkDimon (2002-10-31 10:35:00) [3]>izhalex
Огромная пасиба! Все работает
izhalex (2002-10-29 15:26:00) [4]попробуй так
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;
Deader (2002-10-27 21:02:00) [5]Смотри в FAQ там есть и довольно неплохой пример!
romych (2002-10-27 19:58:00) [6]на http://www.sources.ru/есть стаття, ее передать не могу, так как размер более 5000 символов.