Леонид писал(а):
Необходимое количество байт указывается в потоке" - т. е. можно читать не по одному байту, а скажем, по 256Для этого нужен немного другой накопитель
Add(MainForm,8509514,301,245)
{
}
Add(COM,5708819,462,301)
{
Port=3
link(onRead,12632153:doCase,[])
}
Add(Case,12632153,511,308)
{
Value=String()
link(onNextCase,12646442:doStrCat,[])
link(onTrue,13691511:doData,[(557,321)(557,370)])
}
Add(Case,10656416,630,364)
{
Value=String()
link(onNextCase,8036954:doWork,[])
}
Add(Timer,11901500,364,329)
{
Interval=10
Enable=1
link(onTimer,16112240:doData,[])
}
Add(DoData,16112240,413,329)
{
Data=Integer(256)
link(onEventData,5708819:doRead,[])
}
Add(Hub,15962356,301,294)
{
OutCount=3
link(onEvent2,5708819:doOpen,[])
link(onEvent3,11901500:doTimer,[(349,314)(349,335)])
}
Add(Check,8036954,693,364)
{
Caption="Out"
}
Add(Check,9419350,245,294)
{
Caption="Start"
link(onEvent,15962356:doEvent1,[])
}
Add(Check,14669078,497,350)
{
Caption="Clear"
link(onEvent,12646442:doClear,[(566,356)(566,321)])
}
Add(StrCat,12646442,581,308)
{
Point(doClear)
link(Str2,10589453:Var1,[(594,296)(570,296)(570,352)])
}
Add(DoData,13691511,581,364)
{
link(onEventData,10656416:doCase,[])
link(Data,10589453:Var2,[])
}
Add(GetDataEx,10589453,574,343)
{
link(Data,12646442:Result,[])
}