Ja, lager es in einen Thread aus. Ich weiß es jetzt auch nicht besser (wenn es überhaipt etwas besseres gäbe).
aber dein oben geposteter Thread klappt so nicht.
- Application.Processmessages brauchst du nicht aufrufen, dafür hast du ja den Thread. Und generell ist Application global, deswegen nicht vom Thread auf diese Variablen zugreifen.
- Die Critical Section ist auch falsch angelegt. Die muss nunmal ausnahmsweise global sein (oder besser: du übergibst eine Referenz auf das Objekt dem Thread), da alle Threads darauf zugreifen müssen (und zwar auf die gleiche Instanz der Klasse).
Außerdem sehe ich in dem Code noch nicht die Notwendigkeit einer CS.
- Erstelle die Socketkomponente im Thread und mache alles über den Thread
- Implementiere eine Messageschleife:while getmessage(msg,0,0,0) do dispatchmessage(msg)
, oder so ähnlich
- Alternativ zur Messageschleife kannst du den Client auch auf Blocking-Mode stellen (Socket.clienttype:=ctBlocking), aber ob das durchängig sinnvoll ist, mag ich jetzt nicht abschätzen. Zumindest bleibt dann der Thread beim Empfang stehen, solange es nichts zu empfangen gibt und kein fehler aufgetreten ist.