| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как освободить память? [D5]
Вика © (2002-04-11 10:20:00)Как освободить память подскажите, пожалуйста, комбинация
try
...
finally MemoryStream.free
не помогает, виртуальная память все равно забивается,
объем данных очень большой.
Вика (2002-04-11 12:22:00) [1]Anatoly, память на самом деле захватывается и еще как:
procedure TGazSvc.tCalcTimer(Sender: TObject);
var h, m, s, s1: word; t: TDateTime;
const inUse: boolean = false;
LastTime: TDateTime = 0;
procedure insAll;
var s: TMemoryStream;
begin
s := TMemoryStream.Create; try
nlsGazSrv.ParamList.SaveValuesToStream(s, false);
with CurVals do try Open;
Edit;
CurValsaTime.AsDateTime := t;
CurValsCurValues.LoadFromStream(s);
try Post; except
LogMessage("Post", EVENTLOG_INFORMATION_TYPE, 0, 5555);
end;
finally Close end;
finally s.Free end;
end;
Каждые 20 сек из вне в БД поступают значения параметров.
Anatoly Podgoretsky (2002-04-11 10:42:00) [2]Вика (11.04.02 10:20)
Извини не посмотрел на имя, но надеюсь ты не обидишься
REA (2002-04-11 10:34:00) [3]А за счет чего она забивается? Может за счет файлового кэша?
Anatoly Podgoretsky (2002-04-11 10:26:00) [4]Нк видно, что бы ты захватывал память
| |
