zoukankan      html  css  js  c++  java
  • 用多媒体库 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
    
  • 相关阅读:
    完全自主创建Wrapper Tomcat容器
    python新手菜鸟之基础篇
    使用python抓取数据之菜鸟爬虫1
    简单实现Python调用有道API接口(最新的)
    演示嵌套函数定义及使用装饰器
    纯手工搭建VS 2017(社区 免费版)离线安装包
    C#中的PropertyGrid绑定对象,通过改变某一值而动态设置部分属性的特性
    WinForm 画布的标尺和网格
    Open Source
    动态链接库-Win32 DLL的说明
  • 原文地址:https://www.cnblogs.com/del/p/1269916.html
Copyright © 2011-2022 走看看