Скачать: CL | DM;

Вопрос по отъеданию памяти Access-ом   Найти похожие ветки 

← →
awod   (2005-02-18 16:35) [0]

Есть приложение написаное на Delphi.

procedure TForm1.FormCreate(Sender: TObject);
var
db : Variant; //Database
dbQuery : Variant;//QueryDef
cnn : Variant; //DAO.DBEngine.36
begin
try
cnn := CreateOleObject("DAO.DBEngine.36");
try
db := cnn.OpenDatabase("REGISTRATION_CAT.MDB",False,false,"");
dbQuery := db.QueryDefs["Запрос2"];
dbQuery.OpenRecordset;
db.Close;
finally
cnn := Unassigned;
end;
except
on E: Exception do raise;
end;
end;

Запрос2 — не возвращает ни одной строки.
После выполнения этого кода, количество памяти, отъдеамое моим приложением увеличивается на 2МБ. Хотелось бы узнать как можно от этого избавиться или хотя бы получить объяснение почему от этого не избавиться.
С уважением Алексей Майоров.

---

← →
Digitman ©   (2005-02-18 17:02) [1]

> awod   (18.02.05 16:35)  


Собссно Access здесь - ни при чем абсолютно.
Ты даже краем пальца не касаешься Access"а.
Ибо Access - не более чем некое приложение в составе прогр.пакета МС Офис.


> После выполнения этого кода


а засандаль свой код в цикл от нуля до 9999 ...
тоже самое наблюдаешь ?

---

← →
sniknik ©   (2005-02-18 17:10) [2]

а никак не избавиться.  
память выделяется блоками, с запасом (операция трудоемкая, проше раз выделить мегабайт и распределять внутри, чем на каждый байт перевыделять, тем более что по времени на выделение 1 мег. и 1 байта у системы уйдет одинаково)
и это не только твое приложение, показывается память используемых твоей прогой обьектов.

можеш свернуть прогу (крайняя левая кнопочка в правом углу программы), и памяти будет показывать меньше, система перераспределяет ее для неактивных програм.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c