用多媒体库 Bass.dll 播放 mp3 [15] - 设置与获取播放速度

本例效果图:

o_88224.png

代码文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)OpenDialog1: TOpenDialog;Button1: TButton;Button2: TButton;Button3: TButton;TrackBar1: TTrackBar;Label1: TLabel;Button4: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure TrackBar1Change(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Button4Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses Bass;varhs: HSTREAM;  {流句柄}procedure TForm1.FormCreate(Sender: TObject);
beginTrackBar1.ShowSelRange := False;TrackBar1.Height := 23;TrackBar1.Max := 100000;TrackBar1.Min := 100;TrackBar1.Position := 44100;if HiWord(BASS_GetVersion) <> BASSVERSION thenMessageBox(0, '"Bass.dll" 文件版本不合适! ', nil, MB_ICONERROR);if not BASS_Init(-1, 44100, 0, 0, nil) thenShowMessage('初始化错误');
end;{打开}
procedure TForm1.Button1Click(Sender: TObject);
varMp3Path: AnsiString;
beginBASS_StreamFree(hs);OpenDialog1.Filter := 'Mp3 文件(*.mp3)|*.mp3|Wav 文件(*.wav)|*wav';if OpenDialog1.Execute thenMp3Path := AnsiString(OpenDialog1.FileName);hs := BASS_StreamCreateFile(False, PAnsiChar(Mp3Path), 0, 0, 0);if hs < BASS_ERROR_ENDED thenText := '打开失败'else beginText := string(Mp3Path);Button4.Click;end;
end;{播放}
procedure TForm1.Button2Click(Sender: TObject);
beginBASS_ChannelPlay(hs, False);
end;{暂停}
procedure TForm1.Button3Click(Sender: TObject);
beginBASS_ChannelPause(hs);
end;{原速}
procedure TForm1.Button4Click(Sender: TObject);
beginTrackBar1.Position := 44100;
end;{设置和获取播放速度}
procedure TForm1.TrackBar1Change(Sender: TObject);
varfreq: Single;
beginfreq := 44100;BASS_ChannelSlideAttribute(hs, BASS_ATTRIB_FREQ, TrackBar1.Position, 0);BASS_ChannelGetAttribute(hs, BASS_ATTRIB_FREQ, freq);Label1.Caption := Format('当前速度比例: %f%%', [freq/44100]);
end;procedure TForm1.FormDestroy(Sender: TObject);
beginBASS_Free;
end;end.
窗体文件:
object Form1: TForm1Left = 205Top = 107Caption = 'Form1'ClientHeight = 119ClientWidth = 286Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesignedOnCreate = FormCreateOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object Label1: TLabelLeft = 32Top = 59Width = 31Height = 13Caption = 'Label1'endobject Button1: TButtonLeft = 24Top = 17Width = 75Height = 25Caption = #25171#24320TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 105Top = 17Width = 75Height = 25Caption = #25773#25918TabOrder = 1OnClick = Button2Clickendobject Button3: TButtonLeft = 186Top = 17Width = 75Height = 25Caption = #26242#20572TabOrder = 2OnClick = Button3Clickendobject TrackBar1: TTrackBarLeft = 24Top = 78Width = 237Height = 32TabOrder = 3OnChange = TrackBar1Changeendobject Button4: TButtonLeft = 186Top = 48Width = 75Height = 25Caption = #21407#36895TabOrder = 4OnClick = Button4Clickendobject OpenDialog1: TOpenDialogLeft = 256end
end

转载于:https://www.cnblogs.com/del/archive/2008/08/22/1274435.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/436114.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

详解WINCE的控制面板

曾经在我的一篇《控制面板的创建》中介绍过WinCE控制面板的结构,不过由于那篇文章其目的只在于控制面板如何调用EXE程序,故对控制面板也仅是泛泛而谈.不过在这篇文章中,我们将对WinCE的使用方法来个整体的详解. 1.控制面板的结构 控制面板其实也是个动态链接库…

【转】设置Win32窗口背景颜色

窗口类结构体中&#xff0c;有一个窗口背景成员&#xff0c;hbrBackground。它是一个画刷句柄类型。在Windows中有各种各样的句柄&#xff0c;比如窗口句柄、实例句柄&#xff0c;画刷句柄&#xff0c;文件句柄等等&#xff0c;他们都是句柄类型&#xff0c;只是每一种句柄都和…

oracle中plsql块的结构,oracle plsql的结构

变量声明部分(没有变量可以不写declare)begin执行部分exception异常处理部分end*&#xff1a;declare 和 exception部分是可选的(1)PL/sql中变量的定义格式1变量名 变量类型 【约束】 default 默认值格式2变量名 变量类型 【约束】【&#xff1a;初始值】(2)一个简单的PL/sql块…

【转】Dicom文件解析!!!!!!

转自&#xff1a;https://blog.csdn.net/leaf6094189/article/details/8510325 Dicom全称是医学数字图像与通讯&#xff0c;这里讲的暂不涉及通讯那方面的问题 只讲*.dcm 也就是diocm格式文件的读取&#xff0c;读取本身是没啥难度的 无非就是字节码数据流处理。只不过确实比较…

VS2008 JS脚本调试总是调试旧代码 真不知道怎么回事?谁能帮帮我呀!

如图,[dynamic]标记的是调试的元文件 xml1.htm[dynamic]和xml.js[dynamic] 我更改后的文件是xml1.htm和xml.js,见图1 2 调试的文件有debugger 更改后的文件我把debugger注了 js脚本中我把变量给改了见3 4 ,所以在浏览新的xml1.htm时,竟然报对象找不到,真实受不了了!!! 为什么我…

蜂窝注册表和永久存储

WindowsCE有两种注册表&#xff0c;一种是基于RAM的&#xff0c;一种是基于蜂窝的注册表&#xff1b;WindowsCE会默认使用前者。如果是使用前者&#xff0c;PB在编译的时候会先把common.reg、platform.reg、project.reg及所有的.reg文件的内容合并到reginit.ini文件&#xff0c…

修改oracle默认日期,Oracle 修改默认日期格式

1、Oracle的日期格式Oracle数据缺省的时间格式数据的显示形式&#xff0c;与所使用的字符集有关。一般显示年月日&#xff0c;而不显示时分秒。例如&#xff0c;使用us7ascii字符集(或者是其他的英语字符集)时&#xff0c;缺省的时间格式显示为&#xff1a;28-Jan-2003&#xf…

【转】C#开发PACS医学影像处理系统(一):开发背景和功能预览

转自&#xff1a;https://www.cnblogs.com/Uncle-Joker/p/13646949.html 本系列文章将从以下模块和大家分享和讨论使用C#开发医学软件PACS和RIS系统&#xff0c; 国内相关资料比较少&#xff0c;也借此机会丰富一下医学软件开发生态&#xff0c;讨论技术难点&#xff0c;希望…

《WF编程》系列之30 - 基本活动:错误处理

《WF编程》系列之30 - 基本活动:错误处理 4.3 错误处理 Fault,故障,现在官方已经将其翻译为错误,那么以后的随笔中我也就采用官方的翻译吧. 错误处理也属于流程控制的一部分,这一节我来介绍一下有关错误处理的活动.错误是指在工作流执行期间发生的异常.我们可以使用错误处理程…

wince 自动启动程序设置

这是我在做wince6的时候为设置自启动而寻找的方法。我发现公司定的这个设备在“Program Files”和windows文件夹下放置的东西在机子重启之后就什么都没有了。我只有使用注册表测试&#xff0c;发现重启后还存在&#xff0c;因此我用注册表方式设置了自启动。而在这个过程中&…

oracle错误27101,ORA-27101ORA-01034错误解决

Oracle已经启动&#xff0c;连接sqlplus后&#xff0c;进行查询&#xff0c;出现下面错误ORA-01034: ORACLE not availableORA-27101: shared memory realm doesOracle已经启动&#xff0c;连接sqlplus后&#xff0c;进行查询&#xff0c;出现下面错误ORA-01034: ORACLE not av…

NOD32升级ID获取器For流星无语更新了

NOD32升级ID获取器For流星无语更新了一下,现在可以直接把用户名密码写入注册表了,连复制/粘贴操作都可以免了...转载于:https://www.cnblogs.com/lxwy/archive/2008/09/05/4420722.html

string也可以很精彩

// //TITLE: // string也可以很精彩 //AUTHOR: // norains //DATE: // Moday 03-November-2008 //Environment: // NONE // 对于习惯于MFC架构的朋友来说&#xff0c;估计直接采用API方式写代码最痛苦的莫过于没有CString。其实&#xff0c;在STL里面&#xff…

oracle存储过程行转列,oracle 存储过程-动态行转列,解决。

create or replace package body pro_test isprocedure Alarm_ContentsByTime(p_StartTime varchar2,----开始时间p_EndTime varchar2,----结束时间io_cursorinOUT out_cursor)iscursor cursor_1 IS--获取 列用于循环。select DISTINCT t.ps_productorcode code, t.PS_PRODUCTO…

【转】【C#】使用fo-dicom完成BMP,JPG,PNG图片转换为DICOM文件

转自&#xff1a;https://developer.aliyun.com/article/672065 最近研究了一下DICOM和BMP文件转换的问题&#xff0c;也是很头大。度娘了很久&#xff0c;也在CSDN等论坛看到一些断断续续的文件&#xff0c;最主要的是代码只是片断&#xff0c;不是完整的实现。头大了。 首先…

(转载)攻击方式学习之(1) - 跨站式脚本(Cross-Site Scripting)

原文地址&#xff1a;http://www.cnblogs.com/coderzh/archive/2008/09/06/1285500.html 声明&#xff1a;本文仅供学习研究之用&#xff0c;对于本文提到的某些网站的XSS漏洞&#xff0c;请读者发扬高尚的人道主义精神不要去危害他人&#xff0c;同时希望相应的网站能够尽快修…

C++设计模式之二 AbstractFactory模式

设计模式的目的就是尽量减少“变化”对程序的影响&#xff0c;尤其是对客户程序的影响。AbstractFactory模式作为创建型模式的一种&#xff0c;解决的就是“new”在变化中可能引起的问题。 先来看看new有何种不好&#xff0c;举个创建汽车的车门的例子&#xff1a; 很自然的一…

oracle win10配置命令,记一次Windows 平台下Oracle 10.2.0.5 EM重新配置

1. 删除EM资料库、dbconsole配置D:\>emca -deconfig dbcontrol db -repos dropEMCA 开始于 2013-2-20 9:53:17EM Configuration Assistant, 10.2.0.5.0 正式版版权所有 (c) 2003, 2009, Oracle。保留所有权利。输入以下信息:数据库 SID: ora10g监听程序端口号: 1521SYS 用户…

【转】Dicom 学习笔记-Dicom 消息服务(DIMSE-C/DIMSE-N)

转自&#xff1a;https://www.jianshu.com/p/2812b0b6e548 引言 DICOM(Digital Imaging and Communications in Medicine)医学数字成像与通信&#xff0c;是医疗影像领域一个非常重要的标准&#xff0c;本文主要简单介绍 DICOM 标准中的消息交换服务。在介绍之前先声明一下&am…

改写DataCogs在MOSS列表中实现三级联动字段

项目中有需求需要实现列表中3级的字段联动。参照小熊的[分享]修复DataCogs二级联动FieldControl支持中文 &#xff0c;改造一下&#xff0c;实现了3级联动字段。另外&#xff0c;还可以实现一个列表中同时有两个&#xff0c;或两个以上互相独立的联动字段&#xff0c; 详细的字…