[OK] Incompréhension entre Openfile, ReadFile, MD5FileFinger

[Naheulf]

Je ne comprend pas pourquoi MD5FileFingerprint fonctionne la deuxième fois ... alors que pour la première ça ne veut pas ...

Code : Tout sélectionner

fichier.s = "./instant.txt"
Debug FileSize(fichier)

file = OpenFile(#PB_Any,fichier,#PB_File_Append | #PB_File_SharedRead)
If file
    Debug "md5 : " + MD5FileFingerprint(fichier)
EndIf
CloseFile(file)

file = ReadFile(#PB_Any,fichier,)
If file
    Debug "md5 : " + MD5FileFingerprint(fichier)
EndIf
CloseFile(file)

[majikeyric]

Bein déjà y a pas besoin d'ouvrir un fichier avec OpenFile() ou ReadFile() pour appeler la fonction MD5FileFingerprint().

[Naheulf]

En fait c'est par ce que dans mon code je me suis retrouvé à un moment à vouloir utiliser MD5FileFingerprint() sur un fichier que j'avais ouvert par ailleurs dans mon code. Et c'est en testant que je me suis rendu compte de ce comportement.

Ce code est juste un résumé de ce que j'ai expérimenté.

[nico]

La fonction ne semble pas fonctionner lorsque le fichier est déjà ouvert par le programme en accès écriture, peut être un problème de gestion interne à PB, faudrait voir avec Fred si c'est normal.

[Ar-S]

Extrait de la doc

Pour que l'ouverture du fichier avec OpenFile() soit un succès, le fichier doit avoir les droits en lecture et écriture. Ceci peut devenir un problème si il faut manipuler des fichiers sur un CD-Rom par exemple. Dans ce cas, il convient d'utiliser ReadFile() quand seule la lecture du fichier est nécessaire.

Théorie.
Je pense donc que lorsqu'on utilise OpenFile le fichier doit être considéré comme "en cours d'utilisation" et pas avec readfile().

D'ailleurs je le démontre ici : (re-modifie ton chemin ligne 1)

Code : Tout sélectionner

fichier.s = "E:\MULTIMEDIA\PUREBASIC\5.30\test_list.pb"
Taille =  FileSize(fichier)
OK = 0

file = OpenFile(#PB_Any,fichier,#PB_File_Append | #PB_File_SharedRead)
If file <> 0 And Taille > 0
    OK=1
    Else
    OK = 0
EndIf
CloseFile(file)

; Comme mon fichier est fermé, la commande MD5 va marcher.
If OK = 1
	Debug "Version OPENFILE - md5 : " + MD5FileFingerprint(fichier)

file = ReadFile(#PB_Any,fichier)
Debug "Version READFILE - md5 : " + MD5FileFingerprint(fichier)
CloseFile(file)
	
EndIf

Mais comme l'a dit majikeyric, MD5FileFingerprint se suffit à lui même. ça évite justement plusieurs accès à un fichier déjà "ouvert".

[nico]

Après quelques tests, voici l'explication:

La fonction MD5FileFingerprint ouvre le fichier spécifié avec l'argument FILE_SHARE_READ mais pas avec l'argument FILE_SHARE_WRITE, ceci expliquant les tests précédents, ce qui signifie aussi que si le fichier est ouvert par un autre processus en écriture, la fonction échouera.

Extrait doc MSDN:
FILE_SHARE_WRITE
0x00000002
Permet les opérations d'ouverture suivantes sur un fichier ou un dispositif de demande d'accès en écriture.
Sinon, d'autres processus ne peuvent pas ouvrir le fichier ou périphérique s'ils demandent un accès en écriture.
Si cette option n'est pas spécifiée, mais le fichier ou le dispositif a été ouvert pour un accès en écriture ou a un mappage de fichiers avec un accès en écriture, la fonction échoue.

[Naheulf]

D'accord .... bon et ben merci je met le topic en résolu

Edit : on fait comment pour passer un topic en résolu ?

[Ar-S]

Tu édites ton premier message et tu ajoutes [RESOLU] ou [OK] devant ton titre.