Вверх ↑
Ответов: 41
Рейтинг: 0
#1: 2017-02-21 06:30:49 ЛС | профиль | цитата
Здравствуйте.
Такой вопрос: при подгрузке каждой новой картинки в программку, объем расходуемой оперативной памяти в системе увеличивается.
Не могу понять, как заставить выгрузить предыдущие данные (картинки)и очистить память.
Пример (собственно, из папки \HiAsm\elements\delphi\example\Image\ImageView.sha) прилагаю.


Add(MainForm,41807,56,224)
{
 Left=310
 Top=259
 Width=405
 Height=263
 Caption="Picture viewer"
 BorderStyle=3
 TaskBar=1
}
Add(HubEx,10449354,280,98)
{
 link(onEvent,71505:doLoad,[])
}
Add(DropFile,97222,119,154)
{
 link(onDropFile,16714778:doWork3,[(172,160)])
}
Add(Button,6334,56,91)
{
 Left=10
 Top=10
 Width=75
 Font=[Arial,8,0,0,1]
 TabOrder=-1
 Caption="Open"
 link(onClick,5049552:doExecute,[])
}
Add(ImageLoader,4434340,203,91)
{
 DrawSource=2
 link(onLoad,4434340:doDraw,[(247,97)(247,75)(191,75)(191,104)])
 link(onDraw,10449354:doWork2,[])
}
Add(InfoTip,72034,49,7)
{
 Info=#17:Просмотр картинок|
 Font=[Times New Roman,16,1,0,1]
 Frame=1
 Width=302
 Height=25
}
Add(ODialog,5049552,119,91)
{
 Filter="*.bmp|*.bmp"
 link(onExecute,16714778:doWork2,[])
}
Add(ClipboardHook,92140,203,154)
{
 link(onBitmap,10449354:doWork3,[(284,167)])
}
Add(Image,71505,350,98)
{
 Left=105
 Top=10
 Width=285
 Height=210
 Color=16777215
}
Add(InfoTip,89592,42,49)
{
 Info=#11:Из файла...|
 Font=[Times New Roman,9,0,0,1]
 Width=288
 Height=214
}
Add(InfoTip,22169,49,70)
{
 Info=#10:выбранного|
 Font=[Times New Roman,9,0,0,1]
 Width=113
 Height=67
}
Add(InfoTip,64047,49,140)
{
 Info=#19:брошенного на форму|
 Font=[Times New Roman,9,0,0,1]
 VAlign=2
 Width=134
 Height=74
}
Add(InfoTip,85395,189,140)
{
 Info=#16:Из буфера обмена|
 Font=[Times New Roman,9,0,0,1]
 VAlign=2
 HAlign=2
 Width=127
 Height=74
}
Add(HubEx,16714778,168,91)
{
 link(onEvent,4434340:doLoad,[])
}

карма: 0

0