Why not put your project file?

[<== I add this line then solve my problem]

Hi Ian,
   After I send you log file and look into those files and review my code.
The cause of problem is when I change soundfont my code load soundfont twice.
After the first one loaded then it call itself by combobox change event.

 If Soundfontload = 1 Then <== I add this line then solve my problem

Thank you,

Private Sub CBSoundfont_Click()
    If Soundfontload = 1 Then <=========================================
        WriteIni "General", "SFName", CStr(CBSoundfont.ListIndex), GetIniFile
        SF2File = Text6.text & "\" & CBSoundfont.text
        Soundfontload = 0
        Load_Soundfont
    End If
End Sub

I uploaded file Li-ke Sing 2.601.zip. The other name is corrupted.

[CBDrum.Clear]

It happen with all soundfont but If I put delay before line CBDrum.clear like this

Call delay(2)
CBDrum.Clear

It works. and if I pause then change soundfont it also work fine.
It only while midi stream playing that it crash.

I write code in VB6 while playing midi file then I change soundfont.
I use following code to reload soundfont and get preset name.
This code work fine in Bassmidi 2.4.5 after I change to Bassmidi 2.4.6 it crash on read preset name.

Private Sub Load_Soundfont()

    ReDim SFMap(0)
    If Soundfontload = 1 Then Exit Sub
    NewSFont = BASS_MIDI_FontInit(SF2File, 0)

    If (NewSFont And NewSFont <> font_) Then
        SFMap(0).font = NewSFont
        SFMap(0).preset = -1 ' use all presets
        SFMap(0).bank = 0 ' use default bank(s)
        Call BASS_MIDI_StreamSetFonts(0, SFMap(0), 1) ' set default soundfont
        Call BASS_MIDI_StreamSetFonts(BASS_FX_TempoGetSource(chan), SFMap(0), 1) ' set for current stream too
        Call BASS_MIDI_FontFree(font_) ' free old soundfont
        font_ = NewSFont
    End If

    CBDrum.Clear
    Dim CSDrum As String
   
    With CBDrum
        For i = 0 To 99
            CSDrum = VBStrFromAnsiPtr(BASS_MIDI_FontGetPreset(NewSFont, i, 128))  <== CRESH THIS LINE
            If Len(CSDrum) Then
                    .AddItem (i & " : " & CSDrum)
                    .ItemData(.NewIndex) = i
            End If
        Next i
        If .ListCount > 0 Then .ListIndex = 0
    End With

    Soundfontload = 1
End Sub

Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT,System.IntPtr.Zero);
BassAsio.BASS_ASIO_Init(0);   

int mixer = BassMix.BASS_Mixer_StreamCreate(44100, 2, BASSFlag.BASS_STREAM_DECODE);
int res = BassMidi.BASS_MIDI_StreamCreateFile("starwars.wav", 0, 0, BASSFlag.BASS_STREAM_DECODE | BASSFlag.BASS_SAMPLE_FLOAT, 44100);
bool ok = BassMix.BASS_Mixer_StreamAddChannel(mixer, res, BASSFlag.BASS_DEFAULT);

ASIOPROC myAsioProc = new ASIOPROC(AsioCallback);
BassAsio.BASS_ASIO_ChannelEnable(false, 0, myAsioProc, new IntPtr(mixer));
BassAsio.BASS_ASIO_Start(0);

everythings looks right but this isn't playing any midi....
how can i listen that note event?

thank you

int res = BassMidi.BASS_MIDI_StreamCreateFile("starwars.wav", 0, 0, BASSFlag.BASS_STREAM_DECODE | BASSFlag.BASS_SAMPLE_FLOAT, 44100);

This line incorrect. It should be change from "starwars.wav" to "starwars.mid"

Please see speaker example that come with bass.

I do not get it work with MIDI I/O.
I use Maple MIDI port In to receive MIDI stream.
I running synth.exe on windows 7 32 Bits.
Playing with PC's keyboard is work fine.

Now I play MIDI file by loading it to memory and play it.
After first MIDI is ended I start playing next MIDI file.
I would like to play the MIDI file continuously.
Some song has quite sound before the song is end I also need to ignore this.
Is there a trigger when last note is played the first note from next song started?

It seems that android has own mixer but I still do not know what it used.

Is it possible? It seems that there is no good music player on android platform.
I am very impressive with bass on windows and I would like it on android too.

I think you should try to do streaming.

I notice that you are using the BASS_SAMPLE_FLOAT flag in the BASS_StreamCreateFile and BASS_MusicLoad calls, but not in the BASS_MIDI_StreamCreateFile call. Is that just a typo?

Oh yes.

Thank you

I make change from DSPTest (VB demo) by add following code

On load I add this code.

    ' get default font (ct4mgm.sf2/ct2mgm.sf2 if available)
    Dim sf As BASS_MIDI_FONT
    If (BASS_MIDI_StreamGetFonts(0, sf, 1)) Then font_ = sf.font

    Dim newfont As Long
    newfont = BASS_MIDI_FontInit("d:\test.sf2", 0)
    If (newfont And newfont <> font_) Then
        Dim sf As BASS_MIDI_FONT
        sf.font = newfont
        sf.preset = -1 ' use all presets
        sf.bank = 0 ' use default bank(s)
        Call BASS_MIDI_StreamSetFonts(0, sf, 1) ' set default soundfont
        Call BASS_MIDI_StreamSetFonts(chan, sf, 1) ' set for current stream too
        Call BASS_MIDI_FontFree(font_) ' free old soundfont
        font_ = newfont
    End If

    chan = BASS_StreamCreateFile(BASSFALSE, StrPtr(cmd.filename), 0, 0, BASS_SAMPLE_LOOP Or BASS_SAMPLE_FLOAT Or BASS_STREAM_DECODE)
    If (chan = 0) Then chan = BASS_MusicLoad(BASSFALSE, cmd.filename, 0, 0, BASS_MUSIC_LOOP Or BASS_MUSIC_RAMPS Or BASS_SAMPLE_FLOAT Or BASS_MUSIC_DECODE, 0)
[color=red]    If (chan = 0) Then chan = BASS_MIDI_StreamCreateFile(BASSFALSE, StrPtr(cmd.filename), 0, 0, BASS_SAMPLE_LOOP Or BASS_STREAM_DECODE Or BASS_MIDI_NOFX, 0)[/color]

    'whatever it is, it ain't playable
    If (chan = 0) Then
        cmdOpen.Caption = "click here to open a file..."
        Call Error_("Can't play the file")
        Exit Sub
    End If

For MP3 is work fine except for MIDI file sound is too fast.

I have try your sample in VB6 and It seems that incorrect version.
This version is use bass 2.2 after I make change the code.
I able to play the song but same thing when I try to load DSP there is no effect.
Then I copy the prevoius version of bass_wadsp.dll. It's works.

I replace this (2.4.1.0) library with my VB6. It seems does not work.
I cannot load the DSP and there is no error.
I just replace and do not modify my source code.

I just added BASS_SAMPLE_SOFTWARE flag to my player.
I got more clearly sound then does not have it.

In what scenario that I need it?
It it effect with latency?

Thank you.

BassVideo current stable version is 2.4.1.2

The example of VB6 doesn't work. It crash on open the movie file.

A BASSMIDI update is up on the BASS page, including an updated MIDITEST example with a tempo adjustment option. I'm afraid that's only the C version currently, but if anyone would like to update the Delphi or VB versions too, that would be handy

The main thing to note is the use of the BASS_SYNC_MIDI_EVENT (MIDI_EVENT_TEMPO) and BASS_SYNC_SETPOS syncs to override the file's tempo events.

Is this similar to  Call BASS_ChannelSetAttribute(chan, BASS_ATTRIB_TEMPO, (bpm / 100) * Velo)
The above I implement using Bass_FX. It very good handle multiple tempo.

I have try your update with the attached file above.
During tempo changed I reset to original tempo.
I get incorrect tempo. It faster than the tempo in the MIDI file.

The attached file in this post is modify version of VB for your new update.

Here it is.