用多媒体库 Bass.dll 播放 mp3 [2] - BASS_GetDeviceInfo: 获取当前音频输出设备列表

Delphi 2009 中使用需要修改一下 Bass.pas 中 BASS_DEVICEINFO 结构的定义, 不然会乱码:

---

//把

BASS_DEVICEINFO = record

  name: PChar;        // description

  driver: PChar;      // driver

  flags: DWORD;

end;



//改为

BASS_DEVICEINFO = record

  name: PAnsiChar;        // description

  driver: PAnsiChar;      // driver

  flags: DWORD;

end;


 
   

本例效果图:

---

代码文件:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    ListBox1: TListBox;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses Bass;



procedure TForm1.FormCreate(Sender: TObject);

begin

  if HiWord(BASS_GetVersion) <> BASSVERSION then

    MessageBox(0, '"Bass.dll" 文件版本不合适! ', nil, MB_ICONERROR);



  ListBox1.Align := alTop;

  Button1.Caption := '获取当前音频输出设备列表';

end;



procedure TForm1.Button1Click(Sender: TObject);

var

  info: BASS_DEVICEINFO;

  i: Integer;

begin

  i := 1;

  while BASS_GetDeviceInfo(i, info) do

  begin

    ListBox1.Items.Add(string(info.name));

    Inc(i);

  end;

end;



end.


 
   

窗体文件:

---

object Form1: TForm1

  Left = 0

  Top = 0

  Caption = 'Form1'

  ClientHeight = 125

  ClientWidth = 195

  Color = clBtnFace

  Font.Charset = DEFAULT_CHARSET

  Font.Color = clWindowText

  Font.Height = -11

  Font.Name = 'Tahoma'

  Font.Style = []

  OldCreateOrder = False

  OnCreate = FormCreate

  PixelsPerInch = 96

  TextHeight = 13

  object Button1: TButton

    Left = 8

    Top = 86

    Width = 179

    Height = 25

    Caption = 'Button1'

    TabOrder = 0

    OnClick = Button1Click

  end

  object ListBox1: TListBox

    Left = 24

    Top = 8

    Width = 113

    Height = 73

    ItemHeight = 13

    TabOrder = 1

  end

end