[Delphi] 도메인을 IP로 변환하는 함수

통신용 프로그램 또는 로그 기록을 위하여 도메인을 IP로 변환하는 경우가 있다. 여기 저기 정보들을 정리하여, 실제 동작되는 함수를 만들어 보았다. uses 절에 Winapi.winsock 을 기본으로 포함시켜야 한다. 도메인을 상수로 전달받아 문자열로 반환한다. // // 도메인으로 IP 반환 // function GetIPAddressFromDomainName(Host: PAnsiChar): String; var WSAData1: WSADATA; HostEnt: PHostEnt; pAddr: PAnsiChar; addr: in_addr; begin Result:=''; // GetHostByName 을 쓰기 위해 WSAStartup 을 한번 해줘야 함 if WSAStartup(MAKEWORD(2, 2), WSAData1)<>0 then Exit; // WSAStartup 호출이 제대로 되지 않음을 체크(?) if (LOBYTE(WSAData1.wVersion)<>2) or (HI...

원문링크 : [Delphi] 도메인을 IP로 변환하는 함수