Visual Basic环境下Video/Audio压缩数据流播放技术
的动态链接库Quatrz.dll
---- 在Windows\System下可找到一个动态链接库Quatrz.dll，这是Windows中带的用于控制运动图像的播放的一个类型库，只要在VB的"引用"菜单中将它添加进来即可使用。该库中定义了IBasicAudio，IBasicVideo和IBasicVideo2，IMediaEvent 、IMediaEventEx、IMediaPosition等类，可方便地在CommandButton控件的Click等事件中添加代码设置和读取Audio的相关值，设置或读取Video的输入输出源的相关参数，直接调用无参函数Run、Pause、Stop等控制播放事件进程，利用IMediaPosition类对具体播放细节进行操作。对于压缩的MPEG数据流的输出显示并不需要特别的控件，在VisualBasic中你可以选择一个窗体作为容器或窗体上的PictureBox控件作为容器。为了界面的美观和用户查取相关信息的方便，我们采用了PictureBox控件作为容器显示播放的MPEG数据流。
---- 3．3．用PictureBox控件显示MPEG数据流
---- Visual Basic中PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF 文件的图形。亦可在代码中操作图形属性和方法，以创建动画或进行仿真。在窗体上放置了一个PictureBox控件picTV，在调用了Windows\System下动态链接库Quatrz.dll的基础上，定义一个全局的Object对象pMC，令 pMC指向 FilgraphManager的一个新实例，打开压播放的MPEG文件;再定义一个局部对象 pVW 为 IVideoWindow的新实例，打开一个播放Video的窗口;令pVW = pMC，给对象引用pVW赋值，将picTV的属性值hWnd赋给pVW的Owner ，这样picTV就能显示接收的MPEG数据流了。具体操作如下:
Set pMC = New FilgraphManager
pMC.RenderFile "C:\Bank\Montior\Example.MPG"
Set pVW = pMC
pVW.WindowStyle = CLng(&H6000000)
pVW.Left = 0
pVW.Top = 0
OldWidth = pVW.width
OldHeight = pVW.Height
picTV.width = pVW.width * 15
picTV.Height = pVW.Height * 15
pVW.Owner = picTV.hWnd
---- 可以单独定义一个函数包括这些代码，也可将其放到CommandButton控件的Click事件中。
---- 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 控件是包含滑块和可选择性刻度标记的窗口，可以通过拖动滑块，用鼠标单击滑块的任意一侧或者使用键盘移动滑块。在选择离散数值或某个范围内的一组连续数值时，Slide
---- 在Windows\System下可找到一个动态链接库Quatrz.dll，这是Windows中带的用于控制运动图像的播放的一个类型库，只要在VB的"引用"菜单中将它添加进来即可使用。该库中定义了IBasicAudio，IBasicVideo和IBasicVideo2，IMediaEvent 、IMediaEventEx、IMediaPosition等类，可方便地在CommandButton控件的Click等事件中添加代码设置和读取Audio的相关值，设置或读取Video的输入输出源的相关参数，直接调用无参函数Run、Pause、Stop等控制播放事件进程，利用IMediaPosition类对具体播放细节进行操作。对于压缩的MPEG数据流的输出显示并不需要特别的控件，在VisualBasic中你可以选择一个窗体作为容器或窗体上的PictureBox控件作为容器。为了界面的美观和用户查取相关信息的方便，我们采用了PictureBox控件作为容器显示播放的MPEG数据流。
---- 3．3．用PictureBox控件显示MPEG数据流
---- Visual Basic中PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF 文件的图形。亦可在代码中操作图形属性和方法，以创建动画或进行仿真。在窗体上放置了一个PictureBox控件picTV，在调用了Windows\System下动态链接库Quatrz.dll的基础上，定义一个全局的Object对象pMC，令 pMC指向 FilgraphManager的一个新实例，打开压播放的MPEG文件;再定义一个局部对象 pVW 为 IVideoWindow的新实例，打开一个播放Video的窗口;令pVW = pMC，给对象引用pVW赋值，将picTV的属性值hWnd赋给pVW的Owner ，这样picTV就能显示接收的MPEG数据流了。具体操作如下:
Set pMC = New FilgraphManager
pMC.RenderFile "C:\Bank\Montior\Example.MPG"
Set pVW = pMC
pVW.WindowStyle = CLng(&H6000000)
pVW.Left = 0
pVW.Top = 0
OldWidth = pVW.width
OldHeight = pVW.Height
picTV.width = pVW.width * 15
picTV.Height = pVW.Height * 15
pVW.Owner = picTV.hWnd
---- 可以单独定义一个函数包括这些代码，也可将其放到CommandButton控件的Click事件中。
---- 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 控件是包含滑块和可选择性刻度标记的窗口，可以通过拖动滑块，用鼠标单击滑块的任意一侧或者使用键盘移动滑块。在选择离散数值或某个范围内的一组连续数值时，Slide