Discussion :

[sat83]

Bonjour a tous...

J'ai un petit bout de code qui exporte le résultat d'une requete (TQuery) dans un fichier EXCEL en utilisant OLE.

Le code fonctionne parfaitement mais il génère des fuites de mémoire (détectées avec MemProof).

Voici un extrait du code:

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
 
  Variant vValue, vCell, vRange ;   
  int index = 0 ;
 
  // [...]
 
  vRange = "A1";
  vCell = vWorksheet.OlePropertyGet("Range", vRange);
 
  while( !monQuery->Eof )                      
  {
    vValue = StringToOleStr( monQuery->FieldbyName("MonChamp")->AsString ) ;
 
    vCell.OlePropertySet("Offset", index, 0, vValue );
 
    vValue = Unassigned ; // En théorie libère la mémoire, mais apparemment non
 
    index ++ ;
    monQuery->Next() ;
  }

Je n'ai pas l'habitude de manipuler des Variant , donc peut etre que je m'y prend mal... Quelqu'un a-t-il une idée?

Merci d'avance.

[sat83]

Bon, j'ai résolu le problème en étudiant les type de fuite de mémoire et les messages de MemProof.
L'utilisation de SysFreeString semble éviter d'avoir des fuites de mémoire.

Code :

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

1
2
3
4
5
6
7
8
  while( !monQuery->Eof )                      
  {
    wchar_t *value= StringToOleStr( monQuery->FieldByName("MonChamp")->AsString );
    vCell.OlePropertySet("Offset", index, 0, value);
    SysFreeString(value);
    index ++ ;
    monQuery->Next() ;
  }

Je laisse le post non résolu pendant quelques jours au cas où un une personne ayant déjà été confronté au problème aurait une meilleure solution à proposée.

[blondelle]

Salut sat83
J'ai fais une recherche sur le Net avec " StringToOleStr & SysFreeString " c'est utilise en Delphi, je pense que c'est donc aussi valable en BCB

[sat83]

Ok merci, ça confirme donc ce que je pensais!