Connaitre la longueur d'une video sans loadmovie

[Teckzor]

Bonjour à tous,

J'aimerais savoir si il était possible de récupérer le temps total d'une vidéo sans passer par le loadmovie qui (j'ai l'impression) demande pas mal de ressource.
Pour info j'utilise actuellement le code si dessous pour récupérer le temps.

Code : Tout sélectionner

LoadMovie(i,Files())
;         If IsMovie(i) 
;           TramePS=MovieInfo(i,0)
;           TrameTot=MovieLength(i)               
;           Duration = TrameTot/TramePS
;           Millisecs = Duration / 10000   
;           Hours = (Duration / 3600)
;           Minutes = (Duration / 60) - (60 * Hours)
;           Seconds = Duration - (60 * (Duration / 60))
;           Hours$ = Str(Hours) : Minutes$ = Str(Minutes) : Seconds$ = Str(Seconds)
;           If Seconds < 10 : Seconds$ = "0" + Seconds$ : EndIf
;           If Minutes < 10 : Minutes$ = "0" + Minutes$ : EndIf
;           If Hours   < 10 : Hours$   = "0" + Hours$   : EndIf
;           duree$=Hours$ + ":" + Minutes$  
; FreeMovie(i)

Merci d'avance pour vos réponse

[comtois]

Je n'ai pas la réponse à ta question. Par contre tu peux remplacer ça :

Code : Tout sélectionner

Hours$ = Str(Hours) : Minutes$ = Str(Minutes) : Seconds$ = Str(Seconds)
If Seconds < 10 : Seconds$ = "0" + Seconds$ : EndIf
If Minutes < 10 : Minutes$ = "0" + Minutes$ : EndIf
If Hours   < 10 : Hours$   = "0" + Hours$   : EndIf

Par ça :

Code : Tout sélectionner

Hours$    = RSet(Str(Hours),2,"0")
Minutes$  = RSet(Str(Minutes),2,"0")
Seconds$  = RSet(Str(Seconds),2,"0")

D'accord ça ne fait pas avancer le schmilblick...mais c'est toujours bon à savoir

[Mesa]

En faisant une petite recherche, j'ai trouvé ça :
viewtopic.php?f=1&t=13840&view=next

et ça
http://www.purebasic.fr/french/viewtopi ... &view=next

M.