void WINAPI BASS_RecordGetInfo(
BASS_RECORDINFO *info
);
typedef struct {
DWORD size;
DWORD flags;
DWORD formats;
DWORD inputs;
BOOL singlein;
} BASS_RECORDINFO;
BASS_RecordGetInfo(info*) : "BASS_RecordGetInfo"
:: BASS_RECORDINFO - Banksize = 17 Byte :::::::::::::::::
Parameter: Offset: C-Type: Blitztyp: Size:
size 0000 DWORD Integer 4 Byte
flags 0004 DWORD Integer 4 Byte
formats 0008 DWORD Integer 4 Byte
inputs 0012 DWORD Integer 4 Byte
singlein 0016 BOOL Byte 1 Byte
Used in: BASS_RecordGetInfo;
---------------------------------------------------------
Include "bass.bb"
BASS_RecordInit(-1)
BASS_RECORDINFO = CreateBank(17)
PokeInt BASS_RECORDINFO,00,17 ; BASS_RECORDINFO.size
BASS_RecordGetInfo(BASS_RECORDINFO)
Flags = PeekInt(BASS_RECORDINFO,04) ; BASS_RECORDINFO.flags
If Flags And DSCCAPS_EMULDRIVER Then
Print "The device's drivers do NOT have DirectSound"
Print "recording support, so it is being emulated."
EndIf
If Flags And DSCCAPS_CERTIFIED Then
Print "The device driver has been certified by Microsoft."
EndIf
Formats = PeekInt(BASS_RECORDINFO,08) ; BASS:RECORDINFO.formats
If Formats And WAVE_FORMAT_1M08 Then Print "11025hz, Mono, 8-bit"
If Formats And WAVE_FORMAT_1S08 Then Print "11025hz, Stereo, 8-bit"
If Formats And WAVE_FORMAT_1M16 Then Print "11025hz, Mono, 16-bit"
If Formats And WAVE_FORMAT_1S16 Then Print "11025hz, Stereo, 16-bit"
If Formats And WAVE_FORMAT_2M08 Then Print "22050hz, Mono, 8-bit"
If Formats And WAVE_FORMAT_2S08 Then Print "22050hz, Stereo, 8-bit"
If Formats And WAVE_FORMAT_2M16 Then Print "22050hz, Mono, 16-bit"
If Formats And WAVE_FORMAT_2S16 Then Print "22050hz, Stereo, 16-bit"
If Formats And WAVE_FORMAT_3M08 Then Print "44100hz, Mono, 8-bit"
If Formats And WAVE_FORMAT_3S08 Then Print "44100hz, Stereo, 16-bit"
If Formats And WAVE_FORMAT_3M16 Then Print "44100hz, Mono, 8-bit"
If Formats And WAVE_FORMAT_3S16 Then Print "44100hz, Stereo, 16-bit"
Inputs = PeekInt(BASS_RECORDINFO,12) ; BASS_RECORDINFO.inputs
Print "number of input sources: " + Inputs
Singlein = PeekByte(BASS_RECORDINFO,16)
If Singlein Then
Print "Only one input may be active at a time."
Else
Print "More than one input may be active at a time."
EndIf
WaitKey
FreeBank BASS_RECORDINFO
BASS_RecordFree
|