PureBasic

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$) 

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