------------ Дoбавленo в 03.40:
Кажется, я накапливаю данные, но не могу их прочесть:
Add(MainForm,2953706,224,252)
{
Width=696
Height=403
Position=1
link(onCreate,10704837:doEvent1,[])
}
Add(DoData,6829370,413,238)
{
Data=String(a1)
link(onEventData,1453838:doWork1,[(492,244)])
}
Add(DataToFile,16464081,742,364)
{
Point(doPosition)
Point(Position)
link(onGet,12377144:doConvert,[])
link(Stream,3496730:Var3,[(748,271)])
}
Add(Memo,6641964,917,364)
{
Left=130
Top=60
Width=485
Height=250
ScrollBars=2
}
Add(Hub,10704837,287,266)
{
OutCount=4
PColor(onEvent4,255)
link(onEvent1,6829370:doData,[(341,272)(341,244)])
link(onEvent2,11928595:doData,[(340,279)(340,335)])
link(onEvent3,9804881:doData,[(331,286)(331,223)])
link(onEvent4,12607013:In,[])
}
Add(Timer,3109093,588,49)
{
Interval=150
link(onTimer,8669810:doData,[])
}
Add(Label,5054268,686,49)
{
Left=40
Top=65
}
Add(DoData,8669810,637,49)
{
link(onEventData,5054268:doText,[])
link(Data,2954231:Size,[(643,29)(749,29)(749,261)(699,261)])
}
Add(DoData,11928595,413,329)
{
Data=String(a2)
link(onEventData,1453838:doWork3,[(492,335)])
}
Add(HubEx,1453838,488,287)
{
link(onEvent,10572300:doConvert,[])
}
Add(DoData,9804881,637,217)
{
Data=Integer(0)
link(onEventData,2954231:doPosition,[])
}
Add(LineBreak,14696625,693,371)
{
PColor(Out,255)
link(Out,16464081:doGet,[])
Primary=[12607013,-287,-84]
}
Add(Convertor,10572300,637,287)
{
@Color=9360639
Mode=12
link(onResult,13112055:doCopy,[])
}
Add(StreamCopy,13112055,686,287)
{
@Color=9360639
Count=-1
link(Dest,3496730:Var2,[])
}
Add(MemoryStream,2954231,686,203)
{
@Color=9360639
Point(doPosition)
}
Add(GetDataEx,3496730,686,266)
{
link(Data,2954231:Stream,[])
}
Add(Convertor,12377144,812,364)
{
@Color=9360639
Mode=11
link(onResult,6641964:doAdd,[])
}
------------ Дoбавленo в 03.46:
Всё, кажется, смог(если это не абсурдная схема):
Add(MainForm,2953706,224,252)
{
Width=696
Height=403
Position=1
link(onCreate,10704837:doEvent1,[])
}
Add(DoData,6829370,413,238)
{
Data=String(a1)
link(onEventData,1453838:doWork1,[(492,244)])
}
Add(DataToFile,16464081,840,364)
{
Point(doPosition)
Point(Position)
link(onGet,12377144:doConvert,[])
link(Stream,3496730:Var3,[(846,271)])
}
Add(Memo,6641964,959,364)
{
Left=130
Top=60
Width=485
Height=250
ScrollBars=2
}
Add(Hub,10704837,287,266)
{
OutCount=4
PColor(onEvent4,255)
link(onEvent1,6829370:doData,[(341,272)(341,244)])
link(onEvent2,11928595:doData,[(340,279)(340,335)])
link(onEvent3,9804881:doData,[(328,286)(328,223)])
link(onEvent4,12607013:In,[])
}
Add(Timer,3109093,588,49)
{
Interval=150
link(onTimer,8669810:doData,[])
}
Add(Label,5054268,686,49)
{
Left=40
Top=65
}
Add(DoData,8669810,637,49)
{
link(onEventData,5054268:doText,[])
link(Data,16464081:Position,[(643,33)(884,33)(884,407)(853,407)])
}
Add(DoData,11928595,413,329)
{
Data=String(a2)
link(onEventData,1453838:doWork3,[(492,335)])
}
Add(HubEx,1453838,488,287)
{
link(onEvent,10572300:doConvert,[])
}
Add(DoData,9804881,637,217)
{
Data=Integer(0)
link(onEventData,2954231:doPosition,[])
}
Add(LineBreak,14696625,749,371)
{
PColor(Out,255)
link(Out,9411875:doFor,[])
Primary=[12607013,-343,-84]
}
Add(Convertor,10572300,637,287)
{
@Color=9360639
Mode=12
link(onResult,13112055:doCopy,[])
}
Add(StreamCopy,13112055,686,287)
{
@Color=9360639
Count=-1
link(Dest,3496730:Var2,[])
}
Add(MemoryStream,2954231,686,203)
{
@Color=9360639
Point(doPosition)
}
Add(GetDataEx,3496730,686,266)
{
link(Data,2954231:Stream,[])
}
Add(Convertor,12377144,903,364)
{
@Color=9360639
Mode=4
link(onResult,6641964:doAdd,[])
}
Add(For,9411875,791,371)
{
link(onEvent,16464081:doGet,[])
link(End,2954231:Size,[(804,256)(699,256)])
}