ip by name

← →
Rodin (2003-09-11 11:15) [0]

Приветсвую!
Подскажите как получить ip удаленой машины зная ее имя?

← →
panov (2003-09-11 11:36) [1]

GetHostByName

← →
Zeon (2003-09-13 00:48) [2]

uses
WinSock;

const
WINSOCK_VERSION = $0101;

function GetIPAddress(Name:String): string;
var
WSAData : TWSAData;
p : PHostEnt;
begin
WSAStartup(WINSOCK_VERSION, WSAData);
p := GetHostByName(PChar(Name));
Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;

← →
rodin (2003-09-15 09:50) [3]

БОльшое человеческое спасибо

← →
rodin (2003-09-15 09:53) [4]

Удалено модератором
Примечание: Offtopic

ip by name Найти похожие ветки