naudio在处理 vb.net 后不释放文件，我认为这确实是一个声明问题

Question

我只在我真正陷入困境时才在这里发帖，所以在这里。

我正在创建一个程序，我可以在其中使用 taglib-sharp 编辑 MP3 文件的元数据(所有数据都来自 mysql db)。 如果我使用 naudio 预览音频文件，我可以毫无问题地听到音频，我可以停止它，所以这一切都很好。 为了我的代码中发生的事情，这是一个从列表框中选择一个文件的问题，然后我按下一个"播放"按钮开始，另一个按钮停止。我的错误是在尝试保存元数据时显示右键单击上下文菜单。

问题是当我去编辑我刚刚播放的同一文件的元数据时，出现了错误 - 如以下代码示例所示。当我尝试调用 mp3.save() 行时，我收到以下错误：

异常文本

******

System.IO.IOException：进程无法访问文件 "C：\temp\test.mp3"，因为它正被另一个进程使用。 在 System.IO.__Error.WinIOError(Int32 errorCode， String maybeFullPath)
at System.IO.FileStream.Init(String path， FileMode mode， FileAccess 访问， Int32 权限， 布尔使用权限， 文件共享共享， Int32 缓冲区大小， 文件选项选项， SECURITY_ATTRIBUTES 秒收件人， 字符串 msgPath， Boolean bFromProxy， Boolean useLongPath， Boolean checkHost)
at System.IO.FileStream..ctor(字符串路径、文件模式模式、文件访问) 访问，文件共享共享)位于 TagLib.File.LocalFileAbstraction.get_WriteStream() 在 TagLib.File.set_Mode(访问模式值)在 TagLib.NonContainer.File.Save() at LinersDB_META。Form1.menuChoice(Object sender， EventArgs e) in C：\Users\smonro\source\repos\WindowsApp1\WindowsApp1\Form1.vb：line 2281 at System.Windows.Forms.ToolStripItem.RaiseEvent(Object key， EventArgs e) at System.Windows.Forms.ToolStripMenuItem.OnClick(EventArgs e) at System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e) at System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)at
System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea) at System.Windows.Forms.ToolStripDropDown.OnMouseUp(MouseEventArgs mea)
at System.Windows.Forms.Control.WmMouseUp(Message& m， MouseButton 按钮，Int32 单击)在 System.Windows.Forms.Control.WndProc(Message&m) at System.Windows.Forms.ToolStrip.WndProc(Message&m) at System.Windows.Forms.ToolStripDropDown.WndProc(Message& m) at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd， Int32 msg， IntPtr wparam， IntPtr lparam)

等

我知道为什么会发生这种情况，但我不知道如何解决它。

根据这个页面，(在C#中)我需要发布"Mp3FileReader"。

就我而言，这将是"数据" - 这个： 将数据暗淡为新 NAudio.Wave.Mp3FileReader(file)

问题是，它在一个私有子中，作为一个私有变量。

但是，当我需要同时声明文件时，我正在努力了解如何公开此声明，但也需要知道它，并在每次选择不同的音频文件时重新初始化。

有什么想法吗？

我应该尝试重新安排我的程序以不同的方式工作吗？提前谢谢。

'...
Imports System.IO 'File Operations
Imports TagLib ' Tagging
Imports NAudio
'...
'Wave out device for playing the sound
Public Shared Wave1 As New NAudio.Wave.WaveOut 'Wave out device for playing the sound    
Public Sub start_audio()
Dim file As String = "C:testtest.mp3"
If IO.File.Exists(file) Then
Dim data As New NAudio.Wave.Mp3FileReader(file)
Wave1.Init(data)
Wave1.Play()
End If
End Sub
Public Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click        
Wave1.Stop()        
End Sub
Public Sub menuChoice(ByVal sender As Object, ByVal e As EventArgs)
Dim item = CType(sender, ToolStripMenuItem)
Dim selection = CInt(item.Tag)        
Select Case selection
Case 1
' Remove the Artwork
'Insert Album art and save to file and dispose.
If IO.File.Exists(GLOBAL_Full_Path) Then
Wave1.Stop()
Wave1.Dispose()
System.GC.Collect()
System.GC.WaitForPendingFinalizers()
Dim mp3 As TagLib.File = TagLib.File.Create(GLOBAL_Full_Path)
' Clear the artwork from the file.. (It's a big process)
Dim pics As Picture = New Picture()
Dim picsFrame As New TagLib.Id3v2.AttachedPictureFrame(pics)
picsFrame.MimeType = System.Net.Mime.MediaTypeNames.Image.Jpeg
'set the type of picture (front cover)
picsFrame.Type = TagLib.PictureType.FrontCover
picsFrame.Description = "" ' So the Actual location of the image is not stored in the file. This would otherwise reveal internal systems to the public.
'Id3v2 allows more than one type of image, just one is needed here.
Dim pictFrames() As TagLib.IPicture = {picsFrame}
'set the pictures in the tag
mp3.Tag.Pictures = pictFrames
' ******************************************
' Error occurs here after a file has been played.
mp3.Save()
' Error occurs here                 
' ******************************************
mp3.Dispose()
End If
Case Else
End Select
End Sub             

Answer 1

在@TnTinMn为我指出正确的方向后，我最终解决了这个问题。虽然这不是完整的示例，但我现在已经通过添加和更改一些小东西来解决这个问题。

Imports NAudio
' NEW/required to get the Mp3FileReader, so it can be dynamically populated.
Imports NAudio.Wave 
Dim WavePlayOut As New NAudio.Wave.WaveOut 'Wave out device for playing the sound
Dim WaveFile As String = "" ' *** NEW/Declared ***
Dim WaveData As Mp3FileReader ' *** Changed ***
Public Sub start_audio()
If File_ListView.SelectedItems.Count > 0 Then
WaveFile = TxtBx_Path.Text & "" & File_ListView.FocusedItem.Text
If WavePlayOut IsNot Nothing Then
WavePlayOut = New NAudio.Wave.WaveOut
End If
If WaveData IsNot Nothing Then
WaveData.Dispose()
WaveData = New Mp3FileReader(WaveFile)
If WaveData.Length > 1 Then
If IO.File.Exists(WaveFile) Then
WavePlayOut.Init(WaveData)
WavePlayOut.Play()
End If
End If
Else
WaveData = New Mp3FileReader(WaveFile)
If WaveData.Length > 1 Then
If IO.File.Exists(WaveFile) Then
WavePlayOut.Init(WaveData)
WavePlayOut.Play()
End If
End If
End If
End If
End Sub

要卸载音频文件，请使用以下命令：

If WaveData IsNot Nothing Then
WaveData.Dispose()
End If
If WavePlayOut IsNot Nothing Then
WavePlayOut.Stop()
WavePlayOut.Dispose()
End If