Gestion de fichiers XML

Bonjour,

Dans une appli iOS sous Sydney je stocke certaines données dans des fichiers XML. Parfois, lorsque je secoue bien l'application, je rencontre des erreurs "Too many files open". J'ai aussi des erreurs "E/S24", je comprends le type d'erreur mais pas la cause 8O
Avec cette même appli sous Android je ne rencontre pas ce type d'erreur.

Pour la lecture:

Code:

---

1 2 3 4 5

docXML := TXMLDocument.Create(owner); docXML.Active := true; docXML.LoadFromFile(MAIN_PATH + 'mesures_install2.xml'); // je remplis mes objets à partir du fichier

---

Pour la mise à jour de ces fichiers:

Code:

---

1 2 3 4 5 6

docXML := TXMLDocument.Create(owner); docXML.Active := True; docXML.Encoding := 'utf-8'; docXML.Options := [doNodeAutoIndent]; // je remplis mon fichier à partir de mes objets docXML.SaveToFile(MAIN_PATH + 'mesures_install2.xml');

---

Je dois faire quelque chose de faux mais je ne vois pas.

La gestion de fichiers sous iOS est-elle spéciale ?

Merci pour vos conseils

Sydney n'a plus d'ARC pour Mobile...il faut donc détruire les objets créés, ou passer par des Interfaces.

Merci Paul

Effectivement mon code n'est plus trop compatible avec Sydney... J'ai fait les Destroy proprement mais j'ai encore mon problème E/S24 et de trop grand nombre de fichiers ouverts (cf. image)...

J'espère que ça pourra résoudre mon problème de trop grand nombre d'image ouverts.

Je suis les instructions données ici pour enlever ARC

et si tu veux simuler ARC il y a des astuces


exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

type IAutoFree = interface end; TAutoFree = class(TInterfacedObject, IAutoFree) private Obj: TObject; public destructor Destroy; override; end;   destructor TAutoFree.Destroy; begin Obj.Free; inherited; end;   function AutoFree(Obj: TObject): IAutoFree; var LAutoFree: TAutoFree; begin LAutoFree := TAutoFree.Create; LAutoFree.Obj := Obj; Result := LAutoFree; end;     procedure TForm1.FormCreate(Sender: TObject); var Button : TButton; begin Button := TButton.Create(nil); AutoFree(Button); Button.Parent := Self; end;

---

dans cet exemple, le fait d'appeler AutoFree() sur le bouton, cela va retourner une Interface IAutoFree qui sera détruite automatique...en fin de procédure, et dans son destructor, je détruis l'objet associé.

un exemple plus utile serait

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.FormCreate(Sender: TObject); var List: TStringList; begin List := TStringList.Create; AutoFree(List); ... end;

---

Avec Syndney est le Record Managés, il est aussi possible de faire des choses

Merci Paul, c'est instructif et clair. J'ai une meilleure gestion de ma mémoire et bien fait baisser mes fuites.

Mais il y a un cas que je ne résous pas et qui concerne la gestion de TImage.

J'ai une fiche créée au lancement de l'application qui contient une TImage. Lorsque je rends visible cette fiche, l'utilisateur visualise des images dans l'objet FImage en prenant bien soin de supprimer l'objet avant de charger une nouvelle image.

Malgré cela, j'ai repéré sous Windows (avec ReportMemoryLeaksOnShutdown:= True) que j'ai une mauvaise gestion de mes images car on détecte des erreurs sur les types TBitmapImage et TD2DBitmapHandle.

Je ne comprends pas :weird:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

type TFrameGestion = class(TFrame) ... private FImage: TImage; ... procedure MAJPhoto(_NomFichier : String); public ... procedure Retour; end;     // Chargement d'une image procedure TFrameGestion.MAJPhoto(_NomFichier: String); begin if (FImage <> Nil) then begin FreeAndNil(FImage) ; end;   // FImage:= TImage.Create(Nil); with FImage do begin Parent := RectangleFondImage ; Align := TAlignLayout.Client ; OnClick := ImageClick ; end;     if FileExists(MAIN_PATH + _NomFichier) then begin FImage.Bitmap:= TBitmap.CreateFromFile(MAIN_PATH + _NomFichier); end end;     // Appelé quand on cache ce frame procedure TFrameGestion.Retour; begin FreeAndNil(FImage) ; end;

---

FImage.Bitmap:= TBitmap.CreateFromFile doit fuire car l'affectation du Bitmap doit être un Assign (si FMX fonctionne un peu comme la VCL)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

// Chargement d'une image procedure TFrameGestion.MAJPhoto(_NomFichier: String); var Bmp: TBitmap; begin FreeAndNil(FImage) ; // inutle de vérifier nil car Free fait la vérification   // FImage:= TImage.Create(Nil); with FImage do begin Parent := RectangleFondImage ; Align := TAlignLayout.Client ; OnClick := ImageClick ; end;     if FileExists(MAIN_PATH + _NomFichier) then begin // FImage.Bitmap:= TBitmap.CreateFromFile(MAIN_PATH + _NomFichier); Bmp := TBitmap.CreateFromFile(MAIN_PATH + _NomFichier); try FImage.Bitmap := Bmp; // Problabement un Accesseur SetBitmap qui fait une copie de l'image finally Bmp.Free(); end; end end;

---

Merci je n'ai plus de fuite à cause de mes images mais le problème persiste sur les fichiers xml (erreur e/s24) qui entraine l'erreur sur les images (Impossible d'ouvrir le fichier "xxx.jpeg" too many open files). J'ai apporté les modifs de désallocation mémoire.
Je ne rencontre pas ce problème sous Android.

Mon débuggage est compliqué car mon iMac se maj automatiquement et XCode n'est plus compatible avec Sydney; normalement une maj de paserver doit prochainement résoudre cela.

Je continue mes recherches.