Publié : lun. 13/juil./2009 12:34
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
Voila ensuite encore une chose, si quelqun pourais m'en dire plus sur la BDD car dans mon tuto le mec dit
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
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
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
Vue que j'ai 2 serveurs je pourais m'en servir pour mon agenda , voila merci a vous