由ip地址得到计算机名.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 109 行

uses winsock;


function LocalIP: String;

type

TaPInAddr = Array[0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var

phe: PHostEnt;

pptr: PaPInAddr;

Buffer: Array[0..63] of Char;

I: Integer;

GInitData: TWSAData;

begin

WSAStartup($101

GInitData);

Result := '';

GetHostName(Buffer

SizeOf(Buffer));

phe := GetHostByName(buffer);

if phe = nil then Exit;

pPtr := PaPInAddr(phe^.h_addr_list);

I := 0;

while pPtr^[I] <> nil do

begin

Result := inet_ntoa(pptr^[I]^);

Inc(I);

end;

WSACleanup;

end;


function IPAddrToName(IPAddr : String): String;

var

SockAddrIn: TSockAddrIn;

HostEnt: PHostEnt;

WSAData: TWSAData;

begin

WSAStartup($101

WSAData);

SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));

HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr

4

AF_INET);

if HostEnt<>nil then

begin

result:=StrPas(Hostent^.h_name)

end

else

begin

result:='';

end;

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(IPAddrToName(LocalIp));

end;