Получить информацию об аудио-файле из плейлиста/с 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д