mon premier lecteur video

[lannoy]

Bonjour a tous, j'ai repris mon lecteur pour le finir et j'ai un gros problème .
Il plante des que je veut lire une vidéo il ne la charge pas voici le code

Code : Tout sélectionner

InitMovie()

Enumeration
#fenetre
#boite_a_onglet
#piste
#lire
#stop
#pause
#son
EndEnumeration


Global chemin$ 
Global resultat

UsePNGImageDecoder()
LoadImage(#lire,"img/lire.png")
LoadImage(#stop,"img/stop.png")
LoadImage(#pause,"img/pause.png")

OpenWindow(#fenetre,0,0,500,150,"LAV-SCORE",#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)
XIncludeFile "procedure.pbi" 

CreateMenu(1,WindowID(#fenetre))
  MenuTitle("Media")
    MenuItem(1,"Ouvrir")

ButtonImageGadget(1,10,15,26,26,ImageID(#lire))
ButtonImageGadget(2,35,15,26,26,ImageID(#stop))
ButtonImageGadget(3,60,15,26,26,ImageID(#pause))
TrackBarGadget(#son, 10,  50, 100, 20, 0, 100)
SetGadgetState(#son,100)
Repeat
event = WaitWindowEvent()

If chemin$ = "" 
  DisableGadget(1,-1)
  DisableGadget(2,-1)
  DisableGadget(3,-1)
EndIf 


If chemin$ <> ""
   DisableGadget(1,0)
   DisableGadget(2,0)
   DisableGadget(3,0) 
EndIf 


If event = #PB_Event_Menu
    clic_menu = EventMenu()
Else
    clic_menu = 0
EndIf

If event = #PB_Event_Gadget
    clic_gadget = EventGadget()
Else
    clic_gadget = 0
EndIf 

If clic_gadget = #son
     volume()
EndIf


If clic_gadget = 1
    lire()
ElseIf  clic_gadget = 3
    pause()
ElseIf clic_gadget = 2
    arret()
EndIf  

If clic_menu = 1
    ouvrir()
EndIf 


Until event = #PB_Event_CloseWindow 

Code : Tout sélectionner

Procedure ouvrir()
  
  chemin$ = OpenFileRequester("Fichier a charge","","Musiques|*.ogg;*.wma;*.aif;*.aiff;*.au;*.iff;*.m3u; *.midi;*.mid;*.mod;*.xml;*.s3m;*.mp3;*mp2;*.mpa;*.pcm; *.rpm;*.ra;*.rm;*.voc;*.wave;*.wav|Video|*.avi",0)
  
  If chemin$ <> ""
     resultat = LoadMovie(#piste,chemin$)
     If resultat = 0
     MessageRequester("test","test erreur film")
     EndIf
  EndIf 
  
EndProcedure


Procedure lire()
      
      If resultat = 0
          MessageRequester("Erreur","Impossible d'ouvrir le fichier "+chemin$)
      Else
          PlayMovie(#piste,#fenetre)
      EndIf 
   
EndProcedure

Procedure pause()

     If resultat = 0
          MessageRequester("Erreur","Impossible d'ouvrir le fichier "+chemin$)
     Else
          statut = MovieStatus(#piste)
          
          If statut = -1
               ResumeMovie(#piste)
          ElseIf statut > 0
               PauseMovie(#piste)
          EndIf
          
    EndIf
    
EndProcedure

Procedure volume()
    If chemin$ <> ""
      volume.l = GetGadgetState(#son)
      MovieAudio(#piste,volume,balance)
    EndIf
    
EndProcedure

Procedure arret()
EndProcedure

Voila ensuite encore une chose, si quelqun pourais m'en dire plus sur la BDD car dans mon tuto le mec dit

Code : Tout sélectionner

;- Constantes
; ----------
#ODBC_ADD_DSN = 1 ; Ajoute une source de donnée
#ODBC_CONFIG_DSN = 2 ; Configure la source de donnée
#ODBC_REMOVE_DSN = 3 ; Supprime la source

#DataBase = 1
#DSN = "PureBasic_DSN" ;nom de votre base
#Driver = "Microsoft Access Driver (*.mdb)" ;driver utilisé

;- Variables
; ---------
File.s = "C:\Documents and Settings\Hugo\Bureau\mabase.mdb" ;emplacement de la bdd

;- Procedures
; ----------
;** On ouvre la connection
; ----------------------
Procedure Makeconnection(Driver.s,Attributes.s)
result = OpenLibrary(1,"ODBCCP32.DLL")
If result <> 0 ;si il y a un ; enlevez le !
result = CallFunction(1, "SQLConfigDataSource", 0,#ODBC_ADD_DSN,Driver.s,@Attributes)
NewResult = CallFunction(1, "SQLConfigDataSource", 0,#ODBC_ADD_DSN,Driver.s,@Attributes)
CloseLibrary(1)
EndIf
ProcedureReturn result
EndProcedure ; fin de MakeConnection
;===============================================================================
;** On ferme la connection
; ----------------------
Procedure DeleteConnection(Driver.s,DSN.s)
result=OpenLibrary(1,"ODBCCP32.DLL")
If result
strAttributes.s = "DSN="+DSN
result = CallFunction(1, "SQLConfigDataSource", 0,#ODBC_REMOVE_DSN,Driver,strAttributes )
CloseLibrary(1)
If result
ProcedureReturn 1
EndIf
EndIf
EndProcedure ; fin de DeleteConnection

;*******************************************************************************


;Ensuite vous vous connectez comme ca:
;- Programme
; ---------
InitDatabase() ;ou UseODBCDatabase() pour les dernières versions
Makeconnection(#Driver, "DSN="+#DSN+";Description=Access File;DBQ="+File+";") ;ajoute la connexion
OpenDatabase(#DataBase, #DSN, "", "") ;ouvre la base de donnée
DeleteConnection(#Driver, #DSN ) ; ferme la connexion 

C'est tout est je comprend donc rien, dobro ma dit qu'il étais possible d'utilisé phpmyadmin pour géré ça, c'est très intéressant et je voudrais savoir comment faire .

Vue que j'ai 2 serveurs je pourais m'en servir pour mon agenda , voila merci a vous