Discussion :

[jamesb]

Bonjour,

Je suis de retour avec un code mais qui ne fais rien. Il devrait normalement enregistrer le fichier qui est demandé par une boîte de dialogue (TSaveDialog je crois). Vu que je le fichier n'existe pas il n'écrit rien même si le fichier existe. Je peux constater que le fichier est bloqué par le programme donc je pense que c'est normale. Mais aucun message d'erreur apparaît,
Vous pouvez m'aider svp ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 //Sauver le temps dans un fichier
 if (SaveDialog1->Execute())
 {
 AnsiString TexteFichier = "test
 //Ouvre le fichier
 int Handle;
 if (Handle = FileOpen(SaveDialog1->FileName,fmOpenWrite) == false)
  ShowMessage("Fichier "+SaveDialog1->FileName+" impossible à ouvrir !");
 //Ecrit la chaine
 if (FileWrite(Handle,TexteFichier.c_str(),TexteFichier.Length()) == false)
   ShowMessage("Fichier "+SaveDialog1->FileName+" erreur d'écriture !");
 FileClose(Handle);
 }

[Gilles Louïse]

Il manque une parenthèse dans l'instruction if ((Handle = FileOpen(SaveDialog1->FileName,fmOpenWrite)) == false), car vous cumulez une affectation avec un test.

À bientôt
Gilles

[jamesb]

Il y a toujours un problème si le fichier n'est pas créé, il n'écrit pas, comment faire pour créer le fichier en question ?
Et comment faire des retour-chariot (/n ne marche pas) Encore merci !

Cordialement James

[DjmSoftware]

bonjour,
personellement je résoudrais le problème de la manière suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
if (SaveDialog1->Execute())
  {
    int FileHandle= FileOpen(SaveDialog1->FileName,fmOpenReadWrite);
    try
     {
       if(FileHandle ==-1)RaiseLastOSError();// exception si fichier inexistant
       if (FileSeek(FileHandle,0,2)==-1)
          RaiseLastOSError()// déplacement a la fin du fichier
       AnsiString Content("Heure système :");
       Content+=DateTimeToStr(Now());
       Content+="\r\n";
       if (FileWrite(FileHandle,Content.c_str(),Content.Length())==-1)
         RaiseLastOSError();
       FileClose(FileHandle);
     }
    catch(EOSError &E)
    {
     MessageDlg(E.Message, mtError, TMsgDlgButtons() << mbOK, 0);
     if(FileHandle) FileClose(FileHandle);
    }
  }

cordialement

[jamesb]

DjmSoftware, merci pour ton code, mais ça ne résoud pas le problème car le but serait de créer un fichier vide...

Car en général le fichier n'existera pas.

[jamesb]

Alors j'ai enfin trouvé l'astuce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Sauver le temps dans un fichier
 if (SaveDialog1->Execute())
 {
 AnsiString TexteFichier = "Temp obtenu: Jours: test";
 //Ouvre le fichier
 int Handle;
 if (FileExists(SaveDialog1->FileName) == false)
 {
  Handle = FileCreate(SaveDialog1->FileName);
 }
 else
 {
  Handle = FileOpen(SaveDialog1->FileName,fmOpenWrite);
 }
 
 if (((SaveDialog1->FileName,fmOpenWrite)) == false)
  ShowMessage("Fichier "+SaveDialog1->FileName+" impossible à ouvrir en écriture !");
 //Ecrit la chaine
 if (FileWrite(Handle,TexteFichier.c_str(),TexteFichier.Length()) == false)
   ShowMessage("Fichier "+SaveDialog1->FileName+" erreur d'écriture !");
 FileClose(Handle);
 }

Ici si le fichier n'existe pas je crée le fichier et utilise son Handle avec CreateFile.
Si le fichier existe j'utilise juste OpenFile() pour l'ouvrir en écriture.