Delphi使用MediaPlayer控件_delphimediaplayer1实现循环播放的例子资源-CSDN文库

共17个文件

mp3：5个

ddp：1个

res：1个

需积分: 50 49 浏览量 2018-06-19 16:48:10 上传评论收藏 52.84MB ZIP 举报

在本文中，我们将深入探讨如何在Delphi编程环境中使用MediaPlayer控件来实现音频播放功能。Delphi是一款强大的可视化开发工具，常用于创建Windows应用程序。MediaPlayer控件是Delphi提供的一种集成多媒体播放功能的组件，可以方便地处理音频和视频内容。我们需要了解MediaPlayer控件的基本用法。在Delphi的组件面板上找到MediaPlayer组件，将其拖放到Form上。这个控件包含了播放、暂停、停止等常用功能按钮，以及音量控制和播放进度条等元素。在设计阶段，可以通过调整其属性来定制外观和行为。接下来，我们要实现描述中提到的“播放音乐的小demo”。这涉及到文件操作和事件处理。你需要遍历指定的文件夹（例如“新建文件夹 (2)”），检索其中的mp3格式文件。在Delphi中，可以使用TDirectory和TFile类来完成这项任务。以下是一个简单的示例代码： ```delphi uses System.IOUtils; var Files: TStringDynArray; FileName: string; begin Files := TDirectory.GetFiles('C:\Path\To\新建文件夹 (2)', '*.mp3'); for FileName in Files do begin // 在这里处理每个文件，例如添加到ListBox end; end; ``` 将找到的mp3文件名添加到ListBox中，用户可以双击选择音乐进行播放。为此，我们需要为ListBox添加一个OnDblClick事件处理程序： ```delphi procedure TForm1.ListBox1DblClick(Sender: TObject); begin if ListBox1.ItemIndex <> -1 then begin MediaPlayer1.FileName := ListBox1.Items[ListBox1.ItemIndex]; MediaPlayer1.Open; end; end; ``` 同时，也可以为MediaPlayer控件设置一个OnPlay事件，让用户单击播放按钮时启动音乐播放： ```delphi procedure TForm1.MediaPlayer1Play(Sender: TObject); begin MediaPlayer1.Open; end; ``` 为了确保音乐播放的顺利进行，还需要注意一些细节。比如，当音乐播放完毕后，你可以决定是否自动播放下一首。此外，可能需要处理错误情况，例如文件不存在或格式不支持等。 Delphi中的MediaPlayer控件为开发者提供了一种简单易用的方式来实现多媒体播放功能。通过与文件系统交互和处理用户事件，我们可以创建出具有文件检索和播放功能的音乐应用。尽管这里的示例仅涉及音频播放，但MediaPlayer控件同样支持视频播放，只需适当调整即可。在实际项目中，你还可以进一步扩展功能，如添加播放列表、音量控制、播放进度调节等，以满足更复杂的需求。

资源推荐

资源详情

资源评论

收起资源包目录

新建文件夹 (2).zip （17个子文件）

新建文件夹 (2)

Unit1.ddp 51B

Project1.res 1KB

Unit1.dcu 7KB

Unit1.dfm 2KB

Project1.cfg 446B

music

小阿硕 - 精品小铃音.mp3 6.49MB

张卫 - 机器铃砍菜刀.mp3 19.33MB

MKJ - Time.mp3 9.01MB

张卫 - 机器铃砍菜刀.txt 3KB

许嵩 - 玫瑰花的葬礼.mp3 9.88MB

MKJ - Time.mp3 9.01MB

Project1.dpr 188B

Unit1.~dfm 2KB

Project1.exe 436KB

Project1.dof 2KB

Unit1.~pas 3KB

Unit1.pas 3KB

是不是一个人太久了总觉得时间在翻倍的过我不知道自己在找什么只觉得丢了很多星星还是那颗星星但被霾遮住了光明我怀念狗屁不通的光阴最初的节奏你听二八二五六二八二五七二八二九三十一三八三五六三八三五七三八三九四十一你知道我有多想回到老家活泥巴再邀子那些光腚伙家去坑里逮青蛙给俺爷爷卷袋烟叶听俺奶奶拉拉呱他们这一代人没有文化但是很伟大我想不起来那台黑白电视演哩啥也想不起来鞠萍姐姐当年说哩话我找不到我跳房子踢哩那片瓦谁知道我哩弹球和票夹都放哪里啦一个沙坑一个秋千俺就能玩上一天饿了爬到树上摘点槐花吃点榆钱马泡有多香桑葚有多甜溜溜菶菶架戏台再抓把黑天天谁捅了马蜂窝谁被蛰哩疙瘩多谁晚上尿了床白天就得少玩火谁骑着大梁自行车扎过麦秸垛谁哩作业最多谁就捞不着一起唱儿歌机器灵砍菜刀恁那边哩紧俺挑挑谁吧挑挑的那个人已经回家了机器灵砍菜刀恁那边哩紧俺挑挑谁吧挑挑的那个人已经回家了我想俺姐姐分给我哩那块糖疙瘩我很后悔当年为啥老是欺负她现在我有了小外甥还在欺负她我说老姐啊老姐你真的辛苦啦每天放学俺爸爸都会骑车接我回家他说谁吃饭吃得多他就给谁买贴画偶尔老师也会叫他去学校谈谈话他回来打了我一巴掌他自己也哭啦俺妈妈给我打哩毛衣总是有点大直到长大以后我才明白那是因为啥她的委屈都在心里从不善于表达但是我知道她最牵挂哩就是俺姐弟俩其实我很想看俺爸爸妈妈再吵一次架但94年哩全家福往后不再有啦爸爸妈妈姐姐你们都还好吗我想你们更想回咱以前那个家机器灵砍菜刀恁那边哩紧俺挑挑谁吧挑挑的那个人回不去家了机器灵砍菜刀恁那边哩紧俺挑挑谁吧挑挑的那个人回不去家了我多想和俺老表再一起逃节课去蒙山商场打游戏机一直打到饿抽哩第一口烟应该是两毛钱哩飞鸽喝哩第一口酒是不是兰陵我不记得我踩着张家斌哩肩膀爬过几次墙头和赵顺去工地上偷过几个卡扣在体育场拜把子磕过几个响头看看以前哩合影造型儿哩也全是非主流在路边听我和君耀唱歌哩人成群结队他们说俺俩玩音乐其实俺俩是为了漏味有人看俺不愤儿是为了争小闺女想想那些屁事哎呦真是味儿能弥补失去哩童年也莫过于咱们哩初恋那时候什么都不图只是一味的想和她见面看着她哩照片感觉每天都是晴天那些上课传过哩纸条现在只能在心里默念机器灵砍菜刀恁那边哩紧俺挑挑谁吧挑挑的那个人已经长大了机器灵砍菜刀恁那边哩紧俺挑挑谁吧挑挑的那个人已经长大了我写了这么多不是想歌颂我哩童年只是想把80后的回忆翻出来做个意见给亲情留个纪念还爱情一次祭奠对弟兄们说声抱歉一起挥手向青春告别在传统教育和独立之间迷惘着寻找出路我们扮演了改革开放哩宠儿尴尬哩幸福你有多久没对着自己哩眼睛好好哩认个错那么接下来让咱们一起对号入座有多少人为了眼前放弃自己的明天有多少人为了明天又在扼杀今天有多少人为了今天寄生给了欺骗又有多少人欺骗只为换取一丝尊严有多少人为了尊严却活在别人的胯下有多少人活在胯下只为养活他一家有多少人为了一家老小四海为家又有多少人漂泊日夜思念朋友和爸妈有多少人指手画脚的给别人讲着道理有多少人讲完道理自己却不讲道义有多少人纹着道义却出卖自己的兄弟有多少人从你的兄弟变成了你的凶器有多少人付出总是很难得到回报有多少人面对镜子留着眼泪微笑有多少人笑着在暴雨中疯狂奔跑有多少人为了名利戴上了冰凉哩手铐有多少人为了苟活背叛了最初的理想但坚持了理想的却又混不到车房有多少人为了车房要还一辈子外账他还了外账也是拆了东墙补上了西墙有多少人的婚姻没有出现过裂缝嘴上骂着小三自己却破坏别人的家庭有多少人的亲朋好友被钱给逼疯他却无动于衷的在夜总会里晃着筛盅有多少的通讯设备安装了无数的功能但总是和最亲最近的人无法沟通有多少人多少事其实我们都懂但懂的太多最后智商却变成了狗熊有多少人听到这里听着听着累了有多少人听到这里听着听着哭了有多少的故事我们永远回不去了有多少我们思念的人在天堂听着机器灵砍菜刀恁那边哩紧俺挑挑谁吧挑挑的那个人已经不见了

评论收藏

内容反馈