Discussion :

[Papy214]

Bonjour

Dans un projet FMX, j'utilise:

Code :

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

DefaultDOMVendor := sOmniXmlVendor;

Dans une fonction, je lis ce fichier XML pour remplir plusieurs tableaux d'entier ou de single.
Les tableaux sont dimensionnés et pré-remplis de 0 avant lecture du node XML correspondant.

Dans la première version, je faisais un truc comme ça:

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
 
  NdBlock := Node.ChildNodes.First;
  I       := 1;
  while Assigned(NdBlock) do
  begin
    NdLine := NdBlock.ChildNodes.First;
    while Assigned(NdLine) do
    begin
      if I <= High(Heights) then
        Heights[I] := GetInt(NdLine.NodeValue)
      else
        break;
      Inc(I);
      NdLine := NdLine.NextSibling;
    end;
    NdBlock := NdBlock.NextSibling;
  end;

Entre la première et la dernière ligne de code, mon programme prenait 2.5mo de RAM supplémentaire. Je ne comprends toujours pas pourquoi.

J'ai remplacé par :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  K := 0;
  for I := 0 to Node.ChildNodes.Count - 1 do
  begin
    NdBlock := Node.ChildNodes[I];
    for J := 0 to NdBlock.ChildNodes.Count - 1 do
    begin
      Inc(K);
      Heights[K] := GetInt(NdBlock.ChildNodes[J].NodeValue)
    end;
  end;

Maintenant, environ 1 mo de moins mais toujours une perte qui ne se rattrape jamais même après finalisation de mon IXMLDocument qui me sert de lecteur.


Questions:
Est-il normal que je perde autant de RAM à chaque utilisation ?

Connaissez-vous une alternative qui ferait le boulot mieux que ça ?

[popo]

Comment est créé ton IXmlDocument ?
Comment est-il détruit ?

Je ne sais pas comment fonctionne OmniXml en interne, mais je suppose qu'il doit charger tout le document.
Et si ton document est volumineux, cela prendra forcément de la place au niveau mémoire.

D'après, ce que je vois, tu ne fais que de la lecture classique de nœuds XML.
Pourquoi passer par une librairie tierce connue pour être peu performante et gourmande en mémoire alors que Delphi contient nativement ce qu'il faut ?
D'ailleurs même le type à l'origine du projet, le reconnais et recommande l'utilisation de son autre projet (OXml, pour ce que ça vaut).

[Papy214]

Tout simplement comme ça :

Code :

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

1
2
3
4
5
 
Xml := NewXMLDocument;
Xml.LoadFromXML(contenuxml);
...
Xml := nil;

Pour le choix omnixml, c'est intégré à Delphi: Voir ici

Quand à Oxml, il est payant et non inclus dans Delphi

[SergioMaster]

Bonjour,
que donnerait en conso de mémoire ?

Code :

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

1
2
3
4
5
6
7
8
  K := 0;
  for NdBlock in Node do
  begin
    for ChildNdBloc in NdBlock.ChildNodes do
    begin
      Inc(K);
      Heights[K] := GetInt(ChildNdBloc.NodeValue)
    end;

est-ce que un FreeAndNil(XML) en lieu et place de XML:=nil est possible ? ne serait pas mieux ?

[Papy214]

Je vais tester ça.

Mais pour le FreeAndNil, sur une interface ??? Je suis surpris

[Papy214]

marche pas :

[dcc32 Erreur] UnitEyeValues.pas(938): E2431 L'instruction for-in ne peut agir sur le type de collection 'IXMLNodeList' car 'IXMLNodeList' ne contient pas de membre pour 'GetEnumerator' ou n'est pas accessible

[Papy214]

Comprends plus !
Je viens de tester en utilisant une expression régulière et j'ai le même comportement.
On dirait que le tableau (même déjà dimensionné) tient plus de place en RAM s'il n'y a pas que des 0 dedans.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  Reg := TRegex.Create('\x3E(\d{1,})\x3C');
 
  // Heights
  FillChar(Heights, Length(Heights) * SizeOf(LongInt), 0);
  Node    := Node.NextSibling;
  K := 0;
  for Mch in Reg.Matches(Node.XML, 1) do
  begin
    Inc(K);
    Heights[K] := Mch.Groups[1].Value.ToInteger;
  end;

Je vais laisser tomber pour le moment.
Merci quand même de m'avoir lu

[popo]

Pour le choix omnixml, c'est intégré à Delphi: Voir ici

Quand à Oxml, il est payant et non inclus dans Delphi

C'est bizarre qu'embarcadero l'utilise, c'est une librairie OpenSource.