Discussion :

[Desraux]

Bonjour,

Je souhaite écrire et lire dans un fichier à partir de plusieurs processus.
Je pensais qu'en ouvrant un fichier existant avec la fonction FileOpen
avec fmShareDenyNone j'atteindrai l'objectif mais non. D'autre part quand je veux écrire dans ce fichier (ouvert avec fmOpenWrite) des chaînes de caractères je trouve dans mon fichier des caractères bizarres.

Voici les lignes de codes que j'utilise :

Cas 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
    h : Integer;
 
    FileName:='toto.txt';
 
    If Not FileExists(FileName) Then Begin
        h:=FileCreate(FileName);
        FileClose(h);
    End;
    h:=FileOpen(FileName,fmOpenWrite);

Cas 2

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
var
    str : String;
begin
    str:='toto';
    If Not FileWrite(hLog,str,Length(str)) < 0 Then
        Label1.Caption:=str
    Else
        Label1.Caption:='Erreur';

Merci pour vos réponses.

[tourlourou]

le FileWrite n'attend-il pas un PChar plutôt qu'un String ?
remplace dans ce cas par PChar(str) !

[Desraux]

Non ce n'est pas un pointeur qu'il faut fournir mais un buffer non typé.

[bjl]

Bonjour,

remplace str par str[1] dans filewrite.


comme tu dis, il faut un buffer non typé. or str est un string donc un ponteur. on donne donc l'adresse du premier char de str à la fonction. Length fera le reste

[Desraux]

Ok bjl, j'ai testé ton code, ça marche.

Mais maintenant comment faire pour qu'un fichier soit accessible (en lecture /écriture) par plusieurs programmes ?

[bjl]

Le problème c'est que fileopen réserve le fichier pour une application et une seule.

donc

1) soit créer une application qui réserve le fichier et manage les accès (lecture et écriture), reçoit les requètes des autres applications et y répond.

2) écrire ou lire et refermer le fichier aussitôt. lors d'une tentative d'accès si le fichier est déjà réservé, on met en attente et on recommence après un temps d'attente.

[Desraux]

Merci pour ton aide. J'ai refais des tests et je pense que j'ai dû faire une erreur. Voici l'instruction qui fonctionne :

Code :

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

1
2
 
h:=FileOpen(f,fmOpenReadWrite or fmShareDenyNone);

[/code]