{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение имени компьютера

Зависимости: Windows
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ: 148442121 , Санкт-Петербург
Copyright:   Dimka Maslov
Дата:         21  мая  2002  г.
***************************************************** }

function GetComputerName: string;
var
 N: Cardinal;
 Buf: array [ 0 ..MAX_COMPUTERNAME_LENGTH +  1 ] of AnsiChar;
begin
 N:=SizeOf(Buf)- 1 ;
 Windows.GetComputerName(Buf, N);
 Result:=PChar(@Buf[ 0 ]);
end;
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение имени компьютера в локальной сети по его IP адресу

Получение имени компьютера в локальной сети по его IP адресу.

Зависимости: SysUtils, Winsock
Автор:       savva, savva@nm.ru, ICQ: 126578975 , Орел
Copyright:   Сапронов Алексей (Savva)
Дата:         6  июня  2002  г.
***************************************************** }

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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование доменного имени в IP адрес.

Зависимости: WinSock
Автор:       Gua, fbsdd@ukr.net, ICQ: 141585495 
Copyright:   Gua
Дата:         21  мая  2002  г.
***************************************************** }

function HostToIP(Name: string; var Ip: string): Boolean;
var
  wsdata : TWSAData;
  hostName : array [ 0 .. 255 ] of char;
  hostEnt : PHostEnt;
  addr : PChar;
begin
  WSAStartup ($ 0101 , wsdata);
  try
    gethostname (hostName, sizeof (hostName));
    StrPCopy(hostName, Name);
    hostEnt := gethostbyname (hostName);
    if Assigned (hostEnt) then
      if Assigned (hostEnt^.h_addr_list) then begin
        addr := hostEnt^.h_addr_list^; 
        if Assigned (addr) then begin 
          IP := Format ('%d.%d.%d.%d', [byte (addr [ 0 ]), 
          byte (addr [ 1 ]), byte (addr [ 2 ]), byte (addr [ 3 ])]); 
          Result := True;
        end 
        else 
          Result := False;
      end
      else 
        Result := False 
    else begin 
      Result := False; 
    end;
  finally 
    WSACleanup;
  end
end;