next »

[tomas.knoll]

hello,
i remake my application to basswasapi at exclusive mode. Is there option to get peak level of channel ?
i try to BASS_WASAPI_GetDeviceLevel. It return 0.  (yes,  i try set BASS_WASAPI_BUFFER flag)

I have data buffer from mic, at RecordWasapiProc( buffer: pointer; length: dword )...
Is there any method how detect any voice ?
I know one solution, create new channel and feeed it by data from RecordWasapiProc... and use BASS BASS_ChannelGetLevel... Is it right decision, or there is any beth method ? i need only VOX  (voice activation control).

Second question is: Is it albe to initialize 2 sound card at one application ?
for swing between it use (BASS_WASAPI_SetDevice ?) My big problem is that i canot detect what device calls inside
recording procedure CALLBACK WASAPIPROC.

thank you,
Tomas

[Ian @ un4seen]

I have data buffer from mic, at RecordWasapiProc( buffer: pointer; length: dword )...
Is there any method how detect any voice ?
I know one solution, create new channel and feeed it by data from RecordWasapiProc... and use BASS BASS_ChannelGetLevel... Is it right decision, or there is any beth method ? i need only VOX  (voice activation control).

You could indeed feed the data to a push stream (via BASS_StreamPutData) and get the peak level back from BASS_ChannelGetLevel, but another option is to check the data directly yourself, something like this...

DWORD CALLBACK WasapiProc(void *buffer, DWORD length, void *user)
{
float *s=(float*)buffer;
float peak=0;
for (int a=0; a<length/sizeof(float); a++) {
if (peak<fabs(s[a])) peak=fabs(s[a]);
}
// do something with the peak information here
}

Second question is: Is it albe to initialize 2 sound card at one application ?
for swing between it use (BASS_WASAPI_SetDevice ?) My big problem is that i canot detect what device calls inside
recording procedure CALLBACK WASAPIPROC.

Yes, you can use multiple devices simultaneously. You can use BASS_WASAPI_GetDevice in a WASAPIPROC function to detect which device it is dealing with.

[tomas.knoll]

thank you,

finally i translate your code to Delphi ... I post it for Delphi users... here it is:


function GetMircophonePeak: float
var sample: ^float;
    a: integer;
    numSamples: longint;
    MicrophoneLevel: float;
begin
 MicrophoneLevel := 0;
 sample:=buffer;
 numSamples :=length div sizeof(float)-1;
 
 for a := 0 to numSamples do
    begin
    if sample^>MicrophoneLevel then
        begin
        MicrophoneLevel:= sample^;
        end;
    inc( sample ); // to next item in buffer
    end;

 GetMircophonePeak := MicrophoneLevel;
end;



tomas

[tomas.knoll]

hello,

finally i use BASS_WASAPI_GetDevice in a WASAPIPROC function,
but it crash after few hours of nonstop run.
I added try...except block at each command at WASAPRI PROC and
it crash at BASS_WASAPI_GetDevice.

My idea was, that you create one thread for each device, so I add
CriticalSection for inside WASAPIRECORDPROC, but it still crashed.
It did not return error code, it crash application.

Any idea what may be wrong ?

Tomas

[Ian @ un4seen]

That's strange. I'll send you a debug version to confirm what's happening.

[tomas]

hello,

i try to locate problem at application. It crashed for consume all Stack memory.

but, problem is that it happen when i add this 2 lines of code...
 BASS_WASAPI_Init(-1,48000,2, flag,0.05,0.005,@PlaybackWasapiProc,nil);
 BASS_WASAPI_Start();

method PlaybackWasapiProc i let empty for demonstrating only..
When i initialize likethis : BASS_WASAPI_Init(-1,48000,2, flag,0.05,0.005,nil,nil);
nil at delphi = NULL, there is no problem with stack overflow.

I add code for playback wasapi proc...

function PlaybackWasapiProc( buffer: pointer; length: dword ): dword; stdcall;
begin
end;

Application consume about 4KBytesc per 3 second blocks.. I see it at Proccess Manager,
after hour it crash...
Tomas

[tomas]

finaly may be I search problem...

My old declaration of method

function PlaybackWasapiProc(buffer:Pointer; length:DWORD): DWORD; stdcall;

new declaration is:
 function PlaybackWasapiProc(buffer:Pointer; length:DWORD; user:Pointer): DWORD; stdcall;

Tomas

[tomas.knoll]

Ian,
thank you for solving my problem,
your library debug version point to problem,

Tomas