Looking for a MIDI solution

[SagaraS]

I'm looking for a solution how I can play MIDI music within a file and then repeat itself over and over again.

As an example:
The Music.mid is in an archive at offset address &H400.
For example, I want to load the data into an array and send it to an API like Winmm. Is that possible? And if so how?
Or are there better alternatives for such a project?

The archive is nothing special. Is simply a raw archive.

[bplus]

Wiki claims Midi can be played thusly: 
https://qb64phoenix.com/qb64wiki/index.p..._Libraries

[SMcNeill]

Wiki claims Midi can be played thusly: 
https://qb64phoenix.com/qb64wiki/index.p..._Libraries

Even easier: Our new sound libraries support it natively.

MidiSoundFont

[SMcNeill]

$UNSTABLE:MIDI

' Using a custom soundfont rather than the default
$MIDISOUNDFONT: "soundfont.sf2"

_SNDPLAYFILE "example.mid"

[DSMan195276]

The Music.mid is in an archive at offset address &H400.
For example, I want to load the data into an array and send it to an API like Winmm. Is that possible? And if so how?

In addition to what the others have said about QB64-PE's native MIDI support (using `$Unstable:Midi` and `$MidiSoundFont`), QB64-PE also has the ability to load music files (such as MIDI) from a string rather than a file, see the notes on using the `"MEMORY"` capability with _SNDOPEN.

Point being, you can open your archive file yourself, seek to `&H400` and read the contents of `Music.mid` into a `String`, and then pass that `String` directly to `_SNDOPEN` to be able to play it. Doing it that lets you play the sound without `Music.mid` being in a separate file. You can see an example of this at the bottom of the `_SNDOPEN` page, it reads the sound from `DATA` statements rather than from within a separate file but the concept is the same.

[SagaraS]

Is there any alternative other than $unstable:midi and soundfonts?
Because the file is over 200MB in size when I use the commands.
That's out of all proportion.
I have a gm.sf2 that is almost 3MB and a midi file with almost 400 bytes
Then why is the EXE over 200MB?
Without $unstable:midi and soundfonts, the EXE is just 2MB in size.
What is QB64PE doing there? That's stupid.

Would like to use the tools of Windows. So no sound fonts.

[SMcNeill]

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

[SpriggsySpriggs]

You can use MCISendString, I believe.

[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?

[mnrvovrfc]

You did not say in your OP that you wanted the MIDI file played back by the system, ie. the "GS Wavetable Synthesizer" or through a MIDI cable into a hardware synthesizer.

Welcome to consequences with using MIDI and Soundfonts. The Soundfont will become part of the EXE file to ensure playback of any MIDI file that could possibly use that Soundfont. The system cannot assume which patch will be used, so it could include a few and throw away the others. This malady happens anywhere else that a Soundfont has to be packed along with other data and the execution of music related to it.