Hallo,
ich habe einen Chat programmiert und habe jetzt das Problem, dass wenn ein Client eine Nachricht an den Server schickt, diese zwar beim Server ankommt, aber der Server diese nicht an alle Clients zurückschickt, sondern nur an der Client, der die Nachricht geschickt hat.
Mein Code für das Schicken der Nachricht sieht so aus:
Delphi-Quellcode:
procedure TForm1.serverExecute(AThread: TIdPeerThread);
var post: string;
begin
post := athread.connection.readln;
memo2.Lines.Add(post);
athread.Connection.WriteLn(post);
end;
Gruß
Spurius