Looking for a MIDI solution

[SagaraS]

Can you share the code and file?  Something is wrong if it's a 200mb file.

Code: (Select All)

$Unstable:Midi

$MidiSoundFont:Default



Option _Explicit



Dim buffer As String

Dim h As Long



buffer = LoadData



h = _SndOpen(buffer, "memory")



_SndLoop h



Function LoadData$

    Dim Size As _Unsigned Long

    Dim MEM As String



    Open "game-over.mid" For Binary Access Read As #1

    Size = LOF(1)

    MEM = Space$(Size)

    Get #1, , MEM

    Close #1



    LoadData$ = MEM

End Function

And this is the result:


The midi is exactly 415 bytes in size.

You can use MCISendString, I believe.

How do I do that there exactly?
So to transfer a MIDI in the buffer to the MCI?