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.