SaveDialog et WriteFile marche pas, un bug?

Version imprimable

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:

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); }

23/12/2004, 23h04
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
23/12/2004, 23h08
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

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

Code:

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

24/12/2004, 19h21
jamesb

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

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

Alors j'ai enfin trouvé l'astuce :)

Code:

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.