Okay I made the changes in GFlags.exe.
Now without any changes of code I first get the error in call stack 14, then when I hit continue the error in call stack 15.
It did not happen in the procedure that we have, but it must have been somewhere here I guess (this gets executed before the procedure that we already have, during initialization of the program and the error here is something new):
For Each PlugInDatei In System.IO.Directory.GetFiles(MainModule.VSTVerzeichnis, "*.dll", IO.SearchOption.AllDirectories)
Dim ProduktNameEffekt As String
Dim ProduktNameInstrument As String
Dim vstInfo As New BASS_VST_INFO()
TestHandleInstrument = BassVst.BASS_VST_ChannelCreate(44100, 2, PlugInDatei, 0)
Dim TestHandleEffekt As Integer = BassVst.BASS_VST_ChannelSetDSP(0, PlugInDatei, Nothing, 0)
If (BassVst.BASS_VST_GetInfo(TestHandleEffekt, vstInfo)) AndAlso (Not String.IsNullOrEmpty(vstInfo.effectName)) AndAlso (Not vstInfo.isInstrument) Then
'ProduktName = vstInfo.productName
ProduktNameEffekt = vstInfo.effectName
Else
ProduktNameEffekt = System.IO.Path.GetFileNameWithoutExtension(PlugInDatei)
End If
If (BassVst.BASS_VST_GetInfo(TestHandleInstrument, vstInfo)) AndAlso (Not String.IsNullOrEmpty(vstInfo.productName)) AndAlso (vstInfo.isInstrument) Then
'ProduktName = vstInfo.productName
ProduktNameInstrument = vstInfo.effectName
Else
ProduktNameInstrument = System.IO.Path.GetFileNameWithoutExtension(PlugInDatei)
End If
BassVst.BASS_VST_ChannelRemoveDSP(0, TestHandleEffekt)
BassVst.BASS_VST_ChannelFree(TestHandleInstrument)
If vstInfo.isInstrument = False Then
If BassVst.BASS_VST_ChannelSetDSP(0, PlugInDatei, 0, 0) <> 0 Then
EffektListe.Add(New ViewModel.PlugInsViewModel(Nothing, PlugInDatei, ProduktNameEffekt, True, 0, Nothing, False, CType(System.Windows.Application.Current.Resources("VordergrundfarbeBrush"), SolidColorBrush), New List(Of Single)))
Else
BassVst.BASS_VST_ChannelRemoveDSP(0, 0)
SindEffekteInvalid = True
End If
'EffektListe.Add(New ViewModel.PlugInsViewModel(PlugInDatei, "Effekt1", True, 0, Nothing, False))
'EffektListe.Add(New ViewModel.PlugInsViewModel(PlugInDatei, "Effekt2", True, 0, Nothing, False))
'EffektListe.Add(New ViewModel.PlugInsViewModel(PlugInDatei, "Effekt3", True, 0, Nothing, False))
Else
Dim InstrumentTestHandle As Integer = BassVst.BASS_VST_ChannelCreate(44100, 2, PlugInDatei, BASSFlag.BASS_STREAM_DECODE Or BASSFlag.BASS_SAMPLE_FLOAT)
If InstrumentTestHandle <> 0 Then
InstrumentenListe.Add(New ViewModel.PlugInsViewModel(Nothing, PlugInDatei, ProduktNameInstrument, True, 0, Nothing, False, Nothing, New List(Of Single)))
Else
BassVst.BASS_VST_ChannelFree(InstrumentTestHandle)
SindInstrumenteInvalid = True
End If
End If
Next