Chat Funktion

[delphis spassbremse]

also viel umändern musst du da nicht...

setz mal die procedure vor
"procedure TForm1.ChatClick(Sender: TObject); "

und ersetze
"form1.ServerSocket1.Socket.SendText(edit5.tex t); "

durch

"message_broadcast(form1.ServerSocket1.Socket, edit5.Text);"

Grüße,

Björn

[angos]

sehe ich das richtig, dass du nur den clientsocket initialisierst und dann versuchst über den Serversocket zu senden? Habe zwar mit Sockets noch nichts zu tun gehabt, aber das scheint doch das eigentliche Problem zu sein, oder?

[delphis spassbremse]

jap, das ist auch ein problem.

Nur ich hab gleich im ersten Post gesehen, dass es nicht funktionieren kann, da bei ServerSocket.socket.sendtext() kein empfänger angegeben ist.

Du kannst Daten nur an eine bestehende Verbindung gleichzeitig senden.

Bei ServerSocket.socket.sendtext() ist keine Verbindung angegeben.
Also sendet der ins nichts und löst ne exception aus.

Grüße,

Björn

[Counter909]

ahhh jetzt hat es endlich geklappt :-)



außerdem war noch ein fehler:

es muss so aussehen, um die nachricht zu erhalten:

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 memo1.Lines.Add(Socket.ReceiveText)
end;

vielen dank für die schnellen hilfen :-)

[Counter909]

oh sorry...



ist das normal, dass ich eine nachricht nur vom client zum server schicken kann ?

wen ich es andersrum mache, dann schmiert das programm ab :-|


SERVER:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var text:string;
begin
memo1.Lines.Add('Host: '+edit1.Text+'');
serversocket1.Socket.SendText(edit1.Text);

end;

procedure TForm2.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  memo1.Lines.Add('Client: '+Socket.ReceiveText+'')
end;

Client:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var text:string;
begin
 memo1.Lines.Add('Client: '+edit1.Text+'');
 clientsocket1.Socket.SendText(edit1.Text);
end;

procedure TForm2.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var text:string;
begin
memo1.Lines.Add(Socket.ReceiveText)
end;

also ich kann nur in eine Richtung einen Text schicken


mfg

[IceBube]

Hallo!

Zitat:

Zitat von Counter909

ist das normal, dass ich eine nachricht nur vom client zum server schicken kann?...also ich kann nur in eine Richtung einen Text schicken

Ja, der Server empfängt die gesendeten Daten von den Clienten.

Also musst du auf der ServerForm einen "TServerSocket" + einen "TClientSocket" haben, auf der ClientForm jedoch brauchst du nur einen "TClientSocket"..

lg

[Cyf]

Zitat:

Zitat von IceBube

Also musst du auf der ServerForm einen "TServerSocket" + einen "TClientSocket" haben

TServerSocket reicht...

Zum Senden zum Client nochmals:

Delphi-Quellcode:

ServerSocket.Connections[i].SendText(TextStr);

Außerdem deklarierst du eine Menge lokale Variablen und nutzt sie dann nicht und Informationen gehören nicht im visuellen Bereich gespeichert.

[Counter909]

ah es hat geklappt :-)


nochmal für alle:
beim Server müsst ihr dann

Delphi-Quellcode:

serversocket1.Socket.Connections[0].SendText(text);

eingeben