Chat Funktion

[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