Danke für die Rückmeldung. Die Konfiguration hier ist die selbe.
Wenn ich hier x-Mal auf SetEvent klicke, muss ich allerdings x-Mal auch auf ResetEvent klicken, damit das wieder stimmt.
Aufgefallen ist mir das eigentlich nur, da mein Ringpuffer, der über ein Abort-Event gestoppt und fortgesetzt wird unter iOS nicht lief. Ich hab vorsorglich eingebaut.
Code:
function Check(Event: TEvent): Boolean;inline;
begin
result := Event.WaitFor(0) = wrSignaled;
end;
procedure TDataCache.SetAbort(abort: Boolean);
begin
{$IFDEF IOS}
if Check(ev_abort)=abort then exit;
{$ENDIF}
if (abort) then
ev_abort.SetEvent()
else
ev_abort.ResetEvent();
end;
Christian