VB-Homepage Tipp 266
Midi - Files [*.mid] abspielen
Eigentlich soll dieser Tipp nur unsere Tipp-Sammlung komplettieren, da inzwischen sowohl das Abspielen von *.wav als auch von *.avi Files eines Tipps gewürdigt wurde.
Um in den Soundgenuß zu kommen, benötigen Sie natürlich eine Soundkarte und echte Midi - Kenner wissen natürlich, es darf nicht die billigste sein.

Ansonsten bedarf es nicht viel, um die einfachen Funktionen

Open (Laden)
Play (Abspielen)
Stop (Anhalten)
und Close (Entladen-frei geben) zu nutzen.

Ein bisschen API muß sein, auf ein zusätzliches Control können wir aber verzichten.

Allgemein / Deklarationen
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Definieren Sie nun auf Ihrer Form zwei Command-Button, den einen mit Play und den anderen mit Stop als Caption Eigenschaft.

Der Start Button erhält die Anweisungen ....
Dim i As Long, RS As String, cb As Long, W$
RS = Space$(128)

'Pfad zur Midi-Datei anpassen !!
W$ = "midi.mid"

'Midi laden
i = mciSendString("open sequencer!" & W$ & " alias midi", RS, 128, cb)

'Fehlerbhandlung
If i Then MsgBox "Fehler - Datei nicht gefunden."

'Abspielen
i = mciSendString("play midi", RS, 128, cb)

... und der Stop Button die Anweisungen ....
Dim i As Long, RS As String, cb As Long

RS = Space$(128)

'Midi Abspielen stopen
i = mciSendString("stop midi", RS, 128, cb)

'Kanal freigeben
i = mciSendString("close midi", RS, 128, cb)

... jeweils in der Click Aktion.

Auf was warten Sie, das war's.

Denken Sie an das Anpassen des Pfades zur gewünschten Midi-Datei, Sie werden sicher einige im Media Verzeichnis haben und schon kann es los gehen.
Tipp-Download
Quelle :
Zurück zur Übersichtsseite