Блог

Как бы я использовал BinaryReader для чтения midi-файла (спецификации для формата находятся здесь)

Я использую vb.net но я готов увидеть другой код (в основном только C #, я могу его преобразовать). Я работаю над большим проектом, и это приводит к некоторому скачку скорости.

Вот мой текущий код:

 Private Function convertCharArrayToString(ByVal chars() As Char) As String
    Dim tReturn As String = ""
    For Each v As Char In chars
        tReturn amp;= v
    Next
    Return tReturn
End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    midiStatus = "Reading..."
    Dim midiStream As New StreamReader(midiFile)
    Dim nBR As New BinaryReader(midiStream.BaseStream)
    midiStatus = "Validating Midi File..."
    Dim HeaderA As String = convertCharArrayToString(nBR.ReadChars(4))
    If Not HeaderA = "MThd" Then Return
    Dim HeaderB() As Byte = nBR.ReadBytes(4)
    'Get Track Type
    midiStatus = "Reading Header Data..."
    Dim TrackType1 As Integer = nBR.ReadInt16()
    Dim TrackType2 As Integer = nBR.ReadInt16()
    MsgBox(TrackType1 amp; TrackType2)

End Sub
  

Все работает, пока я не начну читать фактические данные заголовка. Я совершенно не понимаю, как мне продолжить. Любая помощь или примеры кода были бы хороши!

Напишите свою логику декодирования в классе, а не непосредственно в графическом интерфейсе.

Определите структуру для MIDI-заголовка, затем используйте что-то вроде этого, чтобы установить его.