Вверх ↑
Ответов: 207
Рейтинг: 14
#1: 2020-11-16 15:34:17 ЛС | профиль | цитата
Netspirit, Не подскажешь почему накапливается оперативная память при каждом цикле. (особенно это заметно в FPC32 и FPC32U).
Даже если не зацикливать, а нажимать "Выполнить", после каждого нажатия растет использование RAM.

Add(MainForm,7915591,105,182)
{
Width=457
Height=455
Caption="HTTPClient - Сохранение в файл"
Position=1
}
Add(Button,12479344,224,196)
{
Left=10
Top=120
Width=140
Height=25
Caption="Выполнить"
link(onClick,14299393:doWork2,[])
}
Add(Memo,2568247,952,217)
{
Left=10
Top=200
Width=425
Height=215
ScrollBars=3
}
Add(Message,363691,595,238)
{
Caption="Ошибка запроса"
Icon=1
}
Add(DoData,7347341,819,217)
{
link(onEventData,2568247:doAdd,[])
link(Data,2427935:getVar,[])
}
Add(Hub,5102370,308,196)
{
link(onEvent1,8936422:doWork,[])
link(onEvent2,11610816:doStart,[])
}
Add(LineBreakEx,8936422,343,196)
{
Caption="clear"
}
Add(LineBreakEx,2111794,882,224)
{
Caption="clear"
Type=1
link(OnEvent,2568247:doClear,[])
}
Add(LineBreakEx,2427935,819,189)
{
Caption="head"
Type=2
}
Add(LineBreakEx,15402714,539,266)
{
Caption="head"
Type=3
link(_Data,6023390:RawHeaders,[(545,257)(538,257)])
}
Add(Edit,4213360,518,105)
{
Left=10
Top=25
Width=425
Text="http://fs.kinomania.ru/file/film_poster/5/81/581b651aab2c22ccbb9c1bd3e0282103.jpeg"
}
Add(HTTPClient,6023390,518,217)
{
Point(RawHeaders)
Point(doResumeDL)
link(URL,4213360:Text,[])
link(FileName,12595752:Text,[])
link(onHeadersAvail,10070054:doSynchronize,[])
link(onDownloadProgress,13932024:doSynchronize,[(564,237)(564,370)])
link(onError,363691:doMessage,[])
}
Add(Label,10388595,105,231)
{
Left=10
Top=5
Width=156
Height=17
Caption="Адрес файла для скачивания:"
}
Add(Label,5959088,105,280)
{
Left=10
Top=60
Width=148
Height=17
Caption="Имя файла, куда сохранить:"
}
Add(Edit,12595752,525,147)
{
Left=10
Top=80
Width=425
Text="Image.jpg"
}
Add(Label,6924240,861,371)
{
Left=365
Top=175
Width=10
Height=17
Caption="0"
}
Add(Button,15458492,448,231)
{
Left=350
Top=120
Width=80
Height=25
Caption="Прервать"
link(onClick,6023390:doAbort,[])
}
Add(ProgressBar,3247869,924,364)
{
Left=10
Top=175
Width=350
ProgressColor=16711680
Point(doMax)
}
Add(Hub,4845090,770,364)
{
OutCount=3
link(onEvent1,3247869:doPosition,[])
link(onEvent2,6924240:doText,[])
link(onEvent3,15541039:doCompare,[(795,384)(795,454)])
}
Add(LineBreakEx,16033729,525,287)
{
Caption="len"
Type=3
link(_Data,6023390:ContentLength,[])
}
Add(LineBreakEx,10269870,826,273)
{
Caption="len"
Type=2
}
Add(Thread,11610816,378,203)
{
FastStop=0
link(onExec,6023390:doLoadFile,[(508,209)(508,230)])
}
Add(DoData,4089202,826,301)
{
link(onEventData,3247869:doMax,[(909,307)(909,377)])
link(Data,10269870:getVar,[])
}
Add(Hub,1612285,770,217)
{
link(onEvent1,7347341:doData,[])
link(onEvent2,4089202:doData,[(805,230)(805,307)])
}
Add(Synchronize,10070054,700,217)
{
link(onSync,1612285:doEvent1,[])
}
Add(Synchronize,13932024,714,364)
{
link(onSync,4845090:doEvent1,[])
}
Add(If_else,15541039,833,448)
{
link(onTrue,15980281:doTimer,[])
link(Op2,12392812:getVar,[])
}
Add(LineBreakEx,12392812,840,420)
{
Caption="len"
Type=2
}
Add(HubEx,14299393,280,196)
{
link(onEvent,5102370:doEvent1,[])
}
Add(Timer,15980281,882,448)
{
Interval=1
Enable=1
AutoStop=1
link(onTimer,16350153:doTimer,[])
}
Add(Timer,16350153,931,448)
{
Interval=1
Enable=1
AutoStop=1
link(onTimer,14299393:doWork3,[(977,454)(977,412)(284,412)])
}

карма: 2

0