Определить статус воспроизведения файла - VB
Формулировка задачи:
Здравствйуте!Опишу ситуацию:
У меня есть программа в которой для воспроизведения аудио я использую библиотеки
winmm.dll
:а для воспроизведения собственно аудиофайла команду:
Вопрос:
Как по нажатии на Command1 узнать играет ли 1.mp3 или уже воспроизведение завершено?
Решение задачи: «Определить статус воспроизведения файла»
textual
Листинг программы
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringW" (ByVal lpstrCommand As Long, ByVal lpstrReturnString As Long, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Dim ret As String
ret = Space(255)
mciSendString StrPtr("status Music mode"), StrPtr(ret), Len(ret), 0
If StrComp(Left$(ret, 7), "playing", vbTextCompare) = 0 Then
MsgBox "Г…Г№ГҐ ГЁГЈГ°Г*ГҐГІ"
Else
MsgBox "ГЋГ±ГІГ*Г*îâëåГ*Г®"
End If
End Sub
Private Sub Form_Load()
Dim ret As Long
Dim file As String
file = Chr$(34) & "D:\Òîëèê\ÌóçûêГ*\ZX-Spectrum\ZX Spectrum - Lyra 2 Megademo (1991).mp3" & Chr$(34)
ret = mciSendString(StrPtr("open " & file & " alias Music"), 0, 0, 0)
mciSendString StrPtr("play Music"), 0, 0, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
mciSendString StrPtr("close Music"), 0, 0, 0
End Sub