Ich bin dabei, ein Chat Programm (mit TServer/ClientSocket) zu schreiben, das für mehr als 2 Benutzer funktioniert. Ich habe es mir so überlegt, dass die Clients die Nachricht an den Server schicken, der sie dann allen Clients schickt.
Mein Problem: Wenn der Server über OnClientRead etwas empfängt, wie geht es dann mit weiterschicken??
Delphi-Quellcode:
procedure TForm1.ssClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
ss.Socket.SendText(ss.Socket.ReceiveText);
end;
So gitbts immer eine Fehlermeldung von Winsock (ich glaube 10053); ich denke mal daher, dass der Server nicht weiß, welchen ReceiveText er nehmen soll.
Wie muss ich diese Prozedure abändern, dass es funktioniert??
Danke
simon