用多媒体库 Bass.dll 播放 mp3 [8] - 实时显示左右声道的峰值

为什么80%的码农都做不了架构师?>>>   hot3.png

本例效果图:

26153313_OZKv.gif

代码文件:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, ComCtrls;typeTForm1 = class(TForm)OpenDialog1: TOpenDialog;Timer1: TTimer;Button1: TButton;Button2: TButton;Button3: TButton;ProgressBar1: TProgressBar;ProgressBar2: TProgressBar;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure Timer1Timer(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses Bass;varhs: HSTREAM;  {流句柄}procedure TForm1.FormCreate(Sender: TObject);
beginTimer1.Interval := 100;Timer1.Enabled := False;ProgressBar1.Align := alLeft;ProgressBar2.Align := alRight;ProgressBar1.Orientation := pbVertical;ProgressBar2.Orientation := pbVertical;ProgressBar1.Width := 20;ProgressBar2.Width := 20;ProgressBar1.Max := MAXWORD div 2;ProgressBar2.Max := MAXWORD div 2;if HiWord(BASS_GetVersion) <> BASSVERSION thenMessageBox(0, '"Bass.dll" 文件版本不合适! ', nil, MB_ICONERROR);if not BASS_Init(-1, 44100, 0, 0, nil) then ShowMessage('初始化错误');
end;{打开}
procedure TForm1.Button1Click(Sender: TObject);
varMp3Path: AnsiString;
beginBASS_StreamFree(hs);Timer1.Enabled := False;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 := '打开失败'elseText := Mp3Path;
end;{播放}
procedure TForm1.Button2Click(Sender: TObject);
beginBASS_ChannelPlay(hs, False);Timer1.Enabled := True;
end;{暂停}
procedure TForm1.Button3Click(Sender: TObject);
beginBASS_ChannelPause(hs);Timer1.Enabled := False;
end;{显示左右声道的峰值}
procedure TForm1.Timer1Timer(Sender: TObject);
varLevel: Cardinal;
beginLevel := BASS_ChannelGetLevel(hs); {其低16位为左声道峰值; 高16位为右声道峰值}ProgressBar1.Position := LoWord(Level);ProgressBar2.Position := HiWord(Level);
end;procedure TForm1.FormDestroy(Sender: TObject);
beginBASS_Free;
end;end.
窗体文件:
object Form1: TForm1Left = 222Top = 114Caption = 'Form1'ClientHeight = 113ClientWidth = 243Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesignedOnCreate = FormCreateOnDestroy = FormDestroyPixelsPerInch = 96TextHeight = 13object Button1: TButtonLeft = 83Top = 17Width = 75Height = 25Caption = #25171#24320TabOrder = 0OnClick = Button1Clickendobject Button2: TButtonLeft = 83Top = 48Width = 75Height = 25Caption = #25773#25918TabOrder = 1OnClick = Button2Clickendobject Button3: TButtonLeft = 83Top = 79Width = 75Height = 25Caption = #26242#20572TabOrder = 2OnClick = Button3Clickendobject ProgressBar1: TProgressBarLeft = 8Top = 74Width = 69Height = 17TabOrder = 3endobject ProgressBar2: TProgressBarLeft = 164Top = 74Width = 77Height = 17TabOrder = 4endobject OpenDialog1: TOpenDialogLeft = 192Top = 8endobject Timer1: TTimerOnTimer = Timer1TimerLeft = 40Top = 8end
end

转载于:https://my.oschina.net/hermer/blog/319708

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

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

相关文章

最近看了两本低代码的书

月初写了一篇《你真的了解低代码平台吗&#xff1f;》&#xff0c;介绍了下我对低代码产品的一些认识&#xff0c;随后有朋友送了我两本华章出版的关于低代码的书&#xff1a;明道云的《零代码实战》和微软的《实战低代码》&#xff0c;目前市面上也就这两本关于低代码的书。因…

如何逼疯一名数学系学生?

全世界只有3.14 % 的人关注了爆炸吧知识今天在知乎竟看到这样一个问题但看在关注人数如此之多超模君就放下成见稍微透露一下我们的“底线”到底要怎样做才能激怒数学系学生数学沾边法顾名思义只要和数学沾边就可以开怼在菜市场算菜钱时在提问后的0.5秒迅速补上致命一刀经过彩票…

WinAPI: 钩子回调函数之 MouseProc

为什么80%的码农都做不了架构师&#xff1f;>>> MouseProc(nCode: Integer; {}wParam: WPARAM; {}lParam: LPARAM {} ): LRESULT; {}//待续...转载于:https://my.oschina.net/hermer/blog/320962

内推!字节、阿里、网易火热招聘中,内推优筛简历,快人一步拿offer,真香!(送内推码)...

全世界只有3.14 % 的人关注了爆炸吧知识“金三银四”可谓招聘的黄金期。一方面&#xff0c;校园春招正如火如荼的进行中&#xff0c;另一方面&#xff0c;各大企业也纷纷启动了暑假实习招聘。对于2020届的同学来说&#xff0c;务必要利用好“应届生”这个身份&#xff0c;把握住…

如何将10进制转成16进制,又如何将16进制数转成10进制,C#和VB代码?

方法1&#xff1a; int d10; d.ToString("x") //或把x改为&#xff38;&#xff0c;&#xff0c;&#xff0c;就变成了&#xff11;&#xff16;位的字符串了&#xff0e; int xConvert.ToInt32(d.ToString("x"),16);&#xff0f;&a…

本科4篇顶会论文如何做到?清华特奖高天宇干货分享:我是这样写论文、做实验、与导师相处...

全世界只有3.14 % 的人关注了爆炸吧知识本科生&#xff0c;距离“科研”有多远&#xff1f;有人还处在“小朋友你是否有很多问号”的状态&#xff0c;但也有人本科就连发顶会文章&#xff0c;光环闪瞎众人。其中可有什么秘诀&#xff1f;清华本科特奖获得者、清华计算机大四学生…

java final 修改_“无法改变的设计”——浅谈Java中的final关键字

在Java中&#xff0c;final关键字可以用来修饰类、变量(包括成员变量和局部变量)、方法&#xff0c;下面从这三个方面分别说明。final方法当一个方法被final修饰时&#xff0c;表明这个方法不能被子类重写。下面程序试图重写final方法&#xff0c;将会引发编译错误。public cla…

一致性 hash 算法( consistent hashing )

consistent hashing 算法早在 1997 年就在论文 Consistent hashing and random trees 中被提出&#xff0c;目前在cache 系统中应用越来越广泛&#xff1b; 1 基本场景 比如你有 N 个 cache 服务器&#xff08;后面简称 cache &#xff09;&#xff0c;那么如何将一个对象 obje…

复工之后,如何让自己的时间更值钱

全世界只有3.14 % 的人关注了爆炸吧知识时间最不偏私给任何人都是二十四小时时间也最偏私给任何人都不是二十四小时而如何让自己的时间更值钱以下公众号或许能给你一些启示赶快扫码关注吧&#xff01;RSS精选ID&#xff1a;KindleNewsRSS精选是一个专注于时间管理iOS相关及Kind…

selenium autoit java_Java+Selenium——AutoIt工具处理文件上传

关于文件上传&#xff0c;这边介绍一个第三方工具&#xff0c;叫AutoIt&#xff0c;简单来说&#xff0c;这个是一个能支持桌面GUI自动化的工具&#xff0c;它支持脚本语言编写。这里&#xff0c;我们用AutoIt来做文件上传的演示。在Selenium脚本中如果需要AutoIt来协助这个文件…

Blazor+Dapr+K8s微服务之开发环境调试

1 安装Dapr开发调试环境1.1 Dapr 完整安装模式不支持开发调试在上一篇随笔《BlazorDaprK8s微服务之服务调用》中&#xff0c;我们通过为每个微服务运行dapr run ….dotnet run命令&#xff0c;以自宿主的方式在本地开发环境成功运行了服务调用的例子。但是&#xff0c;这种运行…

这10个人,总是牛逼的无话可说

全世界只有3.14 % 的人关注了爆炸吧知识终于迎来知识君最喜欢的工作日了。热爱工作的知识君还是在认真地看书&#xff0c;码字。哈哈哈&#xff0c;有模友知道看得是什么书然而在拍完照片后&#xff0c;还是得想想今晚该写些啥东西。狄拉克 保罗狄拉克(Paul Adrien Maurice …

WebSocket服务器(物联网下行通知神器)

HttpServer是一个轻量级Web服务器&#xff0c;用于在嵌入式设备以及客户端环境中提供简单Web服务&#xff0c;同时也支持标准WebSocket服务。本文例程基于vs2022&#xff0c;基础例程可参考&#xff1a;https://www.yuque.com/smartstone/nx/httpserverWebSocket服务端WebSocke…

继续送假期干货——响应式图片工具smartImg

中午看《众妙之门》看到一个响应式图片处理工具&#xff08;点此查看&#xff09;的介绍&#xff0c;然后就心血来潮想着不妨自己写一个基于JQ的吧&#xff0c;于是就又有了这么一个干货给大家。 smartImg 的全部文件可以从我的Github上下载&#xff0c;其实它非常小巧&#xf…

一顿家庭火锅让本不富裕的家庭雪上加霜......

1 从此再也没有人相信你曾是个双眼皮▼2 在家吃火锅让一个本不富裕的家庭雪上加霜▼3 大型翻车现场▼4 各位大爷大伯&#xff0c;我先干了招待不周&#xff0c;还望海涵▼5 老外为了防止用手摸脸导致传染发明出来的新方法 ......但这东西难道不是宠物那啥用的吗&#xff1…

ASP.NET Core 修改开源协议为MIT,.NET全平台 MIT协议开源了

2021年7月23日&#xff0c;.NET开发团队完成了所有的.NET平台的相关框架的MIT协议更改&#xff0c;我们可以通过 https://github.com/dotnet/aspnetcore/issues/18873 看到详细的修改提交&#xff0c;这个协议修改里面主要有2点&#xff0c;具体可以看 https://github.com/dotn…

InstallSield更新包快速入门文档----感谢原作者ㄣ齊¨彡仯乄的无私提供

本文经原作者ㄣ齊彡仯乄特许授权于海洋女神发布&#xff0c;转载请务必注明出处与链接&#xff1b;原作者ㄣ齊彡仯乄和海洋女神保留对该文的一切法律许可下的权益&#xff1b;需要发布在盈利性报刊、网站等请与原作者ㄣ齊彡仯乄或海洋女神联系. 简述 本文主要描述安装程序更新包…

太赞了:中文版开源!这或许是最经典的计算机编程教材

全世界只有3.14 % 的人关注了爆炸吧知识转自 AI 科技大本营《Think Python》是很多计算机初学者的不二入门教材&#xff0c;受到广泛好评。该书原作者是美国 Olin 工程学院的教授 Allen B. Downey&#xff0c;目前该书的原版和中文版本都已免费开源。Allen 称&#xff0c;《Thi…

jBPM专家力作——《深入浅出jBPM》

恭喜本书荣登互动网和当当网畅销排行榜&#xff01;媒体评论 “这是一本全面介绍jBPM的书&#xff0c;从基础知识到实战开发技巧&#xff0c;作者结合其实际项目开发经验&#xff0c;对国内流程的许多特色要求给出了浅显易懂的解决方案。对于想在项目中应用jBPM的初学者&#x…

WeihanLi.Npoi 1.20.0 Released

WeihanLi.Npoi 1.20.0 ReleasedIntroWeihanLi.Npoi 是一个基于 netstandard2.0 的一个 NPOI 扩展库&#xff0c;主要用于导入导出 Excel 以及CSV&#xff0c;支持通过 Fluent API 的方式来支持非常灵活的导入导出配置&#xff0c;详细使用可以参考文档介绍以及项目示例Updates最…