Microsoft Access Programmierrezepte

R12.13 Video-Dateien wiedergeben

Aufgabe

Aus der Access-Anwendung heraus sollen AVI-Videos, deren Verweise zum Beispiel in der Datenbank gespeichert sind, wiedergegeben werden.

Lösung

Wie bereits für die Soundausgabe, können wir auch hier die API-Funktion mciSendString verwenden.

Oberfläche

Für unseren Test genügt ein Formular mit drei Befehlsschaltflächen (Start, Stopp, Abbruch).

Quelltext

Einbinden der API-Funktion:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
  (ByVal lpstrCommand$, ByVal lpstrReturnString$, ByVal uReturnLength&, ByVal hwndCallback&) As Long

Zwei Hilfsroutinen zum Starten und Beenden:

Sub PlayVideo(filename As String) mciSendString "open """ & filename & """ alias myVideo", "", 0, 0 mciSendString "play ...