DELPHI AREA Forum

Hi,
in "unit WaveRedirector"
I have a question,
Is this correct?

Code: Select all

function TAudioRedirector.GetActive: Boolean;
begin
  Result := AudioIn.Active or AudioIn.Active;
end;


Other question:
sometimes, while Async = True after terminate program i receive follow error: EWaveAudioInvalidOperation "Device is aleardy close"
i guess problem is in "InternalClose" or on "destroy"
thanks for answer.
best regard

It is wrong! Please correct it:

Code: Select all

function TAudioRedirector.GetActive: Boolean;
begin
  Result := AudioIn.Active or AudioOut.Active;
end;

Thank you!

What about second question?

I have no idea. Sorry, I'm too busy nowadays. I'll look it later.

But in my tests I have never seen this problem. If you are using threaded mode, be sure your event handlers are thread safe. Also, before shutting down the application, on OnClose event of the form, close the active devices.

Hi, Mr Kambiz
Could you take a look at the second question again? (also my code is thread safe).
thanks.

Without having the code I cannot help, sorry.