Добрый день!
Как узнать длину трека(mp3/wav/wma)? Нужно определить сколько времени будет проигрываться определенный файл.
Заранее благодарен.
Dim pil As MCI_OPEN_PARMS, statparam As MCI_STATUS_PARMS, IDDev As Long,Length as long
pil.dwCallback = vbNull
pil.lpstrDeviceType = vbNullString
pil.lpstrElementName = "C:\1.mp3"
mciSendCommand 0, MCI_OPEN, MCI_OPEN_ELEMENT, pil
IDDev = pil.wDeviceID
statparam.dwItem = MCI_STATUS_LENGTH
mciSendCommand IDDev, MCI_STATUS, MCI_STATUS_ITEM, statparam
Length = statparam.dwReturn
mciSendCommand IDDev, MCI_CLOSE, 0&, 0&
With mEngine
.FileName = "C:\Music.wma"
.DeviceType = "MPEGVideo"
.mOpen
Debug.Print .Length
.mClose
End With
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 48