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

Вниз

как узнать IP по Host-у   Найти похожие ветки 

 
новенький в Делфи   (2002-03-21 00:14) [0]

а можно в Делфи узнать IP адрес Host-а?


 
Dimka Maslov ©   (2002-03-21 09:51) [1]

uses WinSock;

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.05.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
1-97311
ETeRNaL
2002-05-19 07:59
2002.05.30
Coolbar


1-97292
Andrey__
2002-05-18 17:16
2002.05.30
Как откомпилировать стандартный компонент Delphi?


1-97320
Musicmax
2002-05-19 19:00
2002.05.30
товаришчи! Подсажите как избежать ошибки ....


6-97365
ev
2002-03-16 13:38
2002.05.30
утечка в Indy


1-97322
indigo
2002-05-17 17:58
2002.05.30
label