1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

function T_TcpServer.GetClientName( I : Integer; var E : String ): String;
var
  name      : TSockAddr;
  Host      : PHostEnt ;
  L         : Integer  ;

begin
  E      := ''            ;
  Result := ''            ;
  L      := SizeOf( name );
  E      := 'Conn'        ;
  if oSock[ I ].Conn then
  begin
    FillChar ( name, L, #0 )                                  ;
    name.sin_family := AF_INET                                ;
    name.sin_port   := oPortNr                                ;
    E               := 'getpeername'                          ;
    iRes            := getpeername( oSock[ I ].Sock, name, L );
    if iRes = 0 then
    begin
      try
        E      := 'gethostbyaddr';
        Host   := gethostbyaddr( @name.sin_addr, SizeOf( name.sin_addr ), AF_INET );
        E      := 'host^';
        Result := host^.h_name;
      except
      end;
    end;
    E := '';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  PHostEnt = ^THostEnt;
  {$EXTERNALSYM hostent}
  hostent = record
    h_name: PChar;
    h_aliases: ^PChar;
    h_addrtype: Smallint;
    h_length: Smallint;
    case Byte of
      0: (h_addr_list: ^PChar);
      1: (h_addr: ^PChar)
  end;
  THostEnt = hostent;					

1:
2:
3:
4:

  except
    on E:Exception do
      E := E.Message;
  end;					

1:

if Assigned( host ) then Result := host^.h_name;