Pb avec mciSendStringA pour lire une partie d'une video
MrdJack
Messages postés146Date d'inscriptionjeudi 22 avril 2004StatutMembreDernière intervention 8 mars 2008
-
1 août 2006 à 18:20
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
4 août 2006 à 10:31
salut,
je cherche à lire une partie d'une vidéo en utilisant l'api mciSendStringA.
le probleme n'est pas la lecture, mais le fait qu'elle ne s'arrete pas à l'interval donné mais seulement à la fin de la video.
voici un code tres leger pour expliquer ma demarche :
Private Declare Function mciSendStringA Lib
"winmm.dll" (ByVal lpstrCommand As String, ByVal lpstrReturnString As
String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
mciSendStringA "open MPEGVideo!C:\test.avi alias myvideo", 0&, 0&, 0&
Dim TDur As String * 128
mciSendStringA "set myvideo time format frames", TDur, 128, 0&
mciSendStringA "play myvideo from 0 to 300", 0&, 0&, 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
mciSendStringA "stop myvideo", 0&, 0&, 0&
mciSendStringA "close myvideo", 0&, 0&, 0&
End Sub
myvideo est l'alias que j'utilise pour le fichier utilisé, ce qui n'est pas comme je l'espere est en rouge
en fait, je veux lire par exemple de la premiere frame jusqu'a la frame
x et que la video s'arrete à cette frame x. mais ca ne s'arrete pas.