Eine Frage zu TServerSocket und OnClientread Ereignis

[Stevie]

Die Funktion muss ungefähr folgendermapen aussehen (muss eine Memberfunktion von deiner Form sein!)

Delphi-Quellcode:

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  c: Integer;
  msg: string;
begin
  with (Sender as TServerSocket) do
  begin
    msg := Socket.ReceiveText;
    for c := 0 to Socket.ActiveConnections - 1 do
      Socket.Connections[c].SendText(msg);
    Form1.Memo1.Lines.Add(msg + Name + InToStr(c));
  end;
end;

Außerdem - da hast du recht - musst du jedem ServerSocket diese Funktion mit Server[i].OnClientRead := ClientRead; zuweisen.