Delphi: TAdoQuery Memory Leak?

Question

Я развиваю как небольшую программу диабета, используя Delphi 5 и ADO. Я делаю небольшой запрос:

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; 

Запрос выполняется ОК и возвращает результат, как ожидалось. Однако, когда я проверял Диспетчер задач Windows, использование памяти продолжает увеличиваться, а не уменьшаться после запроса.

Как это исправить?

Спасибо!

Answer 1

Вы утечку TADOQuery сначала установить его в ноль, а затем вызвать Free на нулевой переменной (которая ничего не делает)

Answer 2

Как и другие указывали, наконец, раздел должен иметь в 2 заявления вспять, как и :

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

Или вы можете вызвать SysUtils.FreeAndNil (Q) (если таковой имеется в Delphi 5, не уверен).

Кроме того, TaskManager - это ужасный инструмент для определения использования памяти в любом случае. Вы можете освободить память для Q, но это не означает, что диспетчер памяти Delphi освобождает память для ОС.

Answer 3

• Вы установили обновления Delphi 5? Реализация RTM ADO известна как .
• Используйте FastMM4, он должен работать с Delphi 5, а также сообщить вам больше о том, где утечки.

Answer 4

Цитата:

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

Вы шутите, да? Сначала nil переменная, затем освободите ее? Ты гений! :-)

Использование:

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

Или даже не потрудились назначая ноль к нему, так как Q является локальной переменной ...

---

Но перечитывая свой код, я замечаю, вы используете приложение как владелец. В результате на самом деле это не будет утечкой, поскольку она будет освобождена при освобождении приложения. Если вы используете форму, она будет освобождена, когда форма владельца будет освобождена.
Что вы должны попробовать, так это называть этот запрос примерно 100 000 раз, чтобы проверить, сохраняет ли он память для хранения или просто увеличивает память до тех пор, пока не будет достигнут определенный размер. Последнее более вероятно, так как память зарезервирована для будущих вызовов ADO.

Answer 5

Помимо инвертирования линии, как Arjan, jasonpenny и WorkShop Alex сказал, вы можете использовать Process Explorer, чтобы увидеть реальное потребление памяти (Private Bytes) процесса. Диспетчер задач на самом деле не подходит для этой задачи, так как он показывает только рабочий набор процесса.

Answer 6

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;