Code : Tout sélectionner
DeleteFile("D:\PureBasic\dobro\DOBRO_CREATION\NONO2004\tampon.mp3")
Code : Tout sélectionner
If mot.s="aet" Or mot.s="AET"
longueur=?aet1-?aet-fin_son -debut_son
Resultat = OpenFile(#PB_Any, name$)
If Resultat =0
MessageRequester("Erreur"," le Tampon ne peut etre ecrit ", #PB_MessageRequester_Ok )
End
EndIf
FileSeek( Lof()-recouvrement) ; va a la fin du fichier
WriteData(?aet +debut_son, longueur)
CloseFile(Resultat)
EndIf Code : Tout sélectionner
;- nono parle
If joue=0
rpp=LoadMovie(1, name$)
If rpp=0
MessageRequester("Erreur"," le fichier Tampon ne peut etre ouvert "+Chr(10)+"(nonoparle)"+Chr(10)+"prévenir dobro en donnant le mot !", #PB_MessageRequester_Ok )
Goto term
EndIf
WindowID = WindowID(10)
PlayMovie(1, WindowID )
MovieAudio(100, panoramique)
Delay (100)
joue=1
EndIf
test=MovieStatus()
If test=0
FreeMovie(1)
Goto term
EndIf
; ********************
Until event=#PB_Event_CloseWindow
If event=#PB_Event_CloseWindow
End
EndIf
term:
DeleteFile(name$) oui je viens de trouver l'exemple qui montre le problemeFred a écrit :C'est étrange cette histoire de timing, quand une fichier est fermé, il est fermé, je ne vois pourquoi il ne pourrait etre effacé. Tu as un exemple qui illustre le probleme ?
Code : Tout sélectionner
; Le but :
; cette DLL charge un MP3
; le lit
; et l'éffacer du disk dur !! (en principe ! )
; ceci est a compiller en sharedDLL sous le nom "test.dll"
; ATTENTION faite bien une copie de votre MP3
; car ce programme est sensé l'effacer !!! (chose qu'il ne fait pas chez moi ! puisque ça bug !!)
Resultat = InitMovie()
ProcedureDLL test()
OpenWindow(10, 0, 0, 320, 200, #PB_Window_SystemMenu , "gros bug ! veut pas effacer les fichiers !!")
NomFichier$ = OpenFileRequester("film a lire", "c:", "Musiques|*.mp3", 0 )
rpp=LoadMovie(1, NomFichier$); on charge un fichier MP3
If rpp=0
MessageRequester("Erreur"," le fichier ne peut etre ouvert ", #PB_MessageRequester_Ok )
End
EndIf
If rpp<>0 ; le fichier est chargé , on peut le lire
WindowID = WindowID(10)
MovieAudio(100, panoramique)
PlayMovie(1, WindowID ) ; oui on le lit et ça marche
Delay (100) ; on attend un petit peu qu'il ait commencer la lecture
EndIf
Repeat
event=WindowEvent()
Delay(1)
test=MovieStatus() ; le fichier est arreté ??
If test=0 ; oui cool on va pouvoir voir le BUG !!!
FreeMovie(1) ; en principe on libere la RAM
DeleteFile(NomFichier$) ; et là ; soit disant il efface le fichier !!! MEME PAS VRAIS !!!!
dobro=13 ; ceci est la preuve qu'il a essayé d'effacer !! ( ProcedureReturn dobro )
;il n'efface pas le fichier lorsqu'il sagit d'une DLL!!
Goto fin
EndIf
Until event=#PB_Event_CloseWindow
;TANT QUE L'ON NE QUITTE PAS LA DLL
; LE FICHIER CHOISIE EST ENCORE LA !!
; IL VEUT PAS MOURRIR , IL EST VIVANT
; ET VEUT LE RESTER !!!!
; MEME APRES UN "DeleteFile " !!!!
; et un CloseLibrary(0) dans le programme appelant !!
fin: ; on force la sortie
CloseWindow(10)
ProcedureReturn dobro
EndProcedure
Code : Tout sélectionner
If OpenLibrary(0, "test.dll")
Result= CallFunction(0, "test")
CloseLibrary(0)
; si la DLL renvoi 13 c'est qu'elle a essayer d'effacer le fichier avec DeleteFile(NomFichier$)
If Result=13
MessageRequester("Dobro"," il a essayé d'effacer !! "+Chr(10)+"tant que l'on ne quitte pas le programme appelant"+Chr(10)+" (cette fenetre ! ) "+Chr(10)+" et ce meme apres un CloseLibrary(0) "+Chr(10)+"le fichier n'est pas effacé !! "+Chr(10)+" pourquoi ? ", #PB_MessageRequester_Ok )
EndIf
; pourtant il est encore la !!
; tant que l'on ne quitte pas le programme appelant !!!
EndIf
