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