syncOjs.TEvent extrem langsam

[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 von TomyN:

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;