随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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

posted on 2008-08-17 21:22  万一  阅读(...)  评论(...编辑  收藏