[태그:] Delphi로 IP 알아오기
Delphi로 IP 알아오기
Published Date: 2010년 4월 27일
전에 도메인 명으로 IP를 알아오기와 비슷한 내용입니다.
Delphi/Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Uses WinSock; ... function My_LocalIP : String; var wData: WSADATA; HostName: String; pHostInfo: pHostEnt; begin WSAStartup(MAKEWORD(2, 2), wData); GetHostName(PAnsiChar(HostName), 512); pHostInfo := GetHostByName(PAnsiChar(Hos tName)); if Assigned(pHostInfo) then Result := IntToStr(ord(pHostInfo.h_addr_list^[0])) + '.' + IntToStr(ord(pHostInfo.h_addr_list^[1])) + '.' + IntToStr (ord(pHostInfo.h_addr_list^[2])) + '.' + IntToStr (ord(pHostInfo.h_addr_list^[3])) else Result := ''; WSACleanup; end; |
HostName에 값이 없는 경우 로컬IP의 내용이 나타납니다. Uses 문에 Winsock을 추가해 주어야 합니다. 실제 IP를 읽어 오는…
최신 댓글