Cbuilder5写的MIDI音乐播放器.docx

用C+ builder 5，写的MIDI音乐播放器。（经过测试可以播放.mid类型、mp3类型、wma类型的音乐）需要：四个Button组件、一个ScrollBar组件、一个MediaPlayer组件（在System里面）、一个OpenDialog组件、和一个Timer组件。添加组件后的窗体如图所示：程序代码：#include #pragma hdrstop#include Unit1.h/-#pragma package(smart_init)#pragma resource *.dfmTForm1 *Form1;/-_fastcall TForm1:TForm1(TComponent* Owner) : TForm(Owner)/-void _fastcall TForm1:FormCreate(TObject *Sender) /设置计时器的状态 Form1-Timer1-Enabled=false; /设置按钮工作状态 Form1-Button2-Enabled=false; Form1-Button3-Enabled=false; Form1-Button4-Enabled=false;/-void _fastcall TForm1:Button1Click(TObject *Sender) /设置对话框缺省路径 Form1-OpenDialog1-InitialDir=e:midi; /设置对话框标题 Form1-OpenDialog1-Title=请选择一个音乐文件; /设置对话框缺省文件名 Form1-OpenDialog1-DefaultExt=mid; if(Form1-OpenDialog1-Execute() /返回音乐文件名 Form1-MediaPlayer1-FileName=Form1-OpenDialog1-FileName; /打开多媒体播放设备 Form1-MediaPlayer1-Open(); /设置按钮有效状态 Form1-Timer1-Enabled=true; Form1-Button2-Enabled=true; /-void _fastcall TForm1:Button3Click(TObject *Sender) /暂停播放或继续播放 Form1-MediaPlayer1-Pause(); /-void _fastcall TForm1:Button2Click(TObject *Sender) /播放音乐 Form1-MediaPlayer1-Play(); /设置按钮状态 Form1-Button3-Enabled=true; Form1-Button4-Enabled=true; /-void _fastcall TForm1:Button4Click(TObject *Sender) /停止播放音乐 Form1-MediaPlayer1-Stop(); Form1-Button3-Enabled=false; Form1-Button4-Enabled=false;/-void _fastcall TForm1:ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode, int &ScrollPos) /暂停播放 Form1-MediaPlayer1-Pause(); /拖放播放进度 Form1-MediaPlayer1-Position=Form1-ScrollBar1-Position; /开始播放 Form1-MediaPlayer1-Play();/-void _fastcall TForm1:Timer1Timer(TObject *Sender) /设置滚动条的参数 Form1-ScrollBar1-Min=0; Form1-ScrollBar1-Max=Form1-MediaPlayer1-