Category

Development Platform
Home > E-Books > Delphi-C++Builder > View Code
MpgPlay.cpp
Package: c++builder6编程实例.ZIP　[view]
Upload User: lulishicai
Upload Date: 2010-03-01
Package Size: 13202k
Code Size: 2k
Category:

Delphi-C++Builder

Development Platform:

C++ Builder

MpgPlay.cpp：Code Content
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "MpgPlay.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TMpgForm *MpgForm;
  11. //---------------------------------------------------------------------------
  12. __fastcall TMpgForm::TMpgForm(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17. void __fastcall TMpgForm::FormCreate(TObject *Sender)
  18. {
  19.     BitBtn1->Enabled=true;
  20.     BitBtn2->Enabled=false;
  21.     Timer1->Enabled=false;
  22.     //设置控件有效状态
  24. }
  25. //---------------------------------------------------------------------------
  26. void __fastcall TMpgForm::BitBtn1Click(TObject *Sender)
  27. {
  28.     OpenDialog1->Title="请选择一个影碟文件：";
  29.     //设置对话框标题
  30.     OpenDialog1->Filter="电影文件(*.avi)|*.avi|电影文件(*.dat)|*.dat";
  31.     //设置文件过滤器
  32.     OpenDialog1->Execute();
  33.     //显示对话框
  34.     if(OpenDialog1->FileName!="")
  35.     {
  36.         MediaPlayer1->Display=Panel1;
  37.         //设置视频文件的显示范围在显示区内
  38.         MediaPlayer1->FileName=OpenDialog1->FileName;
  39.         //设置文件的路径和文件名
  40.         MediaPlayer1->Open();
  41.         //打开多媒体设备
  42.        Timer1->Enabled=true;
  43.        BitBtn2->Enabled=true;
  44.         //设置按钮有效状态
  45.             ScrollBar1->Min=0;
  46.     ScrollBar1->Max=MediaPlayer1->Length;
  47.     }
  49. }
  50. //---------------------------------------------------------------------------
  51. void __fastcall TMpgForm::BitBtn2Click(TObject *Sender)
  52. {
  53.     MediaPlayer1->Stop();
  54.    //停止播放
  56.     MpgForm->Close();
  57. }
  58. //---------------------------------------------------------------------------
  59. void __fastcall TMpgForm::ScrollBar1Scroll(TObject *Sender,
  60.       TScrollCode ScrollCode, int &ScrollPos)
  61. {
  62.     MediaPlayer1->Position=ScrollBar1->Position;
  63.     //改变播放进度
  64.     Timer1->Enabled=true;
  65.     MediaPlayer1->Play();
  66. }
  67. //---------------------------------------------------------------------------
  68. void __fastcall TMpgForm::Timer1Timer(TObject *Sender)
  69. {
  70.     ScrollBar1->Enabled=true;
  71.     ScrollBar1->Position=MediaPlayer1->Position;
  72.     //显示播放进度
  74. }
  75. //---------------------------------------------------------------------------