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.