Multimedia-Dateien abspielen leicht gemacht Dieser Tipp zeigt, wie man mit Hilfe der Quartz.dll Multimedia-Dateien (AVIs, MPEGs, GIFs, etc.) ohne Control abspielen kann.
Autor:   Gunnar Schmitz	Bewertung:     [ Jetzt bewerten ]	Views:  14.371
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 33 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie wollen AVI- oder MPEG-Files abspielen? Oder animierte GIFs anzeigen? Das alles ist mit der "ActiveMovie Control Type Library" kein Problem. Unter "Projekt - Verweise" können Sie die Quartz.dll unter dem Namen "ActiveMovie control type library" Ihrem Projekt hinzufügen. Hierbei handelt es sich um die "Microsoft DirectShow Laufzeitbibliothek".

Zunächst müssen ein paar Variablen deklariert werden:

Option Explicit
 
' Benötigte Objektvariablen
Private VideoW As IVideoWindow
Private Filgraph As FilgraphManager

Im Form_Load Ereignis wird "Filgraph" instanziert:

Private Sub Form_Load()
  ' FilgraphManager instanzieren
  Set Filgraph = New FilgraphManager
End Sub

Platzieren Sie jetzt noch zwei Command-Buttons auf die Form. Der erste Button dient zum Abspielen, der zweite, um den Abspielvorgang zu stoppen.

Private Sub Command1_Click()
  Dim sPath As String
 
  ' Pfad zur Datei, die abgespielt werden soll
  sPath = "c:\windows\clock.avi"
 
  ' File laden
  Filgraph.RenderFile sPath
 
  ' Eigenschaften des Ausgabefenster
  Set VideoW = Filgraph
  With VideoW
    .Caption = "Fenstertitel"
    .Left = 0
    .Top = 0
    .FullScreenMode = False
    ' ...
  End With
 
  ' Abspielvorgang starten
  Filgraph.Run
 
  ' Objekt zerstören
  Set VideoW = Nothing
End Sub

Private Sub Command2_Click()
  ' Abspielvorgang stoppen
  Filgraph.Stop
End Sub

Mit der Quartz.dll können Sie auch MP3- oder WAVE-Dateien abspielen. Außerdem ist es möglich Bitmaps, GIF- und JPEG-Dateien anzuzeigen.