delphi -----获取计算IP

function 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;

function NameToIP(Name:string):String;
var
  WSAData: TWSAData;
  Client_HostEnt: PHostEnt;
begin
  result:='';
  WSAStartup(2, WSAData);
  Client_HostEnt := GetHostByName(PChar(Name));
  if Client_HostEnt <> nil then
  begin
    with Client_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;