delphi -----获取计算IP

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

function NameToIP(Name:string):String;
var
  WSAData: TWSAData;
  Client_HostEnt: PHostEnt;
begin
  result:='';
  WSAStartup(, 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^[]), Byte(h_addr^[]),
    Byte(h_addr^[]), Byte(h_addr^[])]);
  end;
  WSACleanup;
end;