Visual Basic环境下Video/Audio压缩数据流播放技术
r 控件十分有用。通过将滑块移动到刻度标记处，可以对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数据流也能同样播放。上述技术已在监控系统中使用，并效果良好。
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数据流也能同样播放。上述技术已在监控系统中使用，并效果良好。