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

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

Delphi/CppBuilder

开发平台：

C++ Builder

CDPlay.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "CDPlay.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TCDForm *CDForm;
  11. //---------------------------------------------------------------------------
  12. __fastcall TCDForm::TCDForm(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TCDForm::BitBtn1Click(TObject *Sender)
  18. {
  19.     MediaPlayer1->DeviceType=dtCDAudio;
  20.     //设置播放设备类型
  21.     MediaPlayer1->Open();
  22.     //打开多媒体设备
  23.   MediaPlayer1->Play();
  24.     //播放CD
  25.     Timer1->Enabled=true;
  26.     //设置组件有效状态
  27.     BitBtn1->Enabled=true;
  28.     BitBtn2->Enabled=true;
  29.     BitBtn3->Enabled=true;
  30.     BitBtn4->Enabled=true;
  31.     BitBtn5->Enabled=true;
  32.     //设置按钮有效状态
  34. }
  35. //---------------------------------------------------------------------------
  36. void __fastcall TCDForm::Timer1Timer(TObject *Sender)
  37. {
  38.     Edit1->Text=IntToStr(MediaPlayer1->Tracks);
  39.     //显示曲目总数
  40.     Edit2->Text=IntToStr(MediaPlayer1->Position);
  41.     //显示播放位置
  42.     MediaPlayer1->TimeFormat=0;
  43.     //设置时间格式
  44.     Edit3->Text=IntToStr(MediaPlayer1->Length/60000)+"分";
  45.     //显示唱片长度
  46.     Edit4->Text=IntToStr(MediaPlayer1->Start);
  47.     //显示播放起始位置
  48.     switch (MediaPlayer1->Mode)
  49.     {
  50.         case 524: Edit5->Text="Not ready";
  51.                   break;
  52.         case 525: Edit5->Text="Stopped";
  53.                   break;
  54.         case 526: Edit5->Text="Playing";
  55.                   break;
  56.         case 527: Edit5->Text="Recording";
  57.                   break;
  58.         case 528: Edit5->Text="Seeking";
  59.                   break;
  60.         case 529: Edit5->Text="Paused";
  61.                   break;
  62.         case 530: Edit5->Text="Open";
  63.                   break;
  64.          //显示播放模式
  65.     }
  66.         
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TCDForm::BitBtn2Click(TObject *Sender)
  70. {
  71.     MediaPlayer1->Pause();
  72.     //暂停播放
  73.         
  74. }
  75. //---------------------------------------------------------------------------
  76. void __fastcall TCDForm::BitBtn3Click(TObject *Sender)
  77. {
  78.     MediaPlayer1->Stop();
  79.     //停止播放
  80.         
  81. }
  82. //---------------------------------------------------------------------------
  83. void __fastcall TCDForm::BitBtn4Click(TObject *Sender)
  84. {
  85.     MediaPlayer1->Next();
  86.     //跳到下一首
  87.         
  88. }
  89. //---------------------------------------------------------------------------
  90. void __fastcall TCDForm::BitBtn5Click(TObject *Sender)
  91. {
  92.     MediaPlayer1->Previous();
  93.     //跳到前一首
  95. }
  96. //---------------------------------------------------------------------------
  97. void __fastcall TCDForm::FormCreate(TObject *Sender)
  98. {
  99.     Timer1->Enabled=false;
  100.     //设置计时器有效状态
  101.     BitBtn1->Enabled=true;
  102.     BitBtn2->Enabled=false;
  103.     BitBtn3->Enabled=false;
  104.     BitBtn4->Enabled=false;
  105.     BitBtn5->Enabled=false;
  106.     //设置按钮有效状态
  108. }
  109. //---------------------------------------------------------------------------
  110. void __fastcall TCDForm::BitBtn6Click(TObject *Sender)
  111. {
  112. Close();        
  113. }
  114. //---------------------------------------------------------------------------