LookupName

function LookupName(const Name: string): TInAddr; //[url=http://www.aion-navi.jp]AION NAVI[/url]
InAddr: TInAddr; //[url=http://www.rmt-iroiro.jp]aion rmt[/url]
begin
HostEnt := GetHostByName(PChar(Name));
FillChar(InAddr, SizeOf(InAddr), 0);
if (HostEnt <> nil) then
begin
with InAddr, HostEnt^ do
begin
S_un_b.s_b1 := h_addr^[0];
S_un_b.s_b2 := h_addr^[1];
S_un_b.s_b3 := h_addr^[2];
S_un_b.s_b4 := h_addr^[3];
end;
end;
Result := InAddr;
end;