Tippseite

VB-Homepage Tipp 364

Wiedergabe von UNIX Klangdateien *.au

Ich kann Ihnen keine Auskunft geben, warum es so sinnlos viele Klangformate
gibt und ich kann Ihnen erst recht nicht sagen, warum Sie gerade so etwas exotisches in Ihr Projekt aufnehmen sollen.

Aber wir wollen natürlich auf der Höhe der Zeit bleiben, wo alle Welt über Linux spricht, und uns diesem Format, das wohl aus der Unix Welt stammen soll einen Platz in der Tipp-Datenbank einräumen.

Um diesen Tipp testen zu können, muß auf Ihrem System DirectShow-ActiveMovie installiert sein. Dies sollte zum Beispiel mit der Installation von IE4 der Fall sein.
Um nun In Ihrem Projekt auf die Funktionen zugreifen zu können, müssen Sie Ihrem Projekt unter Verweise die ActiveMovie Control Type Library (quartz.dll) hinzufügen.

Kommen wir nun zur Realisierung, also dem Abspielen einer Klangdatei.
Basteln Sie eine Drive-, Dir- und FileListbox auf Ihre Form und verbinden sie diese. Geben Sie der FileListbox in der Eigenschaft Pattern den Eintrag [ *.au ], damit nur die entsprechenden Dateien angezeigt werden.

Desweiteren benötigen wir nichts mehr, denn die Aktion wird durch einen Doppelklick auf einen Eintrag in der FileListbox ausgelöst. (File1_DblClick)

Wiedergabe der Klangdatei :

Dim PMC As Object
Dim Pfad As String

If File1.ListCount > 0 Then 'damit auch was zum abspielen da ist.

    If Right(Dir1, 1) = "\" Then         'berühmt,berüchtigte Backslash Abfrage
       Pfad = Dir1 & File1
    Else
       Pfad = Dir1 & "\" & File1
    End If

    Set PMC = New FilgraphManager      ' Objekterstellung
    PMC.RenderFile Pfad                       ' Filename übergeben und Vorbereitung
    PMC.Run                                      ' Start der Wiedergabe

End If

Möchten Sie noch die Möglichkeit des Stoppens der Wiedergabe haben, dann
heißt as ganze PMC.Stop . Deklarieren Sie dann die Variablen unter Allgemein.

Das gleiche sollte meineswissens auch mit *.snd Dateien funktionieren.

Sie können das Selbe übrigens auch mit dem amovie.ocx Control erreichen, dort sogar mit mehr Möglichkeiten, allerdings müssen Sie dann auch mit dem Control Ihr Projekt aufpumpen. (Immerhin 167 KB)

Tipp-Download

Quelle : Microsoft Knowledge Base