editor/bass-sys/win/bass24/delphi/devlist/devlist.dpr

96 lines
1.9 KiB
ObjectPascal
Raw Normal View History

2021-01-05 10:17:41 +00:00
{
BASS device list example
Copyright (c) 2014 Un4seen Developments Ltd.
C++ to Delphi with use API adapted by Evgeny Melnikov
Required Delphi 7 or above
}
program List;
{$APPTYPE CONSOLE}
uses
Bass in '..\Bass.pas';
procedure DisplayDeviceInfo(di : BASS_DEVICEINFO);
var
St : String;
begin
Write(di.name, #13#10#9, 'driver: ', di.driver, #13#10#9'type: ');
case (di.flags and BASS_DEVICE_TYPE_MASK) of
BASS_DEVICE_TYPE_NETWORK :
St := 'Remote Network';
BASS_DEVICE_TYPE_SPEAKERS :
St := 'Speakers';
BASS_DEVICE_TYPE_LINE :
St := 'Line';
BASS_DEVICE_TYPE_HEADPHONES :
St := 'Headphones';
BASS_DEVICE_TYPE_MICROPHONE :
St := 'Microphone';
BASS_DEVICE_TYPE_HEADSET :
St := 'Headset';
BASS_DEVICE_TYPE_HANDSET :
St := 'Handset';
BASS_DEVICE_TYPE_DIGITAL :
St := 'Digital';
BASS_DEVICE_TYPE_SPDIF :
St := 'SPDIF';
BASS_DEVICE_TYPE_HDMI :
St := 'HDMI';
BASS_DEVICE_TYPE_DISPLAYPORT :
St := 'DisplayPort';
else
St := 'Unknown';
end;
St := St + #13#10#9'flags:';
if (di.flags and BASS_DEVICE_LOOPBACK) = BASS_DEVICE_LOOPBACK then
St := St + ' loopback';
if (di.flags and BASS_DEVICE_ENABLED) = BASS_DEVICE_ENABLED then
St := St + ' enabled';
if (di.flags and BASS_DEVICE_DEFAULT) = BASS_DEVICE_DEFAULT then
St := St + ' default';
WriteLn(St, ' (', di.flags, ')');
end;
procedure Main;
var
di : BASS_DEVICEINFO;
i : Integer;
begin
WriteLn('Output Devices');
i := 1;
while BASS_GetDeviceInfo(i, di) do
begin
Write(i, ': ');
DisplayDeviceInfo(di);
inc(i);
end;
WriteLn(#13#10'Input Devices');
i := 0;
while BASS_RecordGetDeviceInfo(i, di) do
begin
Write(i, ': ');
DisplayDeviceInfo(di);
inc(i);
end;
end;
begin
Main;
end.