.NET 4.x Ошибка открытия файла в плеере - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Такая проблема - имею форму (музыкальный плеер), но при открытии файла, если путь состоит из русских букв, или при наличии пробелов, возникает ошибка и файл не проигрывается (Как пример: D:\Мои документы\Музыка\Тест.mp3)! Если название директории и самой музыки состоит из английских букв, и без пробелов - всё работает (Как пример: D:\Test\test.mp3). Код ниже:
Листинг программы
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
  2. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  3. Dim name As String
  4. Dim name2 As String
  5. Dim time As String
  6. Dim a As String
  7. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  8. OpenFileDialog1.InitialDirectory = "D:"
  9. On Error Resume Next
  10. OpenFileDialog1.Title = "Open a Music File"
  11. OpenFileDialog1.Filter = "Music file (*.mp3)|*.mp3|All files (*.*)|*.*"
  12. OpenFileDialog1.ShowDialog()
  13. On Error Resume Next
  14. name = OpenFileDialog1.FileName
  15. On Error Resume Next
  16. End Sub
  17. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  18. On Error Resume Next
  19. name2 = "play " & name
  20. Call mciExecute(name2)
  21. On Error Resume Next
  22. Timer2.Enabled = True
  23. Dim w As New WMPLib.WindowsMediaPlayer
  24. Dim m As WMPLib.IWMPMedia = w.newMedia(name)
  25. End sub

Решение задачи: «.NET 4.x Ошибка открытия файла в плеере»

textual
Листинг программы
  1. mciSendString("OPEN " & Chr(34) & name & Chr(34) & " TYPE MpegVideo ALIAS MP3", "", 0, 0)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут