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

Вниз

Получение IP-адреса через имя машины.   Найти похожие ветки 

 
Termik ©   (2002-02-15 10:10) [0]

HELP !
Помогите, кто знает, как воспользоваться функцией GetHostByName для получения IP-адреса по имени машины.Желателен пример кода.
Заранее благодарю.


 
Digitman (M) ©   (2002-02-15 10:40) [1]

см. модуль Scktcomp.pas (в версии 5.5 - строка 857)
function TCustomWinSocket.LookupName(const Name: string): TInAddr;


 
Dimka Maslov ©   (2002-02-15 15:20) [2]

function GetIPAddress(NetworkName: TString): TString;
var
Error: DWORD;
HostEntry: PHostEnt;
Data: WSAData;
Address: In_Addr;
begin
Error:=WSAStartup(MakeWord(1, 1), Data);
if Error = 0 then begin
HostEntry:=gethostbyname(PChar(NetworkName));
Error:=GetLastError();
if Error = 0 then begin
Address:=PInAddr(HostEntry^.h_addr_list^)^;
Result:=inet_ntoa(Address);
end else begin
Result:="Unknown";
end;
end else begin
Result:="Error";
end;
WSACleanup();
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-94548
Suntechnic
2002-03-23 05:12
2002.04.29
SoftIce & Windows XP...


14-94554
shane54
2002-03-22 18:45
2002.04.29
Вопрос по таймеру


3-94323
vopros
2002-04-09 13:16
2002.04.29
Срочно. Как в DbgridEH, сделать чтобы формат представления числа


4-94636
dlK
2002-02-26 09:39
2002.04.29
Помогите, нажать Ctrl+Alt+Del нужно ...


1-94448
Каспер
2002-04-16 05:57
2002.04.29
Цвет в TreeView