Okay, werde mich einaml ein bisschen schlau mahcen über richedits....
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (ClientSocket1.Active=true) and (Edit1.Text<>'') then
ClientSocket1.socket.SendText(Nickname+': '+Edit1.Text);
Edit1.Text := '';
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Show;
Memo1.Lines.Add(Socket.ReceiveText)
end;
Hier der Auszug aus meinem Client.
Lg La.Reunion