Problem mit Programminternem Chat

[5etH]

das mit dem senden habe ich eben selbst bemerkt und geändert :oops:

aber ich brauch das einen client ohne geht das doch garnet :?:

soll ich einfach statt self ... form2 übergeben ?

[Sir Rufo]

Zitat:

Zitat von 5etH

das mit dem senden habe ich eben selbst bemerkt und geändert :oops:

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

Delphi-Quellcode:

FormIndex := FormList.Add( TForm2.Create )

dann kannst du mit

Delphi-Quellcode:

TForm2( FormList[ FormIndex ] )

weiterarbeiten (den genauen Zugriff findest du über die Online-Hilfe zu TObjectList, kein Delphi grad offen :mrgreen: )

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.

[5etH]

bei dem befehl sacht er mir das ich nicht genügend wirkliche parameter übergebe aber in der hilfe steht das er nicht mehr will als den ???

Delphi-Quellcode:

counter := FormList.Add(TForm2.Create);

[Sir Rufo]

FormList.Add will keine weiteren Parameter aber TForm2.Create braucht einen Parameter ;)
Da kannst du nil nehmen, musst dich aber dann um das Entfernen des Forms selber kümmern, was in diesem Fall auch besser ist, weil das Form ja in der FormList enthalten ist.

[5etH]

also ich kann immernoch nur eine nachricht schicken dann nixmehr ... nehme an das es mit der objectlist zusammenhängt ... wahrscheinlich kein abgleich

da werde ich mal jetzt genauer debuggen

habs aber totzdem nochmal hier hochgeladen falls dir ja was auffällt

aber auf jedenfall schonmal vielen vielen vielen dank das du dir so viel zeit für mich genommen hast ;)

gruß manu

[5etH]

mir ist aufgefallen das in DATA onclientread das receivetext in zeile 69 leer ist ????

wie kann das denn sein ?

[Sir Rufo]

Du benutzt ja immer noch den ClientSocket im ChatForm.
Verleg den ganzen Verwaltungskram für den Chat nach DATA.pas (schon wegen der Trennung Anzeige, Verarbeitung)

Wofür brauchst du die Variable counter in der Klasse? Die Variable wird doch nur in der Function benutzt, kann also dort deklariert werden, und vor allem nicht in Form1 (s.o.). Wenn du wissen willst wieviele Forms in FormList sind, dann kannst du das über FormList.Count abfragen!
Und dann würde ich die Variable auch FormIndex nennen, weil in der Variable ja nix gezählt werden soll ;)

[Sir Rufo]

Zitat:

Zitat von 5etH

mir ist aufgefallen das in DATA onclientread das receivetext in zeile 69 leer ist ????

wie kann das denn sein ?

Weil du immer noch mit diesem komischen ClientSocket arbeitest! Mach den weg und lass alles zentral über den ServerSocket laufen!

EDIT:

Pro Chat-Fenster hast du ja sonst eine Verbindung stehen, was völlig überflüssig ist. Auch die Anzahl der Ports (jeder ClientSocket belegt einen) ist begrenzt, sind zwar ne Menge aber begrenzt. Ein ServerSocket -> Ein Port fertig.

[5etH]

also meiner meinung nach brauche ich einen client weil ich sonst ja garkeine verbindung erstellen kann

aber nagut kannst mich ja überzeugen ... hab den jetzt komplett raus und jetzt siehts echt düster aus weil jetzt schickt er garnichts mehr :cry:

hier nochmal das aktuelle programm ohne Client

[Sir Rufo]

in der DATA.pas

Delphi-Quellcode:

procedure TDataModule3.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);

Den Socket den du da bekommst, den übergib mit an das Form2 (ja, da musst du eine entsprechende Variable anlegen, damit das darin gespeichert werden kann), sagen wir mal MySock : TCustomWinSock;
In der Form2 kannst du dann mit MySock.SendText() die Nachricht schicken!

Der Code in der DATA.pas sieht grauenvoll aus.

Du erzeugst eine TForm2 (Zeile 43) und dann erzeugst du wieder eine TForm2 (Zeile 56) und die übergibst du dann???
Die erste Form wird angezeigt (Zeile 59) die zweite Form bleibt im Nirwana.

Form1.Counter wird gesetzt (Zeile 56) und dann nochmal einen hochgezählt (Zeile 61) ist aber für nix gut!

Über das Form1.StringGrid1 holst du dir die Anzahl und hoffst, dass das auch mit FormList passt ( Zeile 65-68 )!

Es ist alles sehr konfus ...

Also mach TForm2 als Klasse mit einem Memo1 und einem MySocket : TCustomWinSocket.
Das Form1.StringGrid1 kannst du eigentlich vergessen (oder wenn du magst als Anzeige für den Inhalt vom FormList nehmen).

Die Überprüfung kannst du dann wie folgt machen (FormList gehört in DATA.pas und nicht nach Form1)

Delphi-Quellcode:

for 
  i := 0 to 
  FormList.Count - 1 
do
  if 
    Socket.RemoteAddress = TForm2( FormList[ i ] ).MySocket.RemoteAddress
  then
    TForm2( FormList[ i ] ).Memo1.Lines.Add( Socket.ReceiveText );