TClientsocket soll warten in Thread

[shmia]

Versuch' mal statt einem Sleep:

Delphi-Quellcode:

WaitForSingleObject(self.Handle {handle of object to wait for},
    30000  {time-out interval in milliseconds }  );

Gegebenfalls musst du noch das Result von WaitForSingleObject auswerten und mit WAIT_TIMEOUT vergleichen.

[Schwedenbitter]

Zitat:

Zitat von shmia

Versuch' mal statt einem Sleep: ...

oder auch so (edit: OHNE THREAD):

Delphi-Quellcode:

Procedure Delay(Zeit: DWord);
Var
   Start         : DWord;
Begin
   Start:=GetTickCount;
   While (GetTickCount - Start) <= Zeit Do
      Application.ProcessMessages;
End;

So mache ich das.

Gruß, Alex

[sirius]

Hast du tatsächlich die Client-Komponente in einem Thread? Wenn ja, dann wird es etwas aufwendiger als bisher beschrieben, ansonsten mache das, was uoeb7gp gesagt hat.

[shmia]

Application.ProcessMessages aus einem Thread heraus - das geht ja mal gar nicht.
Dann werden nämlich Windows-Botschaften aus dem Hautpthread und dem Nebenthread bearbeitet => das verträgt die VCL nicht!

[Schwedenbitter]

Ich hatte bei meiner Antwort den Titel des Themas nicht beachtet.
Ich ging bei der Antwort deshalb davon aus, dass es einfach nur um ein "Warten" ging. Ich habe daher meine Antwort etwas modifiziert!

Gruß, Alex