Moin !
Wenn ich einen TIdTcpServer einsetze und es connecten sich Clients, dann kann ich mit folgendem Konstrukt:
Delphi-Quellcode:
procedure TMainFormServer.Button1Click(Sender: TObject);
var
AContextList : TList;
AContext : TIdContext;
AIndex, _i : Integer;
AClient : PClient;
begin
AContextList := TCPServer.Contexts.LockList;
try
for AIndex := 0 to Pred(AContextList.Count) do
begin
AContext := TIdContext(AContextList[AIndex]);
AContext.Connection.IOHandler.WriteLn('*CLOSE')
end;
finally
TCPServer.Contexts.UnLockList;
end;
end;
... eine Message an alle angebundenen Clients senden. Aber wenn ich nicht irre passiert das im Kontext des MainThreads, oder?
Nun existiert aber für jeden angeschlossenen Client ein eigener Thread. Gibt es nicht eine Möglichkeit das ich diesem Thread Daten übergebe und der Thread dann selbstständig die Übermittlung der Daten an den jeweiligen Client übernimmt?
Die Daten kann man dem jeweiligen Thread mittels AContext.Data bereitstellen (so würde ich es jedenfalls versuchen). Jetzt müsste man dem Thread nur etwas Code an die Hand geben um die Daten zum Client zu senden. Denn wenn ich die oben gezeigte Methode nutze, dann blockt mir das bei großen Datenmengen, oder vielen Aufrufen meinen Hauptthread.
Any ideas
