开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
Unit1.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：4k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "MPEGPLAYLib_OCX"
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::FormCreate(TObject *Sender)
  20. {
  21.     OpenDialog1->Title="请选择一个音乐文件：";
  22.     //设置对话框标题
  23.     OpenDialog1->DefaultExt="mp3";
  24.     //设置缺省扩展名
  25.     OpenDialog1->Filter="All Files(*.*)|*.*|MP3 Files(*.mp3)|*.mp3";
  26.     //设置文件过滤器
  27.     Edit1->Enabled=false;
  28.     Edit2->Enabled=false;
  29.     Edit3->Enabled=false;
  30.     Edit4->Enabled=false;
  31.     //设置文本框有效状态
  32.     Edit1->Text="";
  33.     Edit2->Text="";
  34.     Edit3->Text="";
  35.     Edit4->Text="";
  36.     //设置文本框显示文本
  37.     Button2->Enabled=false;
  38.     Button3->Enabled=false;
  39.     Button4->Enabled=false;
  40.     Button5->Enabled=false;
  41.     //设置按钮有效状态
  42.         
  43. }
  44. //---------------------------------------------------------------------------
  45. void __fastcall TForm1::Button1Click(TObject *Sender)
  46. {
  47.     WideString Mp3File;
  48.     OpenDialog1->Execute();
  49.     //显示对话框
  50.     Edit1->Text=OpenDialog1->FileName;
  51.     Mp3File=OpenDialog1->FileName;
  52.     if(OpenDialog1->FileName!="")
  53.     {
  54.          Mp3Play1->Open(Mp3File,NULL);
  55.          //打开指定的MP3文件
  56.          Button2->Enabled=true;
  57.          Button3->Enabled=false;
  58.          Button4->Enabled=false;
  59.          Button5->Enabled=false;
  60.          //设置按钮有效状态
  61.          Edit2->Text=IntToStr(Mp3Play1->TotalTime);
  62.          Edit3->Text=IntToStr(Mp3Play1->GetVolumeLeft());
  63.          Edit4->Text=IntToStr(Mp3Play1->GetVolumeRight());
  64.          //设置文本框显示文本
  65.     }
  66.         
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TForm1::RadioButton1Click(TObject *Sender)
  70. {
  71.     Edit3->Enabled=false;
  72.     Edit4->Enabled=false;
  73.     //设置文本框有效状态
  74.         
  75. }
  76. //---------------------------------------------------------------------------
  77. void __fastcall TForm1::RadioButton2Click(TObject *Sender)
  78. {
  79.     Edit3->Enabled=true;
  80.     Edit4->Enabled=true;
  81.     //设置文本框有效状态
  82.         
  83. }
  84. //---------------------------------------------------------------------------
  85. void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
  86. {
  87.     Mp3Play1->SetVolume(StrToInt(Edit3->Text),StrToInt(Edit4->Text));
  88.     //设置播放音乐的音量
  89.         
  90. }
  91. //---------------------------------------------------------------------------
  92. void __fastcall TForm1::Edit4KeyPress(TObject *Sender, char &Key)
  93. {
  94.     Mp3Play1->SetVolume(StrToInt(Edit3->Text),StrToInt(Edit4->Text));
  95.     //设置播放音乐的音量
  96.         
  97. }
  98. //---------------------------------------------------------------------------
  99. void __fastcall TForm1::Button2Click(TObject *Sender)
  100. {
  101.     Mp3Play1->Play();
  102.     //播放指定的音乐文件
  103.     Button3->Enabled=true;
  104.     Button4->Enabled=true;
  105.     Button5->Enabled=true;
  106.     //设置按钮有效状态
  107.         
  108. }
  109. //---------------------------------------------------------------------------
  110. void __fastcall TForm1::Button3Click(TObject *Sender)
  111. {
  112.     Mp3Play1->Pause();
  113.     //暂停播放音乐
  114.         
  115. }
  116. //---------------------------------------------------------------------------
  117. void __fastcall TForm1::Button4Click(TObject *Sender)
  118. {
  119.     Mp3Play1->Stop();
  120.     //停止播放音乐
  121.         
  122. }
  123. //---------------------------------------------------------------------------
  124. void __fastcall TForm1::Button5Click(TObject *Sender)
  125. {
  126.     Mp3Play1->Close();
  127.     //关闭MP3播放器
  128.     Button2->Enabled=false;
  129.     Button3->Enabled=false;
  130.     Button4->Enabled=false;
  131.     Button5->Enabled=false;
  132.     //设置按钮有效状态
  133.     Edit1->Text="";
  134.     Edit2->Text="";
  135.     //设置文本框显示文本
  136.         
  137. }
  138. //---------------------------------------------------------------------------