Вверх ↑
Ответов: 283
Рейтинг: 23
#1: 2022-08-05 11:41:31 ЛС | профиль | цитата
Serascer писал(а):
Помогите пожалуйста решить


Вот компонент https://forum.hiasm.com/topic/62708

Внутри есть схемы-примеры на основе их можно сделать.

Add(MainForm,2953706,21,105)
{
Width=457
Height=455
Caption="HTTPClient - Сохранение в файл"
Position=1
}
Add(Button,12479344,168,126)
{
Left=10
Top=120
Width=140
Height=25
Caption="Выполнить"
link(onClick,11610816:doStart,[])
}
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,273,126)
{
link(onEvent1,8936422:doWork,[])
link(onEvent2,6023390:doLoadFile,[(366,139)(366,153)])
}
Add(LineBreakEx,8936422,308,126)
{
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,399,189)
{
Caption="head"
Type=3
link(_Data,6023390:RawHeaders,[])
}
Add(Edit,4213360,385,28)
{
Left=10
Top=25
Width=425
Text="https://img4.goodfon.ru/original/6254x2503/4/e4/guardians-of-the-galaxy-art-marvel-comics-star-lord-gamora-d.jpg"
}
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(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,280,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,224,126)
{
FastStop=0
link(onExec,5102370:doEvent1,[])
}
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,[])
}


Если стандартным HTTP_Get

Add(MainForm,91136,77,70)
{
Left=312
Top=284
Width=358
Height=136
Caption="Пример HTTP_Get"
Position=1
}
Add(Label,64310,406,126)
{
Left=100
Top=40
Width=35
Font=[Arial,8,0,0,1]
Caption="Status"
}
Add(Label,21437,406,189)
{
Left=140
Top=40
Width=100
Font=[Arial,8,0,0,1]
Caption="0Kb/0Kb"
}
Add(Hub,59971,133,175)
{
OutCount=3
link(onEvent1,13152092:doExecute,[(165,181)(165,132)])
link(onEvent2,27891:GetURLSize,[(182,188)(182,209)])
link(onEvent3,27891:doDownload,[])
}
Add(Math,98541,287,126)
{
OpType=3
Op2=1024
ResultType=0
link(onResult,78676:doValue,[])
}
Add(FormatStr,19075,350,189)
{
Mask="%2Kb/%1Kb"
link(onFString,21437:doText,[])
link(Str1,78676:Value,[])
}
Add(Label,5398,77,126)
{
Left=5
Top=10
Width=35
Font=[Arial,8,0,0,1]
Caption="URL"
}
Add(Button,53054,77,175)
{
Left=5
Top=40
Width=75
Font=[Arial,8,0,0,1]
Caption="Download"
link(onClick,59971:doEvent1,[])
}
Add(Memory,78676,350,126)
{
}
Add(Math,45476,287,189)
{
OpType=3
Op2=1024
ResultType=0
link(onResult,19075:doString,[])
}
Add(Edit,70643,217,70)
{
Left=45
Top=5
Width=300
Height=21
Font=[Arial,8,0,0,1]
Text="http://www.hiasm.com/xf/attach/share/zlib.zip"
}
Add(Button,17110,77,231)
{
Left=260
Top=40
Width=75
Font=[Arial,8,0,0,1]
Caption="Stop"
link(onClick,27891:doStop,[(205,237)(205,202)])
}
Add(HTTP_Get,27891,217,189)
{
link(onStatus,45476:doOperation,[])
link(onDownload,9067067:doMessage,[(263,202)(263,244)])
link(onURLSize,98541:doOperation,[(275,209)(275,132)])
link(URL,70643:Text,[])
link(FileName,11384887:Var2,[])
}
Add(SDialog,13152092,175,126)
{
link(onExecute,2066818:doValue,[])
}
Add(Memory,2066818,224,126)
{
link(onData,1616597:doText,[(268,132)(268,76)])
}
Add(Message,9067067,280,238)
{
Caption="Download OK!"
link(Message,11384887:Var3,[(286,173)])
}
Add(GetDataEx,11384887,224,168)
{
link(Data,2066818:Value,[])
}
Add(Label,1616597,287,70)
{
Left=5
Top=75
Width=330
Height=30
Font=[MS Sans Serif,8,0,8388608,1]
Caption="_"
AutoSize=1
}
карма: 2
0
Редактировалось 2 раз(а), последний 2022-08-05 11:49:14