델파이는 암것도 모르는데..제가 원하는 소스를 델파이로 만든걸 찾았거든여..

아래 소스인데.....델파이 잘하시는분 빌더로 변환좀 해주세염..

빌더랑 비슷한거 같은데..제 딴에 조금 고쳤더니..에러 무자게 많이 뜨더군여..-_-;;

참 이 소스 IP를 호스트 네임으로 호스트 네임을 아이피로 변환해 주는 함수입니다.


uses WinSock

function HostNameToIpAddr(const sHost: string): string;
var
P: PHostEnt;
Ia: TInAddr;
begin
Ia.S_addr := 0;
P := gethostbyname(PChar(sHost));
if P <> NIL then
with Ia.S_un_b, P^ do
begin
s_b1 := h_addr_list^[0];
s_b2 := h_addr_list^[1];
s_b3 := h_addr_list^[2];
s_b4 := h_addr_list^[3];
end;
Result := inet_ntoa(ia);
end;



function IpAddrToHostName(const sIP: string): string;
var
I: Integer;
P: PHostEnt;
begin
Result := '';
I := inet_addr(PChar(sIP));
if I <> u_long(INADDR_NONE) then
begin
P := GetHostByAddr(@I, SizeOf(Integer), PF_INET);
if P <> NIL then
  Result := P^.h_name;
end else
Result := 'Invalid IP address';
end;