Discussion :

[obione]

Bonjour, Voici le code suivant :

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
21
22
23
procedure TFrmTest.TestMemoire;
var TWork : TSQLQuery;
    MontantRegl : Double;
 
begin
  Stop:=false;
  TWork := TSQLQuery.Create(nil);
  Try
    TWork.SQLConnection := dmdMainExpress.dbMain;
    TWork.Sql.Text :='select * from facture_fac';
    TWork.Open;
    while (Not TWork.eof) and (not stop) do
    begin
      MontantRegl := TWork.FieldByName('FAC_ID').AsDouble;
      TWork.next;
    end;
    showmessage(currtostr(MontantRegl));
  Finally
    TWork.Close;
    freeandnil(TWork);
  End;
 
end;

Lors du freeandnil, la mémoire utilisé par mon exe ne rebaisse pas : Je ne comprend pas pourquoi!

Merci de m'aider.

[obione]

En cherchant un peu, j'ai pu lire le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure FreeMemory;
var
  MainHandle : THandle;
begin
  MainHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE,
GetCurrentProcessID);
 try
  SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF);
 finally
  CloseHandle(MainHandle);
 end;
end;

Il fait baisser la mémoire d'une façon radical
Quelqu'un peut m'en dire plus sur ce code ? n'est-il pas dangereux ?

Merci

[EDIT MODERATION] Utilisez les balises Code et /Code (le # dans la barre d'outils) au lieu de quote et /quote

[obione]

Bonjour, je reviens a la charge, ce probème de mémoire persiste.

J'ai toujours le problème. Sur les gros traitements, la mémoire virtuelle de windows augmente sans cesse, même si je libère correctement tous mes composants et evidemment, mon prog plante ne 'mémoire virtuelle insuffisante' au bout d'un moment. Je ne comprend vraiment pas pourquoi. Je valide mes données périodiquement (sur les tclientdataset), je libère mes composants en fin de procédures (tsqlquery..., j'ai vérifié avec un outil spécialisé)

Mon exe est en local et ma sgbdd (firebird) sur un serveur. c'est bien mon poste local qui plante.

C'est un projet professionnel, j'ai vraiment besoin d'aide si solution il y a !

merci

[Rayek]

Si tu exécutes cette requete souvent et que l'objet TSQLQuery n'est pas utilisé simultanement par plusieurs thread, Je te conseil de ne pas utiliser la création dynamique et d'en faire un objet statique.
Ca te coutera moins en ressource (pas de construction ni destruction) et s'il y avait fuite de mémoire à la destruction, il n'y en aura plus.

[obione]

J'ai testé cette solution , en utilisant un clientdataset posé sur une fiche que je crée au démarrage de mon traitement, et que je détruit seulement à la fin de ce traitement, et malheureusement .... ça ne change rien !
Merci quand même !

[obione]

Heoo,

est ce que par hasart, la mémoire virtuelle utilisé par mon aplli est maintenu tant que ma connection de base de donnée est ouverte ?

si oui, aucun moyen de détourné la solution de fermer et réouvrir la base de donnée ?

Merci pour vos réponses

[Rayek]

Pour ma part je n'ai pas assez d'expérience sur DBExpress pour t'en dire plus.

est ce que par hasart, la mémoire virtuelle utilisé par mon aplli est maintenu tant que ma connection de base de donnée est ouverte ?

si oui, aucun moyen de détourné la solution de fermer et réouvrir la base de donnée ?

A toi de tester, ferme ton SQLConnexion et réouvre le après. et vois si ca libère bien les ressources prises

[Linkin]

je n'ai pas de souci avec dbExpress de ce genre. (quasiment toutes mes requetes sont en dynamiques).

Par contre j'utilise une base Oracle, il n'y aurait pas une mise à jour du driver de DbExpress pour Firebird?

[obione]

Et bien il semblerait que ce phénomène se produit en delphi v2006, mais pas dans la version précédente v7. Effectivement peut être un pb de version ou de paquet .... Nous allons continuer nos tests !

[obione]

ça y est, j'ai fini par trouvé.

J'avais un composant SQLMonitor sur mon projet, lié a mon TsqlConnection, qui générait ce problème de mémoire malgré qu'il soit inactif (propriété active = false).

Je pense que c'est un bug de ce composant en Delphi V2006, car nous avions déjà ce composant en delphi 7 sur le projet, et il n'y avait pas de soucis !