Reproducir audio en Access 2007
Publicado por Salomo (9 intervenciones) el 13/01/2014 13:11:03
Tengo un problema que no se como resolver. Necesito hacer una aplicacion en Access 2007 para reproducir audio .MID, o .MP3 y lo hago con la API
Para reptroducir hago:
Y para parar la musica
Hasta aquí funciona correctamente. Pero no tengo forma de saber cuando ha terminado de reproducir un archivo o cuanto tiempo falta para terminar.
Lo hago comporbando LngRet i A
Pero siempre me dan los mismos valores. ¿Sabeis de que forma se puede hacer?
1
Private Declare Function apimciGetErrorString Lib "Winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Para reptroducir hago:
1
2
strTemp = String$(256, 0)
lngret = apimciSendString("play " & strFilename, strTemp, 255, 0)
Y para parar la musica
1
2
strTemp = String$(256, 0)
lngret = apimciSendString("stop " & strFilename, strTemp, 255, 0)
Hasta aquí funciona correctamente. Pero no tengo forma de saber cuando ha terminado de reproducir un archivo o cuanto tiempo falta para terminar.
Lo hago comporbando LngRet i A
1
2
strTemp = String$(256, 0)
LngRet = apimciSendString("status " & FileName, A, 255, 0)
Pero siempre me dan los mismos valores. ¿Sabeis de que forma se puede hacer?
Valora esta pregunta
0