IP를 이용한 컴퓨터 이름 알아내기
yyjksw

16년 ago

uses WinSock;

function TForm_Main.GetIPName(IP: String): String;
var
  WSAData: TWSAData;
  sin: TSockAddrIn;
  pHost: PHostEnt;
begin
  WSAStartup($0202, WSAData);

  sin.sin_family := AF_INET;

  sin.sin_addr.S_addr := Inet_Addr(pChar(IP));

  pHost := gethostbyaddr(Pointer(@sin.sin_addr), 4, PF_INET);

  if pHost <> nil then
  begin
    Result := pHost^.h_name;
  end
  else
  begin
    Result := '';
  end;

  WSACleanup;

end;

uses WinSock;

function TForm_Main.GetIPName(IP: String): String;

var

WSAData: TWSAData;

sin: TSockAddrIn;

pHost: PHostEnt;

begin

WSAStartup($0202, WSAData);

sin.sin_family := AF_INET;

sin.sin_addr.S_addr := Inet_Addr(pChar(IP));

pHost := gethostbyaddr(Pointer(@sin.sin_addr), 4, PF_INET);

if pHost <> nil then

begin

Result := pHost^.h_name;

end

else

begin

Result := '';

end;

WSACleanup;

end;

이 글 공유하기: