Delphi中用多媒體庫Bass.dll播放 mp3 [2] - BASS_GetDeviceInfo

Delphi中用多媒體庫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