vb@rchiv · Tipps & Tricks · Multimedia-Dateien abspielen leicht gemacht

Rubrik: Multimedia & Sound · Sonstiges | VB-Versionen: VB4, VB5, VB6

08.01.04

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:	Views: 22.472
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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.