germes5558 писал(а):
не пойму как это прикрутить к прогрессу загрузокСмотри папку Examples компонента HTTPClient
Add(HTTPClient,6023390,385,140)
{
ResumeDL=1
Point(RawHeaders)
Point(doResumeDL)
link(URL,4213360:Text,[])
link(FileName,12595752:Text,[])
link(onHeadersAvail,10070054:doSynchronize,[])
link(onDownloadProgress,13932024:doSynchronize,[(548,160)(548,293)])
link(onError,363691:doMessage,[])
}
Add(MainForm,2953706,21,105)
{
Width=457
Height=455
Caption="HTTPClient - Сохранение в файл"
Position=1
}
Add(Button,12479344,119,119)
{
Left=10
Top=120
Width=140
Height=25
Caption="Выполнить"
link(onClick,5102370:doEvent1,[])
}
Add(Memo,2568247,819,140)
{
Left=10
Top=200
Width=425
Height=215
ScrollBars=3
}
Add(Message,363691,462,161)
{
Caption="Ошибка запроса"
Icon=1
}
Add(DoData,7347341,686,140)
{
link(onEventData,2568247:doAdd,[])
link(Data,2427935:getVar,[])
}
Add(Hub,5102370,175,119)
{
link(onEvent1,8936422:doWork,[])
link(onEvent2,11610816:doStart,[(203,132)(203,153)])
}
Add(LineBreakEx,8936422,210,119)
{
Caption="clear"
}
Add(LineBreakEx,2111794,749,147)
{
Caption="clear"
Type=1
link(OnEvent,2568247:doClear,[])
}
Add(LineBreakEx,2427935,686,112)
{
Caption="head"
Type=2
}
Add(LineBreakEx,15402714,406,189)
{
Caption="head"
Type=3
link(_Data,6023390:RawHeaders,[(412,180)(405,180)])
}
Add(Edit,4213360,385,28)
{
Left=10
Top=25
Width=425
Text="http://fs.kinomania.ru/file/film_poster/5/81/581b651aab2c22ccbb9c1bd3e0282103.jpeg"
}
Add(Label,10388595,21,154)
{
Left=10
Top=5
Width=156
Height=17
Caption="Адрес файла для скачивания:"
}
Add(Label,5959088,21,203)
{
Left=10
Top=60
Width=148
Height=17
Caption="Имя файла, куда сохранить:"
}
Add(Edit,12595752,392,70)
{
Left=10
Top=80
Width=425
Text="Image.jpg"
}
Add(Label,6924240,791,329)
{
Left=365
Top=175
Width=10
Height=17
Caption="0"
}
Add(Button,15458492,259,154)
{
Left=350
Top=120
Width=80
Height=25
Caption="Прервать"
link(onClick,6023390:doAbort,[])
}
Add(ProgressBar,3247869,791,287)
{
Left=10
Top=175
Width=350
ProgressColor=16711680
Point(doMax)
}
Add(Hub,4845090,735,287)
{
link(onEvent1,3247869:doPosition,[])
link(onEvent2,6924240:doText,[(763,300)(763,335)])
}
Add(LineBreakEx,16033729,392,210)
{
Caption="len"
Type=3
link(_Data,6023390:ContentLength,[])
}
Add(LineBreakEx,10269870,693,196)
{
Caption="len"
Type=2
}
Add(Thread,11610816,217,147)
{
FastStop=0
link(onExec,6023390:doLoadFile,[])
}
Add(DoData,4089202,693,224)
{
link(onEventData,3247869:doMax,[(776,230)(776,300)])
link(Data,10269870:getVar,[])
}
Add(Hub,1612285,637,140)
{
link(onEvent1,7347341:doData,[])
link(onEvent2,4089202:doData,[(672,153)(672,230)])
}
Add(Synchronize,10070054,567,140)
{
link(onSync,1612285:doEvent1,[])
}
Add(Synchronize,13932024,574,287)
{
link(onSync,4845090:doEvent1,[])
}
Add(CheckBox,2898114,329,161)
{
Left=160
Top=125
Width=80
Checked=0
Caption="Докачать"
link(onCheck,6023390:doResumeDL,[])
}