Thread + Timer, Einbinden von TimerThread.pas

**LTE5**

Zitat:

Aufgeweckt wird der Thread entweder wenn TimeOut aufgetreten ist oder wenn mit SetEvent der Event gesetzt wird (extern oder ggf. im Destructor)

Von Außen kann man den Thread leider nur aufwecken, wenn man folgende Änderungen in der Unit vornimmt

markieren

Delphi-Quellcode:

			public

 property Event: TEvent read FEvent write FEvent; // Damit man Event von Außen überhaupt sieht

Und in TCustomThread.Execute

markieren

Delphi-Quellcode:

			// Aus

if FEvent.WaitFor(LInterval) = TWaitResult.wrTimeout then

// wird

if FEvent.WaitFor(LInterval) in [TWaitResult.wrTimeout, TWaitResult.wrSignaled] then

Nur bin ich mir bei der letzten Zeile nicht so sicher, ob das OK ist.

Von Außen kann man dann aufrufen TestThread.Event.SetEvent;

Thread + Timer, Einbinden von TimerThread.pas

AW: Thread + Timer, Einbinden von TimerThread.pas

Forumregeln