Nachricht kommt nich bei allen Clients an

Spurius · Beiträge: 142 Win XP Home D3 Prof, D7 Prof

Hallo,
ich hab einen Chat programmiert(indy tcp), und wenn ich einen Server eröffne,
kommt die Nachricht nur bei dem wieder an, der sie gesendet hat.
Der Server soll sie eigentlich an alle die connected sind senden.

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.serverExecute(AThread: TIdPeerThread);
var post: string;
begin
  post := athread.connection.readln;
  memo2.Lines.Add(post);
  athread.Connection.WriteLn(post);
end;

Was ist an meinem Code falsch?
Gruß
Spurius

barfuesser · Beiträge: 324

Der Indy-Server legt für jeden verbundenen Client einen eigenen Thread (AThread) an. Jeder dieser Threads sollte nun, den eingegangenen String an alle anderen Threads weitergeben, damit diese den String an ihren Client senden können.

barfuesser

Spurius · Beiträge: 142 Win XP Home D3 Prof, D7 Prof

Hallo,
und wie kann ich das machen?
Gruß
Spurius

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme