Page 1 sur 1
le même message en plus propre
Publié : sam. 24/avr./2004 14:49
par RemyX
Je suis un debutant qui essay de faire un lecteur mp3 pour m'entrainer. Mais je n'arrive pas a trouver les fonction qui serve pour utiliser une bare de progression me donnant l'endroi ou j'en suis de la music ou de le video que je suis entrain d'écouter ou de visionner. Si quelqu' un aurai la jetillesse de me répondre qu'il le fasse mercie d'avance.
P.S: j'espère que ca vous ira ecrit comme ça.

Publié : sam. 24/avr./2004 14:56
par Chris
C'est nettement mieux
Le problème de la librairie "Move", c'est que la fonction que tu devrais utiliser, (MovieInfo(Flags)), ne sait pas récupérer la frame actuelle de certains fichiers, comme les MP3 ou les fichiers vidéo compressés.
A moins de passer par une librairie extérieure, je ne vois pas trop comment faire.
PS : Je me suis gouré dans la commande, c'est MovieStatus(), et non MovieInfo(flag), celà dit, le résultat reste le même !
Chris

Publié : sam. 24/avr./2004 15:38
par Heis Spiter
Mince, je viens de poster dans l'autre "post". Bon, ba je redonne ici alors :
Code : Tout sélectionner
If InitMovie() = 0
MessageRequester("Error", "Can't initialize movie playback !", 0)
End
EndIf
MovieName$ = OpenFileRequester("Choose the movie to play", "", "Movie/Audio files|*.avi;*.mpg;*.asf;*.mp3;*.wav|All Files|*.*", 0)
If MovieName$
If LoadMovie(0, MovieName$)
OpenWindow(0, 100, 150, MovieWidth(), MovieHeight()+50, #PB_Window_SystemMenu, "PureBasic - Movie")
ProgressBarGadget(2,0, MovieHeight()+10, MovieWidth(), 20 , 1, MovieLength())
PlayMovie(0, WindowID())
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadget
GadgetID = EventGadgetID()
If GadgetID = 2
Cursor = GetGadgetState(2)
MovieSeek(Cursor)
EndIf
EndIf
Trame = MovieStatus()
SetGadgetState(2, Trame)
Until WaitWindowEvent() = #PB_EventCloseWindow
Else
MessageRequester("Error", "Can't load the movie...", 0)
EndIf
EndIf
PS : Tu vois que tu peux y arriver
