Eigener Delphi Chat - Probleme
 

Hey ho und noch eine frage von mir =)
ich habe in delphi einen chat gebastelt zwar streng nach einem Tutorial aaaaaaaber gut
soweit geht auch alles ich kann mit einem Clienten Senden -> Server empfängt und senden an den Selben Clienten zurück -> Text Erscheint.

Soweit hört sich das ja schon garnicht mal soooooooo schlecht an, nur jetzt kommt ein 2. hinzu wenn er sendet sieht er sein geschriebenes so wie es sein soll nur der erste sieht es nicht. Klingt Kompliziert ist aber ganz einfach zu verstehn.

Beispiel:

Client_1 loggt sich um 10:10 in den Server ein.
Client_1 fragt nach ob sich jemand im Chat befinded

um 10:11 loggt sich Client_2 ein
Client_2 fragt schreibt ein einfaches "Moin" in den Chat.
Client_1 empfängt diese Nachricht nicht da der Server die Nachricht nur an den Selben Clienten zurück sended.


Ich stelle am besten einfach mal das Gesammte Projekt in den Anhang wäre Super wenn jemand mal gucken könnte.

Ich vermute den Fehler im Server.

MfG
Daniel

PS:
Danke für eure Hilfe und Gedlut =)

[Link nur für registrierte und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...]

Du sendest halt nicht an alle zurück :)

Ersetz in deinem Project mal bei "TForm1.ServerSocket1ClientRead" die Zeile
"Socket.SendText(Form1.Memo1.Text);"
mit
"for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
ServerSocket1.Socket.Connections[i].SendText(Form1.Memo1.Text);"

Die namen der Komponente musst du nur noch anpassen, dann sollte es funktionieren.

man ich liebe dich dafür! =) DANKE! :D

Kein Problem :D