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. 8O
P.S: j'espère que ca vous ira ecrit comme ça. :twisted:

Publié : sam. 24/avr./2004 14:56
par Chris
C'est nettement mieux :lol:

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 :wink: