TServerSocket OnClientRead - Client # identifzieren

[sirius]

TSocketNotifyEvent ist die Routine, welche du oben gerade implementierst. Das kennzeichnende daran sind die 2 Übergabeparameter. Zum einen Sender: ist hier nicht von Interesse. Zum anderen "Socket": Das ist genau das Socket, dass dir geschrieben hat und an welches du antworten musst/kannst.
Du kannst jetzt natürlich noch etwas probieren:

Delphi-Quellcode:

for x:=0 to ServerSocket.SocketCount-1 do
  if ServerSocket.Socket[x]=Socket then Socketnumber:=x;

aber du wirst feststellen, dass es quatsch ist, erst die Nummer rauszusuchen um dann gleich wieder aus der Nummer das entsprechende Socket zu bestimmen.