Вверх ↑
Ответов: 107
Рейтинг: 0
#1: 2020-06-02 15:42:43 ЛС | профиль | цитата
Netspirit, Это нужно поставить таблицу строк с загруженными в нее списком файлов, затем перебором массива подавать на поток файлы по очереди? Поток будет ждать пока файл выгрузится на сервер?) Или по событию финиш нужно сделать связь с повторением? Просто я такую конструкцию сделал и у меня проблема, дело в том, что после того как выгружается последний файл, его начинает лить по кругу бесконечно...

В примере есть, но там один компонент, а мне нужно делать GET запрос, а потом уже 2 POST. Видимо я что то делаю не так

Make(delphi)
ver(4.05 build 186)
Add(MainForm,12505096,175,182)
{
Width=1113
Height=684
Caption="HTTPClient - Cookie"
Position=1
Point(onClose)
link(onCreate,2515764:In,[(229,202)(229,195)])
link(onClose,16535532:In,[(243,209)(243,216)])
}
Add(Button,12479344,357,462)
{
Left=10
Top=5
Width=140
Height=25
Caption="login"
link(onClick,5102370:doEvent1,[])
}
Add(DoData,7347341,574,441)
{
link(onEventData,9377522:doEvent1,[])
link(Data,2427935:getVar,[])
}
Add(Hub,9377522,644,441)
{
InCount=2
link(onEvent1,16267355:doAdd,[(668,447)(668,461)])
}
Add(CookieManager,16633777,462,588)
{
Filename="Cookie\\picstate.txt"
Name="rest"
Point(doDelete)
Point(onChange)
Point(doClear)
}
Add(Hub,5102370,420,462)
{
OutCount=4
link(onEvent1,8936422:doWork,[])
link(onEvent2,16633777:doClear,[(434,629)])
link(onEvent3,7240677:doString,[(486,482)(486,391)])
link(onEvent4,11811091:doLoadString,[])
}
Add(LineBreakEx,8936422,455,462)
{
Caption="clear"
}
Add(LineBreakEx,2111794,609,462)
{
Caption="clear"
Type=1
link(OnEvent,16267355:doClear,[])
}
Add(LineBreakEx,2427935,574,420)
{
Caption="head"
Type=2
}
Add(LineBreakEx,15402714,532,532)
{
Caption="head"
Type=3
link(_Data,11811091:RawHeaders,[])
}
Add(LineBreak,3914119,364,602)
{
Caption="save"
link(Out,16633777:doSave,[])
Primary=[16535532,-112,-392]
}
Add(LineBreak,1905389,364,623)
{
Caption="load"
link(Out,16633777:doLoad,[(416,629)(416,615)])
Primary=[2515764,-112,-434]
}
Add(HTTPClient,11811091,518,483)
{
URL="https://picstate.com/account/login"
Method=1
Headers="Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8\r\nAccept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3\r\nReferer: https://picstate.com/login\r\nOrigin: https://picstate.com\r\nUpgrade-Insecure-Requests: 1\r\nTE: Trailers"
UserAgent="User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.140 Safari/537.36 Edge/18.17763"
IgnoreInvalidCN=1
Decompress=1
CookieManager="rest"
Point(Headers)
Point(PostData)
Point(onRedirect)
Point(RawHeaders)
link(onHeadersAvail,7347341:doData,[(562,489)(562,447)])
link(onFinish,9377522:doEvent2,[(597,496)(597,454)])
link(PostData,7240677:FString,[])
}
Add(Button,11773978,777,210)
{
Left=175
Top=5
Width=140
Height=25
Caption="Send img"
link(onClick,5357300:doWork2,[])
}
Add(HTTPClient,8993969,945,315)
{
URL="https://picstate.com/multiup"
Headers="Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8\r\nAccept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3\r\nUpgrade-Insecure-Requests: 1\r\nTE: Trailers"
Referer="https://picstate.com/myfiles"
UserAgent="User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.140 Safari/537.36 Edge/18.17763"
EncType=1
IgnoreInvalidCN=1
Decompress=1
CookieManager="rest"
Point(Headers)
Point(PostData)
Point(RawHeaders)
Point(CurrentURL)
Point(onRedirect)
link(onFinish,11275676:doAdd,[(1029,328)(1029,363)])
}
Add(BlockFind,14902239,1106,413)
{
IncludeBlock=1
StartBlock=""multiup_sess" : ""
EndBlock="","
link(onSearch,7390642:doData,[])
link(Text,16298705:Var3,[(1112,408)])
}
Add(EventFromData,7390642,1155,413)
{
link(onEvent,14791049:doEvent1,[(1195,419)(1195,426)])
}
Add(Hub,15439320,833,315)
{
OutCount=5
link(onEvent1,8993969:doLoadString,[])
link(onEvent2,185910:doSearch,[(929,328)(929,366)(849,366)(849,412)])
link(onEvent3,11487906:doSearch,[(922,335)(922,377)(849,377)(849,496)])
link(onEvent4,6079180:doString,[(963,342)(963,552)])
link(onEvent5,16373781:doLoadString,[(1053,349)(1053,573)])
}
Add(EventFromData,6655165,1295,518)
{
}
Add(SymbolsGen,9496845,1239,413)
{
Count=29
Symbols="abcdefghijklmnopqrstuvwxyz1234567890"
link(onResult,15579385:doString,[])
}
Add(FormatStr,15579385,1295,413)
{
DataCount=1
Mask="%1.jpg"
Point(FString)
link(Str1,9496845:Result,[(1301,401)(1273,401)(1273,457)(1245,457)])
}
Add(BlockFind,185910,861,406)
{
IncludeBlock=1
StartBlock=""timestamp" : ""
EndBlock="","
link(onSearch,7750386:doData,[])
link(Text,11864204:Var1,[(867,397)(1084,397)])
}
Add(EventFromData,7750386,924,406)
{
}
Add(BlockFind,11487906,868,490)
{
IncludeBlock=1
StartBlock=""token" : ""
EndBlock="","
link(onSearch,6687011:doData,[])
link(Text,16298705:Var2,[(874,451)(1091,451)])
}
Add(EventFromData,6687011,924,490)
{
}
Add(GetDataEx,11864204,1078,403)
{
Angle=3
link(Data,11275676:Text,[(1063,408)])
}
Add(GetDataEx,16298705,1085,403)
{
Angle=3
link(Data,11864204:Var3,[])
}
Add(HTTPClient,16373781,1260,567)
{
URL="https://picstate.com/multiuploader.php"
Method=1
Headers="Origin: https://picstate.com\r\nAccept: */*\r\nAccept-Language: ru-UA\r\nHost: picstate.com\r\nConnection: Keep-Alive\r\nCache-Control: no-cache\r\n"
Referer="https://picstate.com/multiup"
UserAgent="User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.140 Safari/537.36 Edge/18.17763"
FileField="file"
FileMIME="image/png"
Boundary="---------------------------7e413830430de8"
CookieManager="rest"
Point(UploadFile)
Point(PostData)
Point(CurrentURL)
Point(onRedirect)
Point(doLoadStream)
Point(doExecute)
link(onFinish,7364812:doString,[(1360,580)(1360,636)(1108,636)(1108,685)])
link(UploadFile,3167038:Item,[])
link(PostData,6655165:GetData,[(1287,559)(1301,559)])
}
Add(FormatStr,6079180,1008,546)
{
DataCount=5
Mask="name=%5\r\ntimestamp=%2\r\ntoken=%3\r\nmultiup_sess=%4\r\nupl_ver=new"
Point(FString)
link(onFString,16312752:In,[])
link(Str2,1501388:Var,[])
link(Str3,2076554:Var,[])
link(Str4,8402578:Var1,[(1035,525)])
link(Str5,8253879:Var2,[])
}
Add(LineBreak,1496977,1295,448)
{
Caption="name"
Type=1
link(Data,15579385:FString,[])
Primary=[4516172,-259,63]
}
Add(LineBreak,14637814,924,532)
{
Caption="token"
Type=1
link(Data,6687011:GetData,[])
Primary=[2076554,98,-42]
}
Add(LineBreak,12261620,924,448)
{
Caption="timestamp"
Type=1
link(Data,7750386:GetData,[])
Primary=[1501388,91,14]
}
Add(LineBreak,1163260,1155,448)
{
Caption="multiup_sess"
Type=1
link(Data,7390642:GetData,[])
Primary=[12687867,-21,42]
}
Add(LineBreak,15534217,1218,518)
{
Caption="postdata"
link(Out,6655165:doData,[])
Primary=[16312752,-147,28]
}
Add(GetDataEx,8402578,1120,520)
{
Angle=1
link(Data,12687867:Var,[(1140,525)])
}
Add(HTTPClient,7217892,1204,679)
{
URL="https://picstate.com/multiup"
Method=1
Headers="Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8\r\nAccept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3\r\nConnection: keep-alive\r\nHost: picstate.com\r\nUpgrade-Insecure-Requests: 1\r\nTE: Trailers"
Referer="https://picstate.com/multiup"
UserAgent="User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.140 Safari/537.36 Edge/18.17763"
EncType=1
FileField="file"
FileMIME="image/png"
Boundary="---------------------------7e4217d430de8"
SSLProtocols=1
Decompress=1
CookieManager="rest"
Point(UploadFile)
Point(PostData)
Point(CurrentURL)
Point(onRedirect)
link(onHeadersAvail,5357300:doWork3,[(1248,685)(1248,452)(1166,452)])
link(onFinish,445326:doAdd,[])
link(PostData,7364812:FString,[(1231,667)(1179,667)(1179,723)(1126,723)])
}
Add(FormatStr,7364812,1120,679)
{
Mask="multiup_sess=%1\r\naction=upload\r\nfolder_id=\r\nresize=600\r\ncustom_resize=\r\nshow_original=on\r\nuploader_0_tmpname=%2\r\nuploader_0_name=\r\nuploader_0_status=done\r\nuploader_count=1"
Point(FString)
link(onFString,7217892:doLoadString,[])
link(Str1,8402578:Var2,[])
link(Str2,8253879:Var1,[(1133,605)(1033,605)(1033,530)])
}
Add(Hub,14791049,1204,420)
{
link(onEvent1,9496845:doGenerate,[(1228,426)(1228,419)])
}
Add(GetDataEx,8253879,1036,525)
{
link(Data,4516172:Var,[])
}
Add(StrList,11275676,1057,357)
{
link(onChange,14902239:doSearch,[(1097,363)(1097,419)])
}
Add(FormatStr,7240677,539,385)
{
Mask="action=login\r\ntask=login\r\nreturn=\r\nusername=%1\r\npassword=%2\r\nremember=1\r\nsubmit=Login"
Point(FString)
link(Str1,848935:Text,[(545,355)(510,355)])
link(Str2,5325029:Text,[(552,355)(573,355)])
}
Add(Edit,5325029,567,294)
{
Left=345
Top=585
Width=245
Text="123456"
}
Add(Edit,848935,504,294)
{
Left=155
Top=585
Width=175
Text="test01"
}
Add(StrList,16267355,679,455)
{
}
Add(ListBox,14771765,1414,686)
{
Left=165
Top=45
Width=910
Height=465
link(onChange,445326:doClear,[(1458,692)(1458,696)(1248,696)(1248,699)])
}
Add(ListBox,9763756,1239,133)
{
Left=255
Top=20
Width=380
Height=485
Visible=1
DataType=1
}
Add(ODialog,9697955,1085,119)
{
Select=1
link(onExecute,9763756:doAdd,[(1178,125)(1178,139)])
}
Add(Button,12000944,987,119)
{
Top=55
Width=145
Height=50
Font=[MS Sans Serif,10,1,255,1]
Caption="..."
link(onClick,9697955:doExecute,[])
}
Add(Counter,14212346,1190,210)
{
Min=-1
Default=-1
Point(Max)
link(onNext,3167038:doRead,[])
link(Max,9763756:Count,[(1196,188)(1252,188)])
}
Add(ArrayRW,3167038,1274,210)
{
link(onRead,4525002:doStart,[(1318,216)(1318,268)(751,268)(751,321)])
link(Array,9763756:Array,[(1280,188)(1259,188)])
}
Add(Thread,4525002,763,315)
{
link(onExec,15439320:doEvent1,[])
}
Add(HubEx,5357300,1162,210)
{
link(onEvent,14212346:doNext,[])
}
Add(StrList,445326,1260,686)
{
link(onChange,10668794:doSearch,[])
}
Add(BlockFind,8644012,1358,686)
{
StartBlock="[url=https://picstate.com"
EndBlock="[/img][/url]"
link(onSearch,14771765:doAdd,[])
}
Add(BlockFind,10668794,1309,686)
{
IncludeBlock=1
StartBlock="<p>BBCode Thumbnails Pictures for forums</p>"
EndBlock="</textarea>"
link(onSearch,8644012:doSearch,[])
link(Text,445326:Text,[(1315,674)(1290,674)(1290,730)(1266,730)])
}

карма: 0

0
Редактировалось 4 раз(а), последний 2020-06-02 15:48:29