Получить информацию об аудио-файле из плейлиста/с CD/DVD, изменить текущую позицию - VB

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

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

В моем аудио-плеере есть всего заметных невооруженным глазом бага: не выходит получить информацию об аудио-файле из плейлиста [формат M3U] и также из CD/DVD диска (то есть название, альбом, год, если они записаны в тегах). И ещё нельзя перемотать на нужное место запись из плейлиста и диска. Вот фрагменты кода, которые работают с обычными аудио-файлами и совершенно не работают с плейлистами и дисками. Получить данные из тегов файла:
Перемотать запись на нужное место [Position - это объект Slider]:
Из модуля:

Решение задачи: «Получить информацию об аудио-файле из плейлиста/с CD/DVD, изменить текущую позицию»

textual
Листинг программы
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
Dim lTotalTime As Long
Dim strFileToPlay As String
 
Private Sub TotalTime()
    Dim TotalTime As String * 128
    mciSendString "open " & strFileToPlay & " type MPEGVideo", 0, 0, 0
    mciSendString "set " & strFileToPlay & " time format ms", TotalTime, 128, 0&
    mciSendString "status " & strFileToPlay & " length", TotalTime, 128, 0&
    lTotalTime = Val(TotalTime)
    
End Sub
 
Private Sub Command1_Click()
mciSendString "close all", 0, 0, 0
strFileToPlay = Chr(34) & "C:\E. Vaenga - Kurju.mp3" & Chr(34)
TotalTime
MsgBox lTotalTime / 1000 & "сек."
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
mciSendString "close all", 0, 0, 0
End Sub

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


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

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

13   голосов , оценка 4.154 из 5
Похожие ответы