TIdTCPServer - Message an Clients Thread basiert

**moelski**

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

TIdTCPServer - Message an Clients Thread basiert

TIdTCPServer - Message an Clients Thread basiert

Forumregeln