Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

Получение 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;




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.017 c
4-94642           Tosov                 2002-02-27 02:08  2002.04.29  
Запись 64битного числа в реестр


14-94549          Nest                  2002-03-21 14:42  2002.04.29  
Как сделать недоступными некоторые items в TListBox? Или есть другой компонент с такой фичей?


3-94310           Basile                2002-04-08 02:31  2002.04.29  
DbColumns


1-94481           Керик                 2002-04-16 04:54  2002.04.29  
Где взять TZPHint?


1-94372           Jaxtor                2002-04-17 14:21  2002.04.29  
Событие при максимизации главной формы