TIdTCPServer (Indy) und TClientSocket

[stahli]

Ich hatte hier noch nichts beigetragen, weil ich nicht wusste, ob ich das Problem überhaupt richtig verstanden habe.
Da ich aber angesprochen wurde versuche ich mal was ins blaue...

Indy funktioniert immer blockierend.
Client fragt beim Server an und wartet auf Antwort.
Der Server startet Threads für die Verarbeitung der Anfrage.

Hierzu mal ein älterer Beitrag:
http://www.delphipraxis.net/171226-i...o-clients.html



Ich habe jetzt mal eine asynchrone Kommunikation getestet:
http://www.delphipraxis.net/190482-s...ockettest.html

Das funktioniert anscheinend richtig gut und ich bin dabei, mein echtes Projekt von Indy darauf umzustellen.
Die Sockets funktionieren aber m.E. in dieser Form nur unter Windows.

Falls das irgendwann doch Probleme macht, könnte ich dies auch wieder auf Indy oder etwas anderes umstellen, da Server und Clients im Grunde "Message-Objekte" austauschen, die mein Package automatisiert ordnet, zerlegt, überträgt, wieder herstellt und auf der Empfangsseite zur Verarbeitung bereitstellt.
Ob die Übertragung dabei über Sockets oder Indy bzw. asynchron oder blockierend erfolgt ist dann eher nebensächlich.

[Schwedenbitter]

Danke.

Ich hätte furchtbar gern die Sockets von Delphi genutzt. Aber ich habe das Problem, dass diese sich faktisch nicht aus der VCL lösen lassen und ich damit mit Linux/Wine scheitere. "Das funktioniert anscheinend richtig gut." kann ich nur bestätigten, nützt mir aber nichts
Ich wollte deshalb wenigstens auf der Client-Seite bei den Sockets bleiben, damit ich nicht alles neu programmieren muss. Aber irgendwie kommt vom TClientSocket nichts beim TIdTCPServer an.

Blockierend bedeutet, dass ich lesen kann, dann aber meine GUI hängt oder ich es in einen Thread auslagere, richtig? Ich habe mich für Letzteres entschieden und jetzt mal wieder Quellcode angehängt. Beteiligt an der Spielerei sind TClientSocket, TIdTCPClient und TIdTCPServer.

Nach meinem beschränkten Verständnis sollte doch beim Senden vom Server wenigstens irgend etwas ankommen - also zumindest das Ereignis ausgelöst werden. Ich bin immer noch nicht dahiner gestiegen, warum das so ist

[OT]
Ein weiteres lustiges Phänomen ist auch, dass der TIdTCPServer offenbar ein Problem damit hat, die richtige Anzahl der verbundenen Clients zu liefern. Auch hierzu habe ich mich eines Codes aus dem www bedient, der jedoch merkwürdige Werte liefert. Aber dazu mache ich ggf. ein anderes Thema auf ...
[/OT]

[Bambini]

Zitat von Schwedenbitter:

Aber irgendwie kommt vom TClientSocket nichts beim TIdTCPServer an.

Du machst in deinem IdTCPServerExecute auf Server Seite ein ReadLn().
Daher musst du auch ein "Satz" mit CR/LF schicken. Also noch ein +#13#10 dranhängen.

[Schwedenbitter]

Zitat von Bambini:

Daher musst du auch ein "Satz" mit CR/LF schicken. Also noch ein +#13#10 dranhängen.

Volltreffer! Tausend Dank.
Warum das so ist, verstehe ich trotzdem nicht so ganz. TClientSocket sendet etwas ab, was z.B. TServerSocket auch ohne #13#10 empfangen würde. Dass ich mit ReadLn(); auslese, ist korrekt. Aber das Ereignis OnExecute wird nach meinem Verständnis ausgelöst, wenn Daten kommen. TIdTCPServer weiß doch zu diesem Zeitpunkt noch gar nicht, wie ich was auslesen werde. Warum wird es ohne #13#10 nicht ausgelöst?
Wenn mir jetzt noch jemand dieses - aus meiner Sicht - merkwürdige Verhalten erklären könnte, wäre das phönomenal.

Danke aber auf jeden Fall an alle und insbes. Bambini - auf diese Lösung wäre ich nie gekommen!

Gruß, Alex

[Bambini]

Zitat von Schwedenbitter:

Aber das Ereignis OnExecute wird nach meinem Verständnis ausgelöst, wenn Daten kommen. TIdTCPServer weiß doch zu diesem Zeitpunkt noch gar nicht, wie ich was auslesen werde. Warum wird es ohne #13#10 nicht ausgelöst?

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

PS: Das OnExecute wird aus einem Thread aus gerufen, d.h. Zugriffe auf die UI (bei dir das TMemo) sind da gefährlich. Das sollte mit TThread.Synchronize(nil, ...) geschützt werden.

[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.

Zitat von Bambini:

PS: Das OnExecute wird aus einem Thread aus gerufen, d.h. Zugriffe auf die UI (bei dir das TMemo) sind da gefährlich. Das sollte mit TThread.Synchronize(nil, ...) geschützt werden.

Wie geht denn das?
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. 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.

[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.)