程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中用多媒體庫Bass.dll播放 mp3 [2] - BASS_GetDeviceInfo

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

編輯:Delphi

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved