Chat-Programm

[simon04]

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

[Die Muhkuh]

Herzlich willkommen in der DP :hello:

So ein Chat is ja heute sehr beliebt...

Delphi-Quellcode:

{OnClientRead}
var
  I: Integer;
begin
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
    begin // Anzahl der Teilnehmer
      with ServerSocket1.Socket.Connections[I] do
      begin // Auswahl des Teilnehmers
        if (Connected) then
          SendText(msg); // Text senden
      end;
    end;
  end;

[simon04]

Danke!!
Habe den Code für mein Programm umgeschrieben... es geht!! :)

simon

[Die Muhkuh]

bitte bitte.