Hallo ich habe ein Problem mit dem Fortsetzen eines pausierenden Threads. Laut Delphi ist die Anweisung
thread.resume veraltet. Die Anweisung thread.start führt aber zu folgender Fehlermeldung:
Exception-Klasse EThread mit Meldung 'Start kann für einen laufenden oder unterbrochenen Thread nicht aufgerufen werden'. Prozess test.exe (5100)
Es gibt zwar schon Diskussionen dazu aber leider bin ich daraus nicht schlau geworden.
Die Threadausführung sieht wie folgt aus:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| procedure TSio.Execute; begin repeat Synchronize(SioSyncProcess); SuspendIfHalted; until terminated; end; |
und im Hauptprogramm hab ich folgende Anweisung benutzt:
Delphi-Quelltext
1:
| if THS.Suspended then begin ths.start; end; |