Tipp 0301 DirectMusic-Segmente abspielen (einfach)
Autor/Einsender:
Datum:
  Alexander Csadek
12.01.2003
Entwicklungsumgebung:
DirectX-Version:
  VB 6
DirectX 7
DirectMusic-Segmente mit DirectX abspielen ist nicht nur genauso leicht wie das Abspielen von MIDI-Dateien, sie haben gegenüber dem normalen MIDI auch noch einige Vorteile. Einer davon ist die Verwendung von WAV-Samples, welche als Instrument eingesetzt werden können. Die WAV-Dateien werden in den DLS-Collections von DirectMusic geladen und dort verwaltet.
Ein weiterer Vorteil sind die Runtime-Files, die mit DirectMusic aus den eigenen Musik-Projekten erstellt werden können. Somit sind die Ressourcen geschützter als herkömmliche MIDIs.
Es werden die gleichen Objekte verwendet wie im Tipp Midi-Dateien abspielen (einfach:
DirectMusicLoader
DirectMusicSegment
DirectMusicPerformance
DirectMusicSegmentState
Mit dem DirectMusicLoader wird das Segment geladen, im DirectMusicSegment stehen die Musik-Daten, über DirectMusicPerformance wird das MIDI abgespielt, und vom DirectMusicSegmentState lassen sich noch nähere Angaben zum MIDI selbst entlocken.
Wichtig ist noch, dass der AutoDownload aktiviert wird. DirectX lädt dann automatisch die zum Segment benötigten Dateien wie Band, ChordMap und DLS Collection mit. Diese Funktion stellt das DirectMusicPerformance-Objekt zur Verfügung und heisst SetMasterAutoDownload.
 
Option Explicit

Dim DX7 As New DirectX7
Dim MIDLoader As DirectMusicLoader
Dim MIDSeg As DirectMusicSegment
Dim MIDPerf As DirectMusicPerformance
Dim MIDSegState As DirectMusicSegmentState

Dim mtTime As Long
Dim GetStartTime As Long
Dim Offset As Long
Dim MIDInPause As Boolean

Private Sub cmd_Open_Click()
  Set MIDLoader = Nothing
  Set MIDLoader = DX7.DirectMusicLoaderCreate

  Set MIDPerf = Nothing
  Set MIDPerf = DX7.DirectMusicPerformanceCreate

  MIDPerf.Init Nothing, 0
  MIDPerf.SetPort -1, 80

  MIDPerf.SetMasterAutoDownload True

  CDialog_Open.Filter = "Midi-Segment Files (*.sgt)|*.sgt"
  CDialog_Open.FileName = vbNullString
  CDialog_Open.InitDir = App.Path
  CDialog_Open.ShowOpen

  If CDialog_Open.FileName <> vbNullString Then
    Set MIDSeg = MIDLoader.LoadSegment(CDialog_Open.FileName)

    MIDSeg.SetStartPoint 0
    cmd_Play.Enabled = True
  Else
    Exit Sub
  End If
End Sub

Private Sub cmd_Play_Click()
  MIDSeg.SetStartPoint 0
  Set MIDSegState = MIDPerf.PlaySegment(MIDSeg, 0, 0)

  cmd_Play.Enabled = False
  cmd_Pause.Enabled = True
  cmd_Stop.Enabled = True
  cmd_Open.Enabled = False

  Timer1.Enabled = True

  MIDInPause = False
End Sub

Private Sub cmd_Pause_Click()
  On Error GoTo ErrOut

  If MIDPerf.IsPlaying(MIDSeg, MIDSegState) = True Then
    MIDInPause = True
    Timer1.Enabled = False
    mtTime = MIDPerf.GetMusicTime()
    GetStartTime = MIDSegState.GetStartTime()
    MIDPerf.Stop MIDSeg, Nothing, 0, 0
  Else
    Offset = mtTime - GetStartTime
    MIDSeg.SetStartPoint Offset
    Set MIDSegState = MIDPerf.PlaySegment(MIDSeg, 0, 0)
    MIDInPause = False
    Timer1.Enabled = True
  End If

  Exit Sub
ErrOut:
  MsgBox "Lied wurde aufgrund eines Fehlers angehalten.", _
      vbInformation, Title:=Me.Caption
  cmd_Stop_Click
End Sub

Private Sub cmd_Stop_Click()
  MIDPerf.Stop MIDSeg, MIDSegState, 0, 0

  cmd_Play.Enabled = True
  cmd_Pause.Enabled = False
  cmd_Stop.Enabled = False
  cmd_Open.Enabled = True

  Timer1.Enabled = False

  MIDInPause = False
End Sub

Private Sub cmd_Close_Click()
  If MIDSeg Is Nothing Then
    End
  Else
    If MIDPerf.IsPlaying(MIDSeg, MIDSegState) Then
      MIDPerf.Stop MIDSeg, MIDSegState, 0, 0
    End If
    
    Set MIDSegState = Nothing
    Set MIDPerf = Nothing
    Set MIDSeg = Nothing
    Set MIDLoader = Nothing
    
    End
  End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, _
        UnloadMode As Integer)
  cmd_Close_Click
End Sub

Private Sub Timer1_Timer()
  If MIDInPause Then Exit Sub

  If MIDPerf.IsPlaying(MIDSeg, MIDSegState) = False Then
    Timer1.Enabled = False
    cmd_Play.Enabled = True
    cmd_Pause.Enabled = False
    cmd_Stop.Enabled = False
    cmd_Open.Enabled = True
  End If
End Sub
 
Weitere Links zum Thema
Midi-Dateien abspielen (einfach
Hinweis
Um dieses Beispiel ausführen zu können, wird die DirectX 7 for Visual Basic Type Library benötigt (siehe dazu die Erläuterungen in der DirectX-Rubrik).

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (88,8 kB) Downloads bisher: [ 763 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Donnerstag, 8. September 2011