Problème sur SavetoFile

Bonjour,

Voici le code que j'ai utilisé pour sauvegarder des données, le temps de valider l'ensemble des modifications ou en cas d'annulation je peux restorer.

Code:

---

1 2 3 4 5 6 7 8 9 10

with sps_Commande do begin Close; Parameters.ParamByName('@idCde').Value := idCde; if not Prepared then Prepared := True; Open; sNomFileTempCommande := 'C:/temp_Commande_'+Securite.getUser+'_' + IntToStr(iNumCde); SaveToFile(sNomFileTempCommande, pfADTG); Close; end;

---

Mais une fois de temps en temps, il bloque sur Close. Et après j'ai plein de message d'erreur "Exception ".

Est-ce que quelqu'un pourrais me dire comment résoudre ça ??

Peut être remplacer

Code:

---

C:/temp_Commande

---

par

Code:

---

C:\temp_Commande

---

Voici une solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

with sps_Commande do begin Close; Parameters.ParamByName('@idCde').Value := idCde; if not Prepared then Prepared := True; Open; sNomFileTempCommande := 'C:\temp_Commande_'+Securite.getUser+'_' + IntToStr(iNumCde); if FileExists(sNomFileTempCommande) then DeleteFile(sNomFileTempCommande); SaveToFile(sNomFileTempCommande, pfADTG); Close; end;

---

Merci.

Mais malgré la correction, j'ai toujours le problème. Mais que occassionellement.

Donc si quelqu'un a une idée

Tu peux dans ce cas utiliser un bloc "try ..." pour englober les instructions qui peuvent poser problème.
Autre piste - Si tu est en application Internet, vérifie que ton instruction ne se répète pas plusieurs fois

Merci pour tes réponses.

Exacte j'avais bien tout un bloc d'instruction qui se repettait.

Merci pour l'aide apporter