Как освободить память от соединения с базой Oracle

← →
ruslan_as © (2003-02-26 16:33) [0]

Программа один раз час включается и проверяет наличие новых записей, а потом снова отключается. Но после отключения в моем коде она все также занимает 8 МБ. Помогите оптимизировать код.

procedure TfmSentry.Timer1Timer(Sender: TObject);
begin
Application.CreateForm(TDM, DM);
DM.osOGE.Connected:=True;//появилось 8 МБ
DM.odsEnergonositel.Open;
if DM.odsEnergonositelSUMMA.AsFloat>0
then begin
Application.ProcessMessages;
RxTrayIcon1.Active:=True;
Timer2.Enabled:=False;
Timer1.Enabled:=False;
DM.odsEnergonositel.Close;
DM.osOGE.Connected:=False;
DM.odsEnergonositel.Free;
DM.osOGE.Free;
DM.FreeOnRelease;
Refresh;
end
else begin
Timer2.Enabled:=True;
Timer1.Enabled:=False;
DM.odsEnergonositel.Close;
DM.osOGE.Connected:=False;
DM.odsEnergonositel.Free;
DM.osOGE.Free;
DM.Free;
end;
end;

← →
PrettyFly © (2003-02-26 19:55) [1]

Если ставишь на машину Oracle, то освободить уже ничего не получиться - убивай винду...

2ruslan_as © (26.02.03 16:33)
А как ты видишь, что она именно столько занимает? Программа занимала столько пока работала, и пока системе не нужна эта память она (память) за программой и числится(программа то торчит в памяти постоянно насколько я понял). Как только понадобится система отберет ее. ИМХО так.

2PrettyFly © (26.02.03 19:55)
Ты про что?

Как освободить память от соединения с базой Oracle Найти похожие ветки