Page 10 - Enumerating Audio Devices

Here's the Form we've been using for our project. I've resized ListBox1 to give us a bit more space and added a second ListBox which we'll populate with the system's audio input devices.

We'll enumerate the audio input devices in the Form's FormCreate event in much the same way as we did with the video:

var
  Form1: TForm1;
  SysDev: TSysDevEnum;
  AudioDevEnum: TSysDevEnum; 

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var
    i: Integer;
begin

// Video SysDev enumeration here // Create an Audio Input Device Enumerator

    AudioDevEnum:= TSysDevEnum.Create(CLSID_AudioInputDeviceCategory);
    if AudioDevEnum.CountFilters > 0 then
    begin
      for i := 0 to AudioDevEnum.CountFilters - 1 do
      begin
        ListBox2.Items.Add(AudioDevEnum.Filters[i].FriendlyName);
      end;
    end;
end;

So, we now have ListBox2 populated with the system's Audio Input Devices' FriendlyNames. My system just has one - the audio on the motherboard - called 'SoundMaxDigitalAudio'.

Let's have a look at some of the properties and functions of the AudioDevEnum structure by using Delphi's 'code insight'

We've already used the CountFilters property to determine the number of input devices for our for...do loop and we've used the Filters property in order to retrieve each Filter's FriendlyName to display in the ListBox.

Recalling that Filter2 is the audio filter in our project, what we now need to do is assign our Filter2.BaseFilter.Moniker property by retrieving the Moniker for our selected input device.

By clicking on its FriendyName in the ListBox we specify the input device's index in the AudioDevEnum structure. We can use the GetMoniker(index: Integer) function to retrieve the Moniker, where index is the same as the selected FriendlyName's ItemIndex in ListBox2.

procedure TForm1.ListBox2Click(Sender: TObject);
begin
    if ListBox2.ItemIndex = -1 then Exit;
    Filter2.BaseFilter.Moniker:= AudioDevEnum.GetMoniker(ListBox2.ItemIndex);

end;

Ok, we've enumerated the audio input devices, listed them in a ListBox and set our Filter2.BaseFilter.Moniker to our selected device. So far, this is very similar to the way we set up the video filter (Filter1). But, from here, audio becomes a little more complicated.

Have another look at the audio input filter of the Filter Graph in our previous project:

Our application should list the various input options (CD Player, Microphone, Aux, etc) and allow the user to select one. We'll look at this in the next part.