Zitat von
5etH:
das mit dem senden habe ich eben selbst bemerkt und geändert
aber ich brauch das einen client ohne geht das doch garnet
soll ich einfach statt self ... form2 übergeben ?
Dat Client-Ding ist ein abgespecktes Server-Ding, der Server kann alles was der Client kann (senden, empfangen) und etwas mehr
also nicht notwendig
aber nicht form2 übergeben sondern du erzeugst ja mit TForm2.Create ein Form und die Referenz auf das Object!
also
FormIndex := FormList.Add( TForm2.Create )
dann kannst du mit
TForm2( FormList[ FormIndex ] )
weiterarbeiten (den genauen Zugriff findest du über die Online-Hilfe zu TObjectList, kein Delphi grad offen
)
Dem Formular solltest du auch noch die Daten vom Partner übergeben (Steht im Recieve-Event Socket), damit du darauf auch antworten kannst.
Um zu antworten einfach aus dem Form2 den ServerSocket benutzen und an den übergeben Empfänger zurückschicken.
Sollten sich da mehrere Empfänger pro Raum/Private Nachricht aufhalten, dann musst du in dem Chat-Fenster auch eine ClientListe führen (analog zu der FormListe) und dann an alle senden.
cu
Oliver
EDIT:
Schau dir mal die Funktionsweise von Skype (o.ä.) an, das Haupt-Fenster zeigt dir nur die Buddy-Liste an, der Chat selbst geht über ein eigenes Chat-Fenster
also so wie hier vorgeschlagen.