Delphi 多媒体（Tmediaplayer 4）

最新推荐文章于 2020-04-21 08:49:05 发布

落幕年代

最新推荐文章于 2020-04-21 08:49:05 发布

阅读量2.7k

点赞数

分类专栏： Delphi Game 图形处理/多媒体文章标签： delphi 多媒体

本文链接：https://blog.csdn.net/lailai186/article/details/8795961

版权

本文介绍了如何使用Delphi的TMediaPlayer组件播放CD音频和AVI视频。对于CD音频，设置DeviceType为dtCDAudio并调用Play方法即可播放。在处理CD时间格式时，使用了TMSF时间格式和Windows时间转换宏。对于AVI视频，可通过设置Display属性在特定组件上播放，并调整DisplayRect实现缩放。同时，文章还提及了TAnimate组件的使用限制。

摘要由CSDN通过智能技术生成

CD音频（CD Audio）

TMediaPlayer播放CD音频相当简单。要放CD，只需简单地改变DeviceType属性为dtCDAudio即可，并点击Play按钮（或调用Play方法）。

掌握CD音频设备程序设计最困难的是用于CD中不同的时间格式。用户将使用TMSF（time, minutes, seconds, frames）的时间格式来获取某一特定音轨的信息或设置当前位置为某一个特定音轨。例如：下面的代码中将格式化字符串并得到当前音轨内播放的位置。

 
        var  
       
         Time: Integer;  
       
         Track: Integer;  
       
         Minutes: Integer;  
       
         Seconds: Integer;  
       
         TimeStr: string;  
       
        begin  
       
          if MediaPlayer.Mode <> mpPlaying then  
       
            Exit;  
       
          Time    := MediaPlayer.Position;  
       
          Track   := mci_TMSF_Track(Time);  
       
          Minutes := mci_TMSF_Minute(Time);  
       
          Seconds := mci_TMSF_Second(Time);  
       
          TimeStr := Format('Track Time: %2.2d:%2.2d', [Minutes, Seconds]);  
       
          lbl1.Caption := 'Track: ' + IntToStr(Track);  
       
          lbl2.Caption := TimeStr;