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

Delphi获取本地计算机名称和IP地址2007-11-16本程序介绍如何获取本地计算机的名称和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;