Текущий архив: 2002.07.22;
Скачать: CL | DM;
Вниз
Преобразование IP Найти похожие ветки
← →
Фантом © (2002-05-11 10:56) [0]Подскажите пожалйста, как преобразовать IP к примеру: http://melitopol.net к правильному четырех байтовому виду.
Заранее спасибо.
← →
Song © (2002-05-11 11:04) [1]Это делает DNS сервер.
← →
Anatoly Podgoretsky © (2002-05-11 12:20) [2]193.41.172.98
function GetIPAddress(Name:String): string;
var
WSAData : TWSAData;
p : PHostEnt;
begin
WSAStartup($0101, WSAData);
p := GetHostByName(PChar(Name));
if Assigned(P) then
Result := inet_ntoa(PInAddr(p.h_addr_list^)^)
else begin
Result := "";
end;
WSACleanup;
end;
Страницы: 1 вся ветка
Текущий архив: 2002.07.22;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.013 c
