VB环境下压缩数据流播放技术(2)

作者: 来源:网络文章 时间:2005-12-13 18:10:25

 

3．4．MPEG数据流的缩放显示


放大或缩小MPEG图像是各种多媒体播放软件中常用的图像显示处理手段。VisualBasic中对于静态图片进行缩放处理可以使用Image控件，将控件的Stretch属性设为True，则装入的图片会改变比例适应Image控件的范围，因此对图片的缩放处理变成对Image控件的Height、Width属性值的大小变化。由于控件的尺寸发生变化，显示的点距不能改变，造成显示点的像素点与图片不能完全一一对应，显示质量明显变差。只有Image控件才能对图片进行缩放，如果PictureBox控件不足以显示整幅图象，则裁剪图象以适应控件的大小。要想实现用PictureBox控件实现对输出MPEG图像的缩放，必须改变MPEG数据流的输出比例，在调节PictureBox控件的尺寸去适应输出的MPEG图像。实际上，在上面的第3小节里，为了显示输出MPEG图像已经这样做了。只不过用的是读取出的MPEG图像OldWidth、 OldHeight，下面给出一个以原来的1/2大小输出MPEG图像的例子。


pVW.width = OldWidth / 2

pVW.Height = OldHeight / 2

picTV.Left = 135

picTV.Top = 135

picTV.width = pVW.width * 15

picTV.Height = pVW.Height * 15

pVW.Owner = picTV.hWnd


在放大或缩小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数据流的采集时间。

1.VB环境下压缩数据流播放技术(2)(1)
2.VB环境下压缩数据流播放技术(2)(2)