как узнать IP по Host-у
новенький в Делфи © (2002-03-21 00:14:00)
а можно в Делфи узнать IP адрес Host-а?
Dimka Maslov (2002-03-21 09:51:00) [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;
Наверх 
ЧАТ |
Орешник |
|
