ICS TWSocketServer mit socksAuthenticate funkt nicht

[Kostas]

Hallo Zusammen,

leider habe ich kein Dokument gefunden indem beschrieben wird wie socksAuthenticate funktioniert.
Es reicht nicht aus einfach "socksAuthenticateUsercode" und "SocksUsercode" + "SocksPassword" zu setzen.

Ich möchte damit erreichen dass nur meine Clients sich auf dem Server anmelden dürfen. Jede nicht autorisierte
Socket Verbindung soll sofort die connection beenden.
Hat jemand eine Idee wie das geht mit der integrierten socksAuthenticate?

[Edit] meine Clients haben natürlich auch "socksAuthenticateUsercode", "SocksUsercode", "SocksPassword" gesetz gekommen.

Delphi-Quellcode:

  WSocketServer1.Close;
  WSocketServer1.Proto := 'tcp';
  WSocketServer1.Addr := '0.0.0.0';
  WSocketServer1.Port := edPort.Text;
  WSocketServer1.ClientClass := TClientConnection;
  WSocketServer1.Banner := 'Willkommen auf dem Server';
  {das reicht nicht aus}
  WSocketServer1.socksAuthenticate := socksAuthenticateUsercode;
  WSocketServer1.SocksUsercode := edUsercode.Text;
  WSocketServer1.SocksPassword := edPassword.Text;

  WSocketServer1.Listen;

Gruß Kostas