Без заголовка
02-03-2006 16:03
к комментариям - к полной версии
- понравилось!
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;
вверх^
к полной версии
понравилось!
в evernote