Delphi中MediaPlayer控件的一个Bug即修复

最近在使用MediaPlayer控件编程时发现一个奇怪的问题,刚开始百思不得其解,不知道是MediaPlayer的问题,还是Delphi的MMSystem.pas本身就错了
问题如下
 MediaPlay.DeviceType的值只能设成dtAutoSelect,否则,不管是AVI,还是MPG文件都不能播放,我用Delphi6 和Delphi6 sp2 在win2000和xp环境下测试,均不能成功。
 如果将设备类型设置成明显的错误,MediaPlay控件会报错,如文件是AVI或MPG格式,选择DeviceType=dtCDAudio,会报MCI错误,但是如果用AVI文件,选择dtAVIVideo,则不报任何错误,文件打开,但不管是通过程序,还是通过MediaPlay的Button总之是播放不了文件的,而且MediaPlay.Length的长度也不正确例如:       
 ExPlay.DeviceType :=dtAVIVideo;
        ExPlay.FileName := 'd:/windows/clock.avi';
        ExPlay.Open;
        ExPlay.Play;
    在不得已的情况下我只能去看MediaPlayer的源代码(本人对Delphi实在了解的不多)
分析情况如下
Delphi的TMediaPlayer控件的DeviceType是只能在几种类型中选择,这是在MPlay.pas中定义的几种
TMPDeviceTypes = (dtAutoSelect, dtAVIVideo, dtCDAudio, dtDAT, dtDigitalVideo, dtMMMovie,
    dtOther, dtOverlay, dtScanner, dtSequencer, dtVCR, dtVideodisc, dtWaveAudio);
在MCI的定义中有如下结构:
  tagMCI_OPEN_PARMSA = record
    dwCallback: DWORD;
    wDeviceID: MCIDEVICEID;
    lpstrDeviceType: PAnsiChar;  //设备类型
    lpstrElementName: PAnsiChar;
    lpstrAlias: PAnsiChar;
  end;
在mplay.pas中
procedure TMediaPlayer.Open;
const
  DeviceName: array[TMPDeviceTypes] of PChar = ('', 'AVIVideo', 'CDAudio', 'DAT',
    'DigitalVideo', 'MMMovie', 'Other', 'Overlay', 'Scanner', 'Sequencer',
    'VCR', 'Videodisc', 'WaveAudio');
...设定了实际传给MCI的DeviceType值................
begin
 ......(mplay.pas lines 841)
 OpenParm.lpstrDeviceType := DeviceName[FDeviceType];   // 你选定的设备类型
       ......
   if FDeviceType <> dtAutoSelect then
      FFlags := FFlags or mci_Open_Type;

     if FDeviceType <> dtAutoSelect then            //不明白为什么这里要做两次同样的判断
      FFlags := FFlags or mci_Open_Type
     else
      FFlags := FFlags or MCI_OPEN_ELEMENT;    //只有这样才能正确播放,也就是自动模式
 
 OpenParm.dwCallback := Handle;
   FError := mciSendCommand(0, mci_Open, FFlags, Longint(@OpenParm));  //。。。。。。

参照上面的情况,我选择DeviceType=dtAVIVideo时传的值就应该是‘AVIVideo’。这也和注册表中的MCI32项中的值对应。为了验证使用lpstrDeviceType的值确实是可以用'AVIVideo'我加载了一个MCI32.OCX,这个控件是在VS6种附带的,其中的DeviceType属性和TMediaPlayer中的DeviceType属性大致相当,只不过MCI32.ocx中的值可以直接指定到设备名,我将MCI32.ocx的DeviceType设成'AVIVideo',结果可以正常播放。
   为了找出原因,我将VC的MMSystem.h文件和MMSystem.pas中的参数和数据结构作比较,没有发现有什么差异,基本判断MMSystem,pas是没有问题的,那么问题一定在mplay.pas中了。于是从mplay.pas中另外生成一个控件TDeMediaPlay,跟踪下来,居然也没有发现什么问题,文件打开MCIOpened 、设备号FDeviceID、是否显示FHasVideo等标志正常,GetDeviceCaps函数无异常,唯独GetLength函数中
 FError := mciSendCommand( FDeviceID, mci_Status, FFlags, Longint(@StatusParm));
 Result := StatusParm.dwReturn;
的返回值不正常,而且居然也没有返回错误,在我的机器上,不管怎么设置timeformat都返回4,您的机器可能会不一样
   播放器之类的软件实在是以前没写过,去网上查找关于这方面的Delphi的资料,好像都是让自动选择的也就是dtAutoSelect模式的,但恰恰我的要求是一定要指定具体驱动。
   没有办法,再次打开VC,找到一个MCI的例子,仔细阅读,发现了问题,例子中有这样一段代码
 mciMO.lpstrDeviceType="MpegVideo";
 ......
 dwFlags=(DWORD)(MCI_OPEN_ELEMENT|MCI_OPEN_TYPE|);
 dwResult=mciSendCommand(0,MCI_OPEN,dwFlags,         (DWORD)(LPMCI_DGV_OPEN_PARMS) &mciMO);
        ......
   问题好像有了一点头绪,VC代码中dwFlags在指定DeviceType后,并不是仅仅用到了MCI_OPEN_TYPE标志,而是连MCI_OPEN_ELEMENT标志一起带进去的。于是我有回到mplay.pas中,在上面提到的搞不懂为什么两段代码重复的语句中作了修改:
 OpenParm.lpstrDeviceType := DeviceName[FDeviceType];    你选定的设备类型
       ......
   if FDeviceType <> dtAutoSelect then
      FFlags := FFlags or mci_Open_Type;

     if FDeviceType <> dtAutoSelect then                 
      FFlags := FFlags or MCI_OPEN_ELEMENT            改在此处
     else
      FFlags := FFlags or MCI_OPEN_ELEMENT;          
 
 OpenParm.dwCallback := Handle;
   FError := mciSendCommand(0, mci_Open, FFlags, Longint(@OpenParm));  //。。。。。。

重新Build,安装新控件。
    测试,为了验证新的控件确实是使用我指定的设备播放,而不是自动选择的设备,我按以下步骤测试
   1、我将注册表中所有关于.AVI内说明使用AVIVideo设备播放的项目备份并删除,然后新控件的DeviceType设成dtAutoSelect,提示出错,不能打开MCI设备,这正是我需要的效果,系统已经不能自动识别AVI文件的播放设备了。
   2、把新控件的DeviceType设置为dtAVIVideo,播放一切正常。说明新控件确实是用指定的设备播放AVI文件。 

    结论:
   1、很奇怪mplay.pas中怎么会有这样的怪怪的语句,为什么一个条件要判断两次,而且没有实际意义,因为mci_Open_Type or mci_Open_Type结果还是mci_Open_Type。肯定是控件源码的作者有一定的考虑,在修改源码后还是觉得很奇怪,如果是源码作者的笔误,那么根本不应该对条件还判断第三次。只需要改成:
   if FDeviceType <> dtAutoSelect then
      FFlags := FFlags or MCI_OPEN_TYPE;
          FFlags := FFlags or MCI_OPEN_ELEMENT ;
即可。
   2、虽然我很赞成在大的项目中用常量代替变量,可是对于DeviceType这样的值,似乎把控制权交给用户比较合适,因为TMPDeviceTypes定义是死的,而系统是活的,像MPEGVideo、MPEGVideo2这样的设备,在TMPDeviceTypes中就没有定义,这一点,我觉得还是MCI32.ocx做的比较好,所以我改写了新的控件可以直接传入设备名,以Open一个媒体文件。
   3、感谢宝蓝公司对所有控件提供源码,要是在没有源码的控件中修改,基本是不可能的。             

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值