Von Server zu Client einen Text senden

[xthing]

Hi Leute,

ich habe ein Problem, wenn ich einen Text vom TCP Server zum TCP Client senden möchte. Von Client zum Server geht ohne Probleme. Immer wenn ich einen Text vom Server zum Client senden möchte, kommt die Fehlermeldung, die als Attachment angefügt habe. Hier der Source Code:

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//Initialisierung des Objekts (ältere Delphi-Versionen)
Server := TServerSocket.Create(Form1);
Client := TClientSocket.Create(Form1);
Server.OnClientRead := ServerClientRead; //Nur bei älteren Versionen
//Server.OnClientWrite := ServerClientWrite; // Nur bei älteren Versionen
Client.OnRead := ServerRead; // Nur bei älteren Versionen
try
Server.Port := 10024;
Server.Open;
Client.Port := 10024;
Client.Host := '127.0.0.1';
//Client.Open;
Client.Active := True;
except
//Im Fehlerfall wieder freigeben (ältere Versionen)
Client.Free;
Server.Free;
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Client.Free;
Server.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Client.Socket.SendText('Hallo!');
Server.Socket.SendText('selber Hallo!');
end;

procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
MSG: String;
begin
//Der Text wird in der Variable MSG gespeichert
MSG := Socket.ReceiveText;
//Der Text wird einem MemoFeld hinzugefügt
Memo1.Lines.Add(MSG);
end;

procedure TForm1.ServerRead(Sender: TObject; Socket: TCustomWinSocket);
var
MSG: String;
begin
//Der Text wird in der Variable MSG gespeichert
MSG := Socket.ReceiveText;
//Der Text wird einem MemoFeld hinzugefügt
Memo1.Lines.Add(MSG);
end;

end.

Was hab ich falsch gemacht?
Könnt Ihr mir helfen?

Danke im voraus.
Gruß
xthing

[Muetze1]

Ein Server kann im Gegensatz zum Client immer mehrere Verbindungen haben und somit musst du schon angeben an welche Verbindung du zurück senden möchtest.

Delphi-Quellcode:

If ( ServerSocket.Socket.Connection.Count > 0 ) Then
  ServerSocket.Socket.Connection[0].SendText('Hier gehts lang');

[xthing]

@Muetze1

super, danke klappt.

Grüsse
xthing