VB.NET의 MIDI 사운드 : 일시 중지 및 다시 시작한 후에 다른 소리가 들린다

Question

내 VB.NET (VB 2010 Express)에서 MIDI 파일을 재생하려고하고 있는데 번역 된 코드는 this other question here on Stack Overflow입니다. C에서 VB로.

그러나 PAUSE (일시 중지)는 해당 코드가 열린 상태와 정지 상태 일 때만 필요합니다. 이 같은 코드 편집 :

Imports System.Runtime.InteropServices 
Imports System.IO 
''' <summary> 
''' MCIPlayer is based off code by Slain. 
''' Found here: http://www.sadeveloper.net/Articles_View.aspx?articleID=212 
''' </summary> 
Public Class MCIPlayer 
    Private Shared ReadOnly sAlias As String = "TeaTimerAudio" 

    <DllImport("winmm.dll")> _ 
    Private Shared Function mciSendString(ByVal strCommand As String, ByVal strReturn As StringBuilder, ByVal iReturnLength As Integer, ByVal hwndCallback As IntPtr) As Long 
    End Function 

    Public Shared Sub Open(ByVal sFileName As String) 
     If _Status() <> "" Then 
      _Close() 
     End If 
     Dim sCommand As String = "open """ & sFileName & """ alias " & sAlias 
     mciSendString(sCommand, Nothing, 0, IntPtr.Zero) 
    End Sub 

    Public Shared Sub Close() 
     Dim sCommand As String = "close " & sAlias 
     mciSendString(sCommand, Nothing, 0, IntPtr.Zero) 
    End Sub 

    Public Shared Sub Pause() 
     Dim sCommand As String = "pause " & sAlias 
     mciSendString(sCommand, Nothing, 0, IntPtr.Zero) 
    End Sub 

    Public Shared Sub Play() 
     Dim sCommand As String = "play " & sAlias 
     mciSendString(sCommand, Nothing, 0, IntPtr.Zero) 
    End Sub 

    Public Shared Function Status() As String 
     Dim sBuffer As New StringBuilder(128) 
     mciSendString("status " & sAlias & " mode", sBuffer, sBuffer.Capacity, IntPtr.Zero) 
     Return sBuffer.ToString() 
    End Function 
End Class 

을 그리고 다음과 같이 호출 :

문제는 내가 플레이를 클릭하면 어떤 이유로 들어, 다음, 일시 정지, 다시 재생,이다

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    MCIPlayer.Open("C:\Users\User\Desktop\aqua-roses_are_red.mid") 
End Sub 

Private Sub PlayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayButton.Click 
    MCIPlayer.Play() 
End Sub 

Private Sub PauseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseButton.Click 
    MCIPlayer.Pause() 
End Sub 

Private Sub StopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopButton.Click 
    MCIPlayer.Close() 
End Sub 

파일은 실제로 남은 곳에서 재생을 다시 시작하지만 악기는 완전히 다릅니다. 멜로디는 기본 피아노로 되돌아 가고, 일시 정지를 누르기 전에 완전히 다른 사운드였습니다.

도와 주실 수 있습니까?

나는 Win7x64

에

고마워 해요! 최고

Answer 1

좋아, 어떻게해야하는지 알았어. 여기에 느슨하게 나는 위의 코멘트에 언급 된 freebasic.net 링크에 영감 코드는하지만, 많은 간단한 :

Public Shared Sub ResumeAfterPause() 
    MsgBox(CLng(_Status())) 'Just to make sure the status is the position, see below 
    Dim sCommand As String = "play " & sAlias & " from " & CLng(_Status()) 
    mciSendString(sCommand, Nothing, 0, IntPtr.Zero) 
End Sub 

그리고 상태 절차는 다음과 같이 수정 :

Public Shared Function _Status() As String 
    Dim sBuffer As New StringBuilder(128) 
    mciSendString("status " & sAlias & " position", sBuffer, sBuffer.Capacity, IntPtr.Zero) 
    Return sBuffer.ToString() 
End Function 

것 같아요 노래가 처음부터 연주 될 때, 플레이어는 악기 정보를 읽습니다. 다른 위치에서 시작하면 장치 드라이버가 다른 위치에서 시작한다는 것을 알게해야합니다. 그러면 이전 악기 설정을 검색 할 수 있습니다.

어쨌든 모든 것이 잘 끝납니다. (아직 끝나지 않았지만 ... 내 앱이 완료되면 다른 플랫폼에서도 테스트하고 동일하게 작동하는지 확인해야합니다.)