TTCP Server/Client - Vom Server aus antworten

[schmivi]

Hi..
Also mir ist bewusst, dass dieses Thema schon x-mal angesprochen und gefragt wurde. Aber ich finde wirklich nirgendwo (Delphihilfe, Google, Foren) ein Beispiel oder ähnliches für mein Problem.

Folgendes:

Umgebung:
Delphi 7 Pro
Client mit TTCPclient
Server mit TTCPserver

Der Client verbinden sich einwandfrei zum Server und kann alles senden (text, record etc.).

Client:

Delphi-Quellcode:

begin
     TCPclient1.RemoteHost:='xyz';
     TCPclient1.RemotePort:='123';
     TCPclient1.Open;
end;

begin
     TCPclient1.Sendln(Text);
end;

begin
     TCPclient1.Close;
end;

Server:

Delphi-Quellcode:

procedure TForm1.TTCPserver1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
 var  datain : string; 
begin
   Memo1.Lines.Add('online');
   datain := ClientSocket.Receiveln;
   while datain <> '' do
   begin
      Memo1.Lines.Add(datain);
      datain := ClientSocket.Receiveln;
   end;
   Memo1.Lines.Add('offline');
end;

D.h Verbindung aufbauen, soviel senden wie ich will, Verbindung abbauen, klappt einwandfrei!

Nun würde ich gern vom Server aus zu dem im Moment verbundenem Client etwas zurücksenden. Der Server erstellt für jeden Client einen Thread. Ich habe nicht den geringsten Ansatzpunkt ob ich gleich in der TTCPserver1Accept zurücksenden kann oder ob und wie ich das Event:

Procedure TForm1.TTCPserverGetThread(Sender: TObject;
var ClientSocketThread: TClientSocketThread);

dazu benötige oder einsetze.

Ich hoffe die Frage ist so verständlich. Ihr würdet mir sehr helfen.

Gruß Markus

PS.: Es ist kein INDY und kein TServer/TClientsocket und soll es auch nicht werden.

[schmivi]

Einmal Up, sorry..