Wie bekomme ich den Namen des anfragenden Clients (Indy10)

[Oracle]

Hallo zusammen.

Ich habe eine Client Server Anwendung mit den Indy 10 Komponenten geschrieben.
Jetzt würde ich gerne Serverseitig die Namen der anfragenden Clients wissen.
Die IP Adresse bekomme ich über

AContext.Binding.PeerIP heraus.

Oder liefern mir die Indy Komponenten den Namen nicht mit, und ich muss mir den über die IP Adresse über eine spezielle Funktion aus dem Netzwerk auslesen.

Vielen Dank schonmal im Vorraus

[nahpets]

Hallo,

schau mal bitte hier: get_computer_name_from_ip_address

[himitsu]

Oder du fragst den Clienten direkt.
Also so daß der Client einen Namen selbst übermittelt.

[Oracle]

Sehr gut Danke . Unter deinem Link habe ich folgendes gefunden:

Delphi-Quellcode:

function IPAddrToName(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
    Result := StrPas(Hostent^.h_name)
  else
    Result := '';
end;

Damit funktionierts Prima!