Q&A

  • 네트웍상에서 컴퓨터이름 가져오기
네트웍상에서 IP주고 해당 IP의 컴퓨터이름을 가져오는 방법이 있나요..



입력 : 특정IP ==> 출력 : 특정IP의컴 이름..

1  COMMENTS
  • Profile
    컴맹... 2001.01.06 01:40
    모래 wrote:

    > 네트웍상에서 IP주고 해당 IP의 컴퓨터이름을 가져오는 방법이 있나요..

    >

    > 입력 : 특정IP ==> 출력 : 특정IP의컴 이름..





    {uses WinSock, etc...}

    {--------------------}// 요게 Ip로 컴퓨터 이름 가져오는 겁니다..

    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;