用多媒體庫 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;interfaceuses  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  endend