Открытие совместного устройства Midi synth

Question

Это мое первое сообщение здесь, поэтому я надеюсь, что не испортит его.

Я создаю трюк гитарного героя в качестве консольного приложения в vb.net (домашнее задание), и я столкнулся с некоторыми проблемами. Я использую CarlsMidiTools для передачи анализируемых значений примечаний на синтезатор. Но я также хочу играть музыку под аккомпанемент на заднем плане. Проблема в том, что я могу работать только один из них одновременно, вероятно, потому, что я не могу получить свой синтезатор (стандартный MS GS wavetable), чтобы перейти в режим совместного использования. У меня также есть вторичный синтезатор, и если я передаю записки на основной и аккомпанемент музыки на вторичный, я могу заставить его работать. Но это неправильное решение и требует загрузки вторичного синтезатора для потенциального пользователя.

Я нашел эту строку, используя «shareable», которая используется в коде для открытия CD-дисков, но я не думаю, что это не работает для секвенсора.

mciSendString("open cdaudio alias cd wait shareable", 0, 0, 0) 

TL; DR/Мой вопрос - как я могу получить мой по умолчанию синт в разделяемом режиме, так что он может слушать carlsMidiTools Lib команд, а также mciSendString играть вариант?

Module Module1 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer 

Dim Inst As New CarlsMidiTools.Instrument 
Sub Main() 
    'open midi 
    mciSendString("open ..\..\..\..\The_Unforgiven\guitar.mid type sequencer alias midi", 0, 0, 0) 
    'Play the midi 
    mciSendString("play midi", 0, 0, 0) 
    'set synth for CarlsMidiTools 
    Inst.OutputDeviceName = "Microsoft GS Wavetable Synth" 
    Inst.OutputChannel = 2 
    Inst.ChangePatchGM("Violin") 
    Inst.Volume = 127 
    Inst.NoteDuration = 0 
    Inst.Open() 
    Inst.PlayNote(70, 127) 
    'Incredible awful loop to simulate gameloop in real app and pause the program 
    For i As Integer = 0 To 2 
     i = i - 1 
    Next 
End Sub 
End Module 

Этот код подбрасывает «Ошибка открытия порта MIDI - устройство в использовании», потому что я попытался снова открыть его для CarlsMidiTools, а затем он начинает играть guitar.mid но «Inst.PlayNote (70, 127)» не получится сказать ни слова.

Answer 1

Я не уверен в стандартном MS GS, но для реального MIDI-устройства это невозможно в Windows.

MIDI-драйвер не мульти-клиент, он не может быть открыт:

• несколько приложений одновременно
• несколько раз в одном приложении

Если вы во втором случае решение состоит в том, чтобы совместно использовать дескриптор устройства между теми объектами, которые ему нужны.