在VB中使用DirectShow播放AU文件

江蘇省淮安市統計局 朱懷眾

---- 微軟的DirectShow是一種可擴展的媒體結構，它通過內置的或自定義的過濾器（Filter)控制和處理多媒體數據流， 微軟隨Inte.net Explorer 4.01及Windows 98 一起發布了一個DirectShow運行時間文件：Quartz.dll。利用它，你幾乎能重放所有流行的媒體文件：MPEG、AVI、WAV、MIDI、AU和MOV。

---- 除過濾器外，DirectShow還支持一種自動化對象（ filter graph manager），該對象了解所有可利用的過濾器，并能根據媒體文件的類型自動選擇所需的過濾器。

---- 為了在VisualBasic中使用這一自動化對象，我們首先要在VisualBasic工程中注冊ActiveMovie Control type library（即QuartzTypeLib） ，注冊成功后，就可用對象瀏覽器（Object Browser）檢查和ActiveMovie Control type library 相對應的屬性、事件和方法。

---- 隨著因特網的普及，通常被用在Unix機上的聲音文件（以AU為擴展名)也開始經常出現在Windows機上。下面就以在Visual Basic中播放AU文件為例，講述如何使用DirectShow重放媒體文件。

---- 1. 在Visual basic中新建一個 Standard EXE 工程， Form1被缺省創建。

---- 2. 從 Project 菜單中，選取References，ActiveMovie Control type library 將出現在Available References的列表框中，點擊它旁邊的小方框。

---- 3. 在 Form1添加一個命令按鈕。

---- 4. 粘貼下面的代碼到Form1的代碼窗口，其中變量MyFile存放你的AU 文件的路徑及文件名。

   Option Explicit

   Private Sub Command1_Click()
      Static MyObject As Object
      Dim MyFile As String

      MyFile = "< AU 文件的路徑及文件名 >"
      Set MyObject = New FilgraphManager
      MyObject.RenderFile MyFile
      MyObject.Run
   End Sub

---- 5. 在Run菜單上，選取Start，或按F5鍵運行此程序，點擊Command1， AU 文件將開始播放。 

原文轉自：http://www.anti-gravitydesign.com