TIdTCPServer (Indy) und TClientSocket

[Bambini]

Zitat von Schwedenbitter:

Zitat von Bambini:

Das OnExecute wird ja ausgelöst, nur der darin ausgeführte AContext.Connection.Socket.ReadLn(); wartet auf ein CR/LF.

Nein, leider nicht. Ich habe es eben nochmals ausprobiert, indem ich #13#10 wieder auskommentiert habe. OnExecute wird nicht abgefeuert.

hm, bei mir schon.

Zitat von Schwedenbitter:

Wie geht denn das?

Dein Code sollte so aussehen:

Delphi-Quellcode:

Procedure TForm1.IdTCPServerExecute(AContext: TIdContext);
Var
   Data:String;
Begin
   Data:= AContext.Connection.Socket.ReadLn();
   Data:= Trim(Data);
  TThread.Synchronize(nil, procedure()
     begin
        ScrollLog('[Srv]: received:');
         ScrollLog('=> ' + Data);
     end);

Zitat von Schwedenbitter:

Innerhalb eines Threads ist mir das klar. Da Du das weißt, hast Du vermutlich meinen Quellcode angeschaut. Dort habe ich die das Polling des TIdTCPClient extra in einen Thread ausgelagert.

Passt.

Zitat von Schwedenbitter:

Dann müsste ich ja eine eigene Klasse von TIdTCPServer reinbasteln. Das ist dann auch - gelinde gesagt - ungünstig, wenn man Objekte in die IDE integriert, ich als Laie denke, alles ist schick, und mir das dann um die Ohren fliegt ...
Danke schon mal für den Hinweis.

Ich will nur sagen, dass das OnExecute() from TidTCPIPServer von einem Thread aus gerufen wird. Das macht die Komponente schon ganz alleine. Jedoch muss man dann aufpassen, das deine Code dann Threadsicher ist. D.h. Zugriffe auf Globale Variablen und UI sind zu synchronisieren (s.o.)