Add(InfoTip,11282530,560,721)
{
 Info=#151:Ошибка "Self Destruction" - получаем сигнал и пытаемся очистить, когда событие контейнера ещё не отработало. Нужно Sleep (DeferredEvent слабо поможет) |
 Width=197
 Height=123
}
Add(MainForm,2953706,24,105)
{
 Width=306
 Height=264
 Caption="Dynamic multithread"
 Position=1
 link(onCreate,15188141:doEvent1,[])
}
Add(Label,5227359,14,175)
{
 Left=5
 Top=10
 Width=66
 Height=17
 Caption="Количество:"
}
Add(Edit,2248716,238,98)
{
 Left=70
 Top=5
 Text="10"
}
Add(Button,12182706,77,301)
{
 Left=125
 Top=5
 Width=95
 Caption="Запустить"
 link(onClick,7554984:doStart,[])
}
Add(Memo,2950724,623,112)
{
 Left=5
 Top=40
 Width=280
 Height=185
 ScrollBars=2
}
Add(MultiElementEx,490853,763,301)
{
 Mode=1
 link(onFinish,10736544:doEvent1,[])
}
BEGIN_SDK
  Add(EditMultiEx,9576897,21,21)
  {
   WorkCount=#5:##add|8:##select|7:##clear|7:doStart|
   EventCount=#8:onThread|8:onFinish|
   VarCount=#12:##eventIndex|
   Width=566
   Height=375
   Point(##add)
   Point(##select)
   Point(##clear)
   Point(##eventIndex)
   link(doStart,11741187:doEvent1,[])
  }
  Add(Thread,1264527,105,119)
  {
   Delay=100
   link(onExec,3660277:doNext,[])
  }
  Add(Hub,11741187,56,42)
  {
   link(onEvent1,4473815:doRandom,[])
   link(onEvent2,1264527:doStart,[(88,55)(88,125)])
  }
  Add(Random,4473815,112,42)
  {
   Min=5
   Max=30
   link(onRandom,3660277:doMax,[(216,48)(216,132)])
  }
  Add(CounterEx,3660277,252,119)
  {
   Min=1
   Default=1
   Point(doMax)
   Point(onThroughMax)
   link(onNext,14584811:doSafeMode,[(362,125)(362,27)])
   link(onThroughMax,16713849:doEvent1,[])
  }
  Add(Hub,16713849,329,126)
  {
   link(onEvent1,14740393:doSafeMode,[])
   link(onEvent2,1264527:doStopFlag,[(368,139)(368,169)(93,169)(93,132)])
  }
  Add(SafeMode,14740393,441,126)
  {
   Name="Conatiner"
   link(onSafeMode,9576897:onFinish,[(528,132)(528,34)])
   AddHint(-11,36,60,13,Name)
  }
  Add(SafeMode,14584811,441,21)
  {
   Name="Conatiner"
   link(onSafeMode,9576897:onThread,[])
   AddHint(-11,36,60,13,Name)
  }
  Add(InfoTip,4383503,392,203)
  {
   Info=#69:Критическая секция на выходы контейнера - для защиты внутреннего кода|
   Width=162
   Height=67
  }
END_SDK
Add(LineBreakEx,12595872,420,266)
{
 Caption="count"
 Type=2
}
Add(LineBreakEx,13591516,238,140)
{
 Caption="count"
 Type=3
 link(_Data,2248716:Text,[])
}
Add(For,14344520,413,301)
{
 Start=1
 link(onEvent,490853:##add,[])
 link(End,12595872:getVar,[])
}
Add(Hub,885081,245,301)
{
 OutCount=4
 link(onEvent1,14344520:doFor,[])
 link(onEvent2,15466093:doData,[(343,314)(343,440)])
 link(onEvent3,14303809:doFor,[(316,321)(316,587)])
 link(onEvent4,13512247:doWait,[(295,328)(295,699)])
}
Add(LineBreakEx,10675697,427,546)
{
 Caption="count"
 Type=2
}
Add(For,14303809,420,581)
{
 Start=1
 link(onEvent,3351173:doOperation,[])
 link(End,10675697:getVar,[])
}
Add(Random,3466891,112,112)
{
 Min=5
 Max=30
}
Add(Synchronize,3342322,574,112)
{
 link(onSync,2950724:doAdd,[])
}
Add(DoData,15466093,441,434)
{
 link(onEventData,6300903:doWork,[])
 link(Data,5504863:getVar,[])
}
Add(StrCat,16352581,903,308)
{
 Str1="Finished: "
 link(onStrCat,9193338:doWork,[])
 link(Str2,490853:##eventIndex,[(916,296)(891,296)(891,354)(769,354)])
}
Add(Hub,11666581,595,343)
{
 link(onEvent1,490853:##select,[(643,349)(643,314)])
 link(onEvent2,490853:doStart,[(655,356)(655,328)])
}
Add(Math,3351173,476,581)
{
 OpType=1
 Op2=1
 link(onResult,11666581:doEvent1,[(581,587)(581,349)])
}
Add(MultiElementEx,10113316,903,490)
{
}
BEGIN_SDK
  Add(EditMultiEx,9531177,21,21)
  {
   WorkCount=#11:CreateEvent|52:doInit=Инициализировать количество ожидаемых потоков|9:doRelease|7:doReset|
   VarCount=#6:Handle|
   Width=489
   Height=207
   link(CreateEvent,13285598:doCreate,[(206,27)(206,76)])
   link(doInit,1398212:doEvent1,[(76,34)(76,83)])
   link(Handle,13285598:ObjHandle,[(27,188)(223,188)])
   link(doRelease,6878072:doNext,[(59,41)(59,76)])
  }
  Add(Events,13285598,217,70)
  {
   Name=""
  }
  Add(CounterEx,6878072,140,70)
  {
   Min=1
   Max=999999
   Default=1
   Point(onThroughMax)
   Point(doMax)
   link(onThroughMax,13285598:doSet,[])
   AddHint(-39,71,21,13,Min)
   AddHint(7,71,21,13,Default)
  }
  Add(Hub,1398212,98,77)
  {
   link(onEvent1,6878072:doMax,[])
   link(onEvent2,13285598:doReset,[(158,120)])
  }
  Add(InfoTip,7586110,21,252)
  {
   Info=#110:Если бы крит. секции не было бы в потоках, то она должна была бы быть внутри семафора (на уменьшение счетчика)|
   Width=491
   Height=39
  }
END_SDK
Add(LineBreak,10971451,812,490)
{
 Caption="ev"
 link(Out,10113316:CreateEvent,[])
 Primary=[5375141,-700,-336]
}
Add(Hub,15188141,70,119)
{
 link(onEvent1,3466891:doRandomize,[])
 link(onEvent2,5375141:In,[(102,132)(102,160)])
}
Add(LineBreakEx,16279675,763,511)
{
 @Color=5614250
 Caption="init"
}
Add(LineBreakEx,703590,812,511)
{
 @Color=5614250
 Caption="init"
 Type=1
 link(OnEvent,10113316:doInit,[(855,517)(855,503)])
}
Add(LineBreakEx,15151214,763,532)
{
 @Color=16755285
 Caption="rel"
}
Add(LineBreakEx,13981404,812,532)
{
 @Color=16755200
 Caption="rel"
 Type=1
 link(OnEvent,10113316:doRelease,[(865,538)(865,510)])
}
Add(InfoTip,8456654,728,462)
{
 Info=#21:Реализация "семафора"|
 Width=246
 Height=123
}
Add(LineBreakEx,5151982,903,553)
{
 @Color=11184895
 Caption="H"
 Type=2
}
Add(LineBreakEx,5362847,903,532)
{
 @Color=11184895
 Caption="H"
 Type=3
 link(_Data,10113316:Handle,[])
}
Add(Thread,7554984,175,301)
{
 Delay=0
 FastStop=0
 link(onExec,885081:doEvent1,[])
}
Add(LineBreakEx,5077185,840,315)
{
 @Color=16755285
 Caption="rel"
}
Add(LineBreakEx,6300903,490,434)
{
 @Color=5614250
 Caption="init"
}
Add(LineBreakEx,5504863,441,406)
{
 Caption="count"
 Type=2
}
Add(InfoTip,4446107,378,238)
{
 Info=#24:Создание внутренних схем|
 Width=169
 Height=109
}
Add(InfoTip,3376183,364,511)
{
 Info=#59:Запуск потоков только когда все были созданы (во избежание)|
 Width=204
 Height=123
}
Add(InfoTip,4977800,378,357)
{
 Info=#85:Инициализация "семафора" - просигналить, когда указаное количество потоков отработает|
 Width=183
 Height=123
}
Add(InfoTip,14650480,364,651)
{
 Info=#32:Ожидание завершения всех потоков|
 Width=400
 Height=214
}
Add(Hub,10736544,812,308)
{
 link(onEvent1,16352581:doStrCat,[])
 link(onEvent2,5077185:doWork,[])
}
Add(LineBreakEx,9193338,959,308)
{
 Caption="log"
}
Add(LineBreakEx,5903133,525,112)
{
 Caption="log"
 Type=1
 link(OnEvent,3342322:doSynchronize,[])
}
Add(LineBreakEx,3980463,567,693)
{
 Caption="log"
}
Add(DoData,9308539,469,693)
{
 Data=String(Все потоки завершились)
 link(onEventData,10662999:doEvent1,[])
}
Add(LineBreakEx,6051718,420,665)
{
 @Color=11184895
 Caption="H"
 Type=2
}
Add(WaitObject,13512247,420,693)
{
 link(onWait,9308539:doData,[])
 link(ObjHandle,6051718:getVar,[])
}
Add(LineBreakEx,1030803,658,798)
{
 Caption="destroy"
}
Add(LineBreakEx,8310483,686,315)
{
 Caption="destroy"
 Type=1
 link(OnEvent,490853:##clear,[])
}
Add(Hub,10662999,525,693)
{
 link(onEvent1,3980463:doWork,[])
 link(onEvent2,8551758:doDeferredEvent,[(546,706)(546,804)])
}
Add(DeferredEvent,8551758,609,798)
{
 link(onDeferredEvent,1030803:doWork,[])
}