Преобразование IP

← →
Фантом © (2002-05-11 10:56) [0]

Подскажите пожалйста, как преобразовать IP к примеру: http://melitopol.net к правильному четырех байтовому виду.
Заранее спасибо.

← →
Song © (2002-05-11 11:04) [1]

Это делает DNS сервер.

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;

Преобразование IP Найти похожие ветки