Утечка памяти [png;bmp;буффер]

[Orchestroman]

День добрый;
Реализую графический буфер с использованием png (очень экономит память, в отличие от bitmap).
Как минимум уже на этапе объявления есть 3 лишних метра

Buffer: array[0..19] of tpngobject; 
при попытке создания динамического массива из элементов:
///
 t3.Width:=form2.Width;
      t3.Height:=form2.Height;
      t3.TransparentColor:=form2.TransparentColorValue;
      t3.Transparent:=true;
         t3.Canvas.CopyRect(form2.ClientRect,form2.Canvas,form2.ClientRect);

       buffer[индекс].Assign(t3);
       buffer[индекс].SaveToFile(адрес для проверки размера(около 8кб));
       FreeAndNil(t3);
///

В интернетах читал что-то типа про assign, что он касячит с памятью. но хз
Может имеет смысл не держать в оперативке все элементы буфера(у меня их штук 20 скажем), а писать в файл и непосредственно обращаться к нему каждый раз. Как сильно уменьшится скорость? заносить данные в буфер потребуется не редко... Заранее спасибо

[s-andriano]

В лучшем случае (когда ОС) кэширует Ваш файл - немного. Иначе, если файл открыт - 10-30 мс, нужно открывать - 30-100 мс. Плюс сами 3 Мб будут читаться 20-100 мс.
Но ради 3 Мбайт я бы не стал прибегать к файловым операциям.

[Orchestroman]

3 мегабайта только при включении. после 30-40 шаког прога кушает в районе 100 метров
Сейчас реализовал с файлами, все таки продолжительное время он рабит... заметно

[Orchestroman]

если загонять в массив и держать в опере, то каждый файл весит скажем 10 кб. т.е. при 20 элементах 200кб. А судя по занимаемому месту в опере, каждая весит в районе 2-3 метров. т.е. столько же, сколько и битмап. но битмап я чищу разумеется. Вот когда png.Assign(bitmap); может ли происходить потеря памяти?

[s-andriano]

Утечка памяти - следствие ошибки в алгоритме, и перенесение части данных из ОП на диск эту ошибку не устранит.

[x128]

Сообщение от Orchestroman

Реализую графический буфер с использованием png (очень экономит память, в отличие от bitmap).

Это с какого перепуга будет экономиться память? При сохранении на диск, да, действительно, PNG будет компактнее битмапа за счет сжатия, но в памяти... В памяти будет тот же битмап + весь обвес для PNG, в данном случае, обычный битмап будет меньше памяти нанимать. Если уж сильно нужно держать в памяти буфер с сжатыми изображениями, в таком случае нужно использовать TMemoryStream. Скорость конечно просядет т.к. нужно будет сжимать изображение при записи в буфер и разжимать при чтении/выводе, но если этого требует ограничение на используемую оперативную память, придется чем-то жертвовать.

Buffer: array[0..19] of TMemoryStream; 
...
t3.SaveToStream(buffer[индекс]);

как-то так.

[Orchestroman]

спасибо большое!) буду пробовать

[Orchestroman]

Заодно спрошу (пока ищу в гугле..)

buf:=TBitmap.Create;  //
buf.Width:=form2.Width;
buf.Height:=form2.Height;
buf.Canvas.CopyRect(form2.ClientRect,form2.Canvas,form2.ClientRect);
pn:=tpngobject.Create; 
pn.Assign(buf);   //
buffer[1]:= TMemoryStream.Create;
pn.SaveToStream(buffer[1]);
buf.Free;
pn.Free;

Как считать потом определенный элемент...
buffer[индекс].read(pn,sizeof(pn)); // разумеется ругается, ибо неизвестен развем pn и не хватает понимания, как это работает..

[Orchestroman]

Разобрался)

   pn:=tpngobject.Create;
   buffer[bufferindex[2]].Position:=0;
   pn.LoadFromStream(buffer[bufferindex[2]]);

Всем спасибо!