Registrarse

[Kizar]

He estado mirando codes y demas y para reproducir los MIDI se necesita el directx, se podria hacer de otra manera, aunque sea con una dll...
O algun programa para convertir de MIDI a WAVE para reproducirlo con las apis.
Salu2

[.Slasher-K.]

Playing MIDI Files

[Kizar]

Ya puestos posteo lo que encontre.

Código:

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


Public Function PlayMidiFile(MidiFile As String) As Boolean

'MidiFile = File's Full Path
'Returns: True if successful, false otherwise

Dim lRet As Long

On Error Resume Next

If Dir(MidiFile) = "" Then Exit Function
'Stop any currently playing .mid
lRet = mciSendString("stop midi", "", 0, 0)
lRet = mciSendString("close midi", "", 0, 0)

'Play
lRet = mciSendString("open sequencer!" & MidiFile & " alias midi", "", 0, 0)
lRet = mciSendString("play midi", "", 0, 0)
PlayMidiFile = (lRet = 0)
End Function

Public Function StopMidi() As Boolean

'Stops midi from playing
'Returns: True if successful, false otherwise

Dim lRet As Long

On Error Resume Next

'Stop any currently playing .midi
lRet = mciSendString("stop midi", "", 0, 0)
StopMidi = (lRet = 0)
lRet = mciSendString("close midi", "", 0, 0)


End Function