VB环境下压缩数据流播放技术(1)(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事件中。
