Delphi: fuite de mémoire TAdoQuery?

Question

Je développe en tant que petit programme de diabète en utilisant Delphi 5 et ADO. Je fais une petite requête comme ceci:

function GetLowestGlucoseLevel(StartDate:string;EndDate:string): Integer; 
var 
    Q:TADOQuery; 
begin 
    try 
     Q:=TADOQuery.Create(Application); //Separate unit, owner set to App 
     Q.Connection:=dtMod.ADOCon; 
     Q.DisableControls; 
     Q.Close; 
     Q.SQL.Clear; 
     Q.SQL.Add('SELECT Min(qGlucose.Glucose) AS MinOfGlucose from qGlucose'); 
     Q.Parameters[0].Value:=StartDate; 
     Q.Parameters[1].Value:=EndDate; 
     Q.Open; 

     Result:=Q.FieldByName('MinOfGlucose').AsInteger; 

     Q.Close; 
    finally 
     Q:=nil; 
     Q.Free; 
    end; 
end; 

La requête fonctionne bien et renvoie le résultat comme prévu. Toutefois, lorsque j'ai vérifié le Gestionnaire des tâches Windows, l'utilisation de la mémoire continue à augmenter plutôt que de diminuer après la requête.

Comment résoudre ce problème?

Merci!

Answer 1

Vous traces de fuites l'Comme d'autres l'ont souligné, TADOQuery d'abord la mise à zéro, puis en appelant Free la variable nulle (qui ne fait rien)

Answer 2

la section finalement devrait avoir les 2 déclarations inversées, comme si :

finally 
    Q.Free; 
    Q:=nil; // <- not even necessary since this is a local var 
end; 

Ou vous pouvez appeler SysUtils.FreeAndNil (Q) (si cela est disponible dans Delphi 5, pas sûr). A côté de cela, le TaskManager est un instrument terrible pour déterminer l'utilisation de la mémoire quand même. Vous pouvez libérer la mémoire pour Q, mais cela ne signifie pas automatiquement que le gestionnaire de mémoire Delphi libère la mémoire sur le système d'exploitation.

Answer 3

• Avez-vous installé les mises à jour Delphi 5? L'implémentation RTM ADO est connue pour ont des problèmes.
• Utilisez FastMM4, il devrait fonctionner avec Delphi 5, et vous dire plus sur l'endroit où les fuites sont.

Answer 4

Quote:

finally 
    Q:=nil; 
    Q.Free; 
end; 

Vous plaisantez? D'abord zéro la variable, puis la libérer? Tu es un génie! :-)

Utilisation:

finally 
    Q.Free; 
    Q:=nil; 
end; 

Ou ne prend pas la peine attribuer zéro à, puisque Q est une variable locale ...

---

Mais relisant votre code, je remarque vous utilisez Application en tant que propriétaire. En conséquence, ce ne sera pas vraiment une fuite, car il sera libéré lorsque l'application sera libérée. Si vous utilisez un formulaire, il sera libéré lorsque le formulaire propriétaire sera libéré.
Ce que vous devriez essayer est d'appeler cette requête environ 100.000 fois pour vérifier si elle continue à réserver de la mémoire ou si elle augmente juste la mémoire jusqu'à ce qu'une certaine taille ait été atteinte. Ce dernier est plus probable, puisque la mémoire est réservée aux prochains appels ADO.

Answer 5

Outre les lignes inversing comme Arjan, jasonpenny et WorkShop Alex dit, vous pouvez utiliser Process Explorer pour voir la consommation réelle de la mémoire (octets privés) du processus. Le gestionnaire de tâches n'est pas vraiment adapté à cette tâche, car il ne montre que l'ensemble fonctionnel du processus.

Answer 6

La façon Delphi:

function GetLowestGlucoseLevel(const StartDate:string; const EndDate:string): Integer; 
var 
    Q:TADOQuery; 

begin 

    Q:=TADOQuery.Create(nil); //(nil) because local use only. Placed before try\finally block 
           //because if it fails to .create then there would be no object to 
           //.Free 
    try 

     Q.Connection := dtMod.ADOCon; 

     //------can erase these------ 
     //Q.DisableControls; //No controls attached so unnecessary 
     //Q.Close;   //Q is local and was never opened so no need to close 
     //Q.SQL.Clear;  //Q is local and was never filled so no need to clear 

     Q.SQL.Add('SELECT Min(qGlucose.Glucose) AS MinOfGlucose from qGlucose'); 
     Q.Parameters[0].Value:=StartDate; 
     Q.Parameters[1].Value:=EndDate; 
     Q.Open; 

     Result := Q.FieldByName('MinOfGlucose').AsInteger; 

     Q.Close; 

    finally 

     Q.Free; 

     //Q := nil   //not needed because Q's scope is local 

    end; 
end;