96 lines
1.9 KiB
ObjectPascal
96 lines
1.9 KiB
ObjectPascal
|
{
|
||
|
|
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.
|