cbuilder5写的midi音乐播放器

《cbuilder5写的midi音乐播放器》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、用C++builder5，写的MIDI音乐播放器。（经过测试可以播放.mid类型、mp3类型、wma类型的音乐）需要：四个Button组件、一个ScrollBar组件、一个MediaPlayer组件（在System里面）、一个OpenDialog组件、和一个Timer组件。添加组件后的窗体如图所示：程序代码：#include#pragmahdrstop#include"Unit1.h"//---------------------------------------------------------------------------#

2、pragmapackage(smart_init)#pragmaresource"*.dfm"TForm1*Form1;//---------------------------------------------------------------------------__fastcallTForm1::TForm1(TComponent*Owner):TForm(Owner){}//---------------------------------------------------------------------------void__fa

3、stcallTForm1::FormCreate(TObject*Sender){//设置计时器的状态Form1->Timer1->Enabled=false;//设置按钮工作状态Form1->Button2->Enabled=false;Form1->Button3->Enabled=false;Form1->Button4->Enabled=false;}//---------------------------------------------------------------------------void__fastcallTForm1:

4、:Button1Click(TObject*Sender){//设置对话框缺省路径Form1->OpenDialog1->InitialDir="e:\midi";//设置对话框标题Form1->OpenDialog1->Title="请选择一个音乐文件";//设置对话框缺省文件名Form1->OpenDialog1->DefaultExt="mid";if(Form1->OpenDialog1->Execute()){//返回音乐文件名Form1->MediaPlayer1->FileName=Form1->OpenDialog1->FileNam

5、e;//打开多媒体播放设备Form1->MediaPlayer1->Open();//设置按钮有效状态Form1->Timer1->Enabled=true;Form1->Button2->Enabled=true;}}//---------------------------------------------------------------------------void__fastcallTForm1::Button3Click(TObject*Sender){//暂停播放或继续播放Form1->MediaPlayer1->Pause();}

6、//---------------------------------------------------------------------------void__fastcallTForm1::Button2Click(TObject*Sender){//播放音乐Form1->MediaPlayer1->Play();//设置按钮状态Form1->Button3->Enabled=true;Form1->Button4->Enabled=true;}//------------------------------------------------

7、---------------------------void__fastcallTForm1::Button4Click(TObject*Sender){//停止播放音乐Form1->MediaPlayer1->Stop();Form1->Button3->Enabled=false;Form1->Button4->Enabled=false;}//---------------------------------------------------------------------------void__fastcallTForm1::Scrol

8、lBar1Scroll(TObject*Sender,TScrollCodeScrollCod