Вверх ↑
Ответов: 95
Рейтинг: 0
#1: 2020-06-12 21:50:25 ЛС | профиль | цитата
Ребята, может кому пригодится, вот рабочая схема мультипотока для этого компонента. Для примера я покажу на копировании файлов, но в место опирации над файлами можно так же выгружать файлы в инет. Короче сама суть надеюсь будет понятной...

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=1193
Height=750
}
Add(Button,10739295,301,77)
{
Left=20
Top=515
Width=90
Height=40
Font=[MS Sans Serif,10,1,255,1]
Caption="dobavit"
link(onClick,14632018:doExecute,[])
}
Add(Memo,1083195,441,77)
{
Left=15
Top=15
Width=300
Height=400
}
Add(Memo,530811,693,196)
{
Left=340
Top=15
Width=300
Height=400
}
Add(Memo,13181563,700,539)
{
Left=670
Top=15
Width=300
Height=400
}
Add(ODialog,14632018,364,77)
{
Select=1
link(onExecute,1083195:doAdd,[])
}
Add(ArrayEnum,12584361,455,252)
{
link(onItem,11483881:doEvent1,[])
link(Array,2617444:Var2,[])
}
Add(ArrayEnum,13755750,483,574)
{
link(onItem,14789685:doEvent1,[])
link(Array,5152880:Var,[])
}
Add(FileTools,5090797,574,245)
{
NewFileName="E:\\test\\test.mp4"
link(onEnd,4242509:In,[])
link(FileName,12584361:Item,[(580,233)(522,233)(522,292)(461,292)])
link(NewFileName,5138992:FString,[])
}
Add(FileTools,4839667,595,588)
{
NewFileName="E:\\test\\test2.mp4"
link(onEnd,8162177:In,[])
link(FileName,13755750:Item,[(601,576)(545,576)(545,618)(489,618)])
link(NewFileName,8865822:FString,[])
}
Add(Thread,11334244,357,252)
{
FastStop=0
link(onExec,12584361:doEnum,[])
}
Add(Thread,7073966,357,574)
{
Delay=1300
FastStop=0
link(onExec,13755750:doEnum,[])
}
Add(Button,5944194,161,420)
{
Left=130
Top=515
Width=90
Height=40
Font=[MS Sans Serif,10,1,255,1]
Caption="perenos"
link(onClick,461469:doEvent1,[])
}
Add(Hub,461469,287,420)
{
InCount=3
link(onEvent1,11334244:doStart,[(332,426)(332,258)])
link(onEvent2,7073966:doStart,[(329,433)(329,580)])
}
Add(Hub,11483881,525,252)
{
OutCount=3
link(onEvent1,15645132:doRandom,[(560,258)(560,146)])
link(onEvent2,12126090:doData,[(551,265)(551,289)(450,289)(450,314)])
link(onEvent3,5090797:doCopy,[(557,272)(557,258)])
}
Add(Hub,14789685,546,574)
{
OutCount=3
link(onEvent1,13811772:doRandom,[(584,580)(584,496)])
link(onEvent2,11279074:doData,[(572,587)(572,615)(478,615)(478,643)])
link(onEvent3,4839667:doCopy,[(578,594)(578,601)])
}
Add(FormatStr,5138992,581,196)
{
DataCount=1
Mask="E:\\test\\%1.mp4"
Point(FString)
link(onFString,530811:doAdd,[])
link(Str1,15645132:Random,[])
}
Add(FormatStr,8865822,602,539)
{
DataCount=1
Mask="E:\\test\\%1.mp4"
Point(FString)
link(onFString,13181563:doAdd,[])
link(Str1,13811772:Random,[])
}
Add(DoData,12126090,462,308)
{
link(onEventData,9050316:doWork2,[])
link(Data,12584361:Index,[])
}
Add(DoData,11279074,490,637)
{
link(onEventData,16612372:In,[])
link(Data,13755750:Index,[])
}
Add(HubEx,9050316,502,308)
{
Angle=3
link(onEvent,1083195:doDelete,[(506,248)(429,248)(429,97)])
}
Add(GetDataEx,2617444,455,217)
{
link(Data,1083195:Array,[])
}
Add(LineBreak,16368397,476,231)
{
Type=1
link(Data,2617444:Var3,[(482,222)])
Primary=[5152880,7,308]
}
Add(LineBreak,3548410,518,329)
{
link(Out,9050316:doWork1,[(560,335)(560,314)])
Primary=[16612372,21,308]
}
Add(LineBreak,5732109,238,434)
{
link(Out,461469:doEvent3,[])
Primary=[4242509,378,-189]
}
Add(LineBreak,7072586,210,427)
{
link(Out,461469:doEvent2,[])
Primary=[8162177,427,161]
}
Add(Random,15645132,581,140)
{
Min=1000
Max=10000
link(onRandom,5138992:doString,[(625,146)(625,174)(569,174)(569,202)])
}
Add(Random,13811772,602,490)
{
Min=1000
Max=10000
link(onRandom,8865822:doString,[(646,496)(646,520)(590,520)(590,545)])
}

карма: 0

0
Редактировалось 3 раз(а), последний 2020-06-13 12:06:35