Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

HOST - IP   Найти похожие ветки 

 
cypher ©   (2002-02-19 00:49) [0]

Как в локальной сети, имя имя комьютера, получить его IP адрес ?


 
cypher ©   (2002-02-19 00:53) [1]

или что тут не правильно?

function GetIPAddr(name:String):String;
var
pHostEn : PHostEnt;
lwsaData : WSAData;
begin
result := "<unknown>";
WSAStartup($0101, lwsaData);
pHostEn := gethostbyname(PChar(name));
if (pHostEn = nil) then begin
WSACleanup;
Exit;
end;
result := String (pHostEn^.h_addr);
WSACleanup;
end;


 
cypher ©   (2002-02-19 01:01) [2]

Ага... вроде так нада

result := String (inet_ntoa(PInAddr(pHostEn.h_addr^)^));

Да?! Вроде работает...



Страницы: 1 вся ветка

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
1-2602
dull
2002-04-19 17:22
2002.05.02
группа програмистов (2 чел.) ищет работу на Delphi


6-2635
VS
2002-02-20 07:02
2002.05.02
Помогите !! Програ зависает при разрыве соединения при закачке файла с ФТП


3-2466
Igor_
2002-04-11 09:59
2002.05.02
Отладка хранимой процедуры в InterBase


1-2607
Alexandr (CAV)
2002-04-20 08:11
2002.05.02
Ложное срабанывание двойного клика в rxDbGrid


1-2595
Martyn
2002-04-18 16:48
2002.05.02
Вопрос по DBGrid