Visual Basic环境下Video/ Audio压缩数据流播放技术(3) ---- 在放大或缩小MPEG图像的尺寸时要注意保持Width、Height的比例一致，以免输出的图像变形。 ---- 3．5．鼠标拖动播放MPEG数据流 ---- 用鼠标拖动滚动条随意播放MPEG数据流是Windows中多媒体播放机播放VCD的常用技术。ＶＢ中的Slider 控件是包含滑块和可选择性刻度标记的窗口，可以通过拖动滑块，用鼠标单击滑块的任意一侧或者使用键盘移动滑块。在选择离散数值或某个范围内的一组连续数值时，Slider 控件十分有用。通过将滑块移动到刻度标记处，可以对MPEG数据流进行定位播放。在窗体上放置一个Slider 控件Slider 1，设置好光标移动的最大步长LargeChange=5，最小步长SmallChange=1，最大移动范围Max=50，实现程序如下： Private Sub Slider1_Scroll() ' Dim pMP As IMediaPosition Dim v As Double If Not bOpen Then Exit Sub bSeeking = True pMC.Pause Set pMP = pMC v = Slider1.Value - Slider1.Min v = v / Slider1.Max * pMP.Duration pMP.CurrentPosition = v Set pMP = Nothing pMC.Run ' End Sub ---- 3．6．MPEG数据流采集时间的获取 ---- VisualBasic里提供了一个函数FileDateTime可用来获取文件建立或是更新的日期与时间。定义一个局部对象 pMP 为IMediaPosition的新实例，令pMP = pMC，给对象引用pMP赋值；再定义两个Double型的变量curpos 、length，将pMP.CurrentPosition赋给curpos，取得MPEG数据流的当前相对位置时间，将pMP.Duration 赋给length，取得MPEG数据流的时间长度值；就能获取MPEG数据流相对的采集时间。根据MPEG采集文件建立的特性将两个日期时间作加法或减法则可以得到MPEG数据流的采集时间。 ---- 在整个MPEG的播放过程中，都要求实时显示MPEG数据流的采集时间，可定义一个获取采集时间的函数，采用Timer控件的Timer事件来驱动。通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次函数获取到MPEG数据流的采集时间。 ---- 4．结束语 ---- 将成熟的图像压缩技术用于电视监视监控领域具有十分重要的意义。例如：在银行的监视监控系统中，由于客户（银行）身份的特殊性，在对冒领他人存款、银行失窃或被抢劫等扰乱银行正常工作秩序的事件的调查及其处理中，采集的压缩数据流是很重要的办案线索与证据。在该系统中不仅要求监视画面清晰，采集的数据冗余度低，MPEG数据流的播放技术也是很重要的。本文介绍了在Windows环境下，利用VisualBasic自身条件和原有控件开发MPEG卡采集的Audio/Video数据的播放技术。充分利用了VB的优越条件，灵活地与VB中各种现有控件结合，开发出来的MPEG媒体播放器功能完善，回放的MPEG画面能清晰地重现数据采集时场景、做到了"闻其声，见其人"、并能准确确定事件发生的时间时刻。对只记录了单帧的Audio/Video数据流也能同样播放。上述技术已在监控系统中使用，并效果良好。
