program padump;
{$MODE Delphi}
uses SysUtils, Classes, AudioInput, AudioOutput;
var
  AI: TAudioInput;
  AO: TAudioOutput;
  Names: TStringList;
  Idx: array[0..63] of Integer;
  Cnt, i: Integer;
begin
  AI := TAudioInput.Create(48000);
  AO := TAudioOutput.Create(48000);
  Names := TStringList.Create;
  Cnt := 0;
  AI.EnumInputDevices(Names, Idx, Cnt);
  WriteLn('--- INPUT devices (', Cnt, ') ---');
  for i := 0 to Cnt - 1 do WriteLn(Format('%3d  %s', [Idx[i], Names[i]]));
  WriteLn('FindDeviceByName(Direwolf_TX_Output) = ',
          AI.FindDeviceByName('Direwolf_TX_Output'));
  Names.Clear; Cnt := 0;
  AO.EnumOutputDevices(Names, Idx, Cnt);
  WriteLn('--- OUTPUT devices (', Cnt, ') ---');
  for i := 0 to Cnt - 1 do WriteLn(Format('%3d  %s', [Idx[i], Names[i]]));
  Names.Free; AI.Free; AO.Free;
end.