Discussion :

[aharel]

Bonjour,

J'ai besoin de locker un fichier xml afin d'interdire son utilisation en écriture par une autre instance de mon application. Il doit cependant rester accessible en lecture par toutes les instances de l'application.
Pour le moment j'essaie d'utiliser les fonctions LockFile et UnlockFile de l'API windows mais sans succès. Quand je lock mon fichier, il n'est plus accessible en lecture par les autres instance de mon application.

Si quelqu'un avait un bout de code d'exemple, je lui en serais reconnaissant.

Cordialement.

[Lytchit]

Bonjour.

Le modifier manuellement pour le mettre en lecture seule ne conviendrait pas ?

Lytchit

[Roland Chastain]

Bonjour !

Peut-être pourriez-vous modifier les attributs du fichier en question, pour le mettre en "lecture seule" ? La façon de faire est expliquée dans cet article de la FAQ :

http://delphi.developpez.com/faq/?pa...s-d-un-fichier

[ThWilliam]

Bonjour.

Un autre lien pour modifier l'attribut readonly du fichier et tester si il est en écriture seule :
http://www.delphipages.com/forum/sho...d.php?t=104356
Voir le dernier post.

Cordialement
Thierry

[solilog]

Bonjour,

As-tu essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function FileOpen(const FileName: string; Mode: LongWord): Integer;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
const fmOpenRead       = $0000;
const fmOpenWrite      = $0001;
const fmOpenReadWrite  = $0002;
const fmShareCompat    = $0000;
const fmShareExclusive = $0010;
const fmShareDenyWrite = $0020;
const fmShareDenyRead  = $0030;
const fmShareDenyNone  = $0040;

Bonne journée.

solilog