Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Как освободить память? 


Вика   (2002-04-11 10:20) [0]

Как освободить память подскажите, пожалуйста, комбинация
try
...
finally MemoryStream.free
не помогает, виртуальная память все равно забивается,
объем данных очень большой.



Anatoly Podgoretsky   (2002-04-11 10:26) [1]

Нк видно, что бы ты захватывал память



REA   (2002-04-11 10:34) [2]

А за счет чего она забивается? Может за счет файлового кэша?



Anatoly Podgoretsky   (2002-04-11 10:42) [3]

Вика (11.04.02 10:20)
Извини не посмотрел на имя, но надеюсь ты не обидишься



Вика   (2002-04-11 12:22) [4]

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 сек из вне в БД поступают значения параметров.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
14-81081          VATERMAN              2002-03-20 19:56  2002.04.25  
АРI-функции


14-81047          undersun              2002-03-13 17:21  2002.04.25  
Как выбрать устройство через которое надо соед. по TCP/IP


3-80765           IronHawk              2002-04-02 11:34  2002.04.25  
Приветствую Мастеров ! Как удалять одинаковые строки в базе 2 ?


1-80992           shane54               2002-04-12 16:43  2002.04.25  
Вроде элементарно.... но как? :)


1-80939           P.                    2002-04-11 12:20  2002.04.25  
ComboBox