[Delphi] Krijg maar 1 connectie met server

[Parcye]

Ik ben bezig in Delphi een client server app te maken waar de server dus verschillende dingen bij houd en de clients kunnen informatie aanvraag daar doen.

Nu is het probleem:
Ik kan maar met 1 client tegelijk met me server verbinden.

Ik gebruik de indy components van Delphi 7

In een thread creeer ik runtime dus die serversocket

Delphi:

  ServerSocket := TIdTCPServer.Create(nil);
  ServerSocket.DefaultPort := Port;
  ServerSocket.OnExecute := ServerExecute;
  ServerSocket.OnConnect := ServerConnect;

De ServerConnect verwerkt het binnen gekomen bericht en stuurd even wat basic info terug.

De ServerExecute die handeld dus alle data aanvraag af. Dit werkt prima als ik met 1 client verbind, maar zodra ik een twee wil verbinden komt deze niet in de OnConnect......

Iemand enig idee? Vergeet ik iets te setten bij de ServerSocket?

[Verwijderd]

Heb je bij de server de local port naar 0 gezet? In visual basic moet ik dit doen zodat VB een willekeurige (local) port toekent aan de socket. Weet niet zeker of dat het is, heb nooit met delphi gewerkt.

[Parcye]

Het probleem is gevonden, zat hem in locklist en unlocklist van indy