Delphi获取本地计算机名称和IP地址

本程序介绍如何获取本地计算机的名称和IP地址。

向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件，设计完成的主界面如图1所示。

图1 主界面

首先在程序的uses段中添加对WinSock的引用，然后添加一个GetHostName自定义函数，在其中调用GetComputerName函数获取计算机名称，响应代码如下：

function TfrmMain.GetHostName:String;
　 var
　　 ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
　　 Size: Cardinal;
　 begin
　　 result:='';
　　 Size := MAX_COMPUTERNAME_LENGTH+1;
　　 GetComputerName(ComputerName, Size);
　　 Result:=StrPas(ComputerName);
end;

添加一个NameToIP自定义函数，在其中调用GetHostByName函数根据计算机名称获取计算机的IP地址，响应代码如下：

function TfrmMain.NameToIP(Name:string):String;
　 var
　　 WSAData: TWSAData;
　　 HostEnt: PHostEnt;
　 begin
　　 result:='';
　　 WSAStartup(2, WSAData);
　　 HostEnt := GetHostByName(PChar(Name));
　　 if HostEnt <> nil then
　　 begin
　　　 with HostEnt^ do
　　　　 result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]);
　　 end;
　　 WSACleanup;
　 end;