Looking for a MIDI solution

[SMcNeill]

Here's a working version which plays a mid song for you; as you can see, this doesn't produce any 200MB EXE filesize.

Code: (Select All)

$Unstable:Midi

$MidiSoundFontefault



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 "Under-the-sea.mid" For Binary Access Read As #1

    Size = LOF(1)

    MEM = Space$(Size)

    Get #1, , MEM

    Close #1



    LoadData$ = MEM

End Function

The bas file is 1KB, the MID file is 61 KB, and the compiled EXE is 3.8KB.  All files are in the attachment below for ease of extraction and testing.