MpgPlay.cpp
上传用户:lulishicai
上传日期:2010-03-01
资源大小:13202k
文件大小:2k
源码类别:

Delphi/CppBuilder

开发平台:

C++ Builder

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