Visual Basic环境下Video/ Audio压缩数据流播放技术(2) ---- 3．2．提供对MPEG流方便的底层操作和高层接口的动态链接库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
