syncOjs.TEvent extrem langsam

[TomyN]

Hallo,

heute ist mir folgendes passiert: In meiner Anwendung habe ich ein 'klassisches' Eventszenario mit einem Thread mit waitforOject und einem Autoresetevent, der relativ oft (ca alle 10ms) aufgerufen wird.
Bisher habe ich das über die Windows API (CreateEvent, SetEvent etc.) gelöst.
Heute habe ich, im Zuge einer Fehlersuche, den Event durch syncOjs.TEvent ersetzt. Dabei hat sich die CPU Load, den der Taskmanager anzeigt, unter win10/64 (Delphi: 10.3 Rio) um ca den Faktor 3 erhöht :?
Das ganze konnte ich wirklich an diesem Umbau festmachen.

Jetzt frage ich mich, ob das wirklich so ist, und ob auch andere Syncobjekte wie TMutex oder TCriticalsection betroffen sind.

Tomy

[jaenicke]

TEvent ist eine direkte Kapselung der Event-API. Der Unterschied könnte im WaitFor-Aufruf liegen. TEvent kann man mit zwei verschiedenen Warteroutinen verwenden:
CoWaitForMultipleHandles (UseComWait = True) und WaitForMultipleObjectsEx (UseComWait = False)

Ich rate dir daher das WaitFor mit der vorher bei dir verwendeten Implementierung zu vergleichen.

[TomyN]

Hi,

Also ich habe einfach if myEvent.waitFor(XXX) = wrSignaled verwendet, halt analog zu dem
If ( WaitForSingleObject(myEventHandle, XXX) = wait_object_0 ) das ich vorher hatte.

[jaenicke]

Und mit welchen Parametern erzeugst du TEvent?

[TomyN]

Code:

myEvent := syncObjs.TEvent.Create(false);

Nachdem es bei

Code:

myEvent := syncObjs.TEvent.Create(nil, false, false, nil);

was analog zum bisherigen

Code:

myEventHandle := CreateEvent(nil, false, false, nil);

gewesen wäre, eine Fehlermeldung des Compilers gegeben hatte.

[shebang]

Zitat:

Zitat von TomyN (Beitrag 1536163)

Code:

myEvent := syncObjs.TEvent.Create(false);

Mit diesem Aufruf ist ManualReset=True im Gegenatz zu deinem bisherigen Code.

Delphi-Quellcode:

constructor TEvent.Create(UseCOMWait: Boolean);
begin
  Create(nil, True, False, '', UseCOMWait);
end;