Add(Label,8931604,70,56)
{
 Width=384
 Height=30
 Align=2
 Caption=""
 AutoSize=1
}
Add(MainForm,2953706,210,91)
{
 Point(onClose)
 link(onCreate,12485417:doOpen,[])
 link(onClose,12485417:doClose,[])
}
Add(Edit,2189383,119,56)
{
 Left=20
 Top=5
 Width=195
 Text="45 52 00 1E 84 80 00 1E 84 80 01 01"
}
Add(COMEX,12485417,287,105)
{
 Port=2
 BaudRate=19
 link(onRead,55900:doAdd,[])
}
Add(Button,9912329,70,126)
{
 Left=280
 Top=5
 Caption="Send"
 link(onClick,1310233:doReplace,[])
}
Add(Memo,55900,364,112)
{
 Top=30
 Width=384
 Height=231
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 ScrollBars=3
}
Add(Replace,1310233,119,126)
{
 SubStr=" "
 link(onReplace,5814995:doConvert,[])
 link(Str,2189383:Text,[])
}
Add(StreamConvertor,5814995,168,126)
{
 Mode=3
 link(onResult,12485417:doWrite,[(249,132)(249,125)])
}

Add(MainForm,16112679,196,42)
{
 Width=553
 Height=117
 Point(onClose)
 link(onCreate,11516863:doOpen,[])
 link(onClose,11516863:doClose,[])
}
Add(Button,9912329,133,154)
{
 Left=5
 Top=15
 Width=130
 Caption="Получить днные"
 link(onClick,6462497:doEvent1,[])
}
Add(StreamConvertor,5814995,273,91)
{
 Mode=3
 link(onResult,11516863:doWrite,[(312,97)(312,76)])
}
Add(Timer,9432040,140,63)
{
 Interval=3000
 Enable=1
 AutoStop=1
 link(onTimer,16112679:doClose,[])
}
Add(Hub,6462497,182,154)
{
 OutCount=5
 link(onEvent1,5865439:doData,[(207,160)(207,97)])
 link(onEvent5,9432040:doTimer,[(207,188)(207,202)(116,202)(116,69)])
}
Add(StreamConvertor,6062037,378,63)
{
 Mode=2
 link(onResult,10570596:doEnum,[])
}
Add(DoData,5865439,224,91)
{
 Data=String(4552001E8480001E84800001)
 link(onEventData,5814995:doConvert,[])
}
Add(Str_Enum,10570596,427,63)
{
 Delimiter=""
 Step=4
 link(onEnum,15294039:doAdd,[])
 link(onEndEnum,15294039:doSave,[(480,76)(480,97)])
}
Add(COMEX,11516863,329,56)
{
 BaudRate=19
 link(onRead,6062037:doConvert,[])
}
Add(StrList,15294039,490,63)
{
 FileName="receive_data.txt"
 Point(doSave)
}

  len := ToInteger(_Data);
  if len > 4096 then len := 4096;
  SetLength(Buffer, 4096);

Add(MainForm,16112679,196,84)
{
 Width=553
 Height=117
 Point(onClose)
 link(onCreate,11516863:doOpen,[])
 link(onClose,11516863:doClose,[])
}
Add(Button,9912329,133,196)
{
 Left=5
 Top=15
 Width=130
 Caption="Получить днные"
 link(onClick,6462497:doEvent1,[])
}
Add(StreamConvertor,5814995,273,133)
{
 Mode=3
 link(onResult,11516863:doWrite,[(312,139)(312,118)])
}
Add(Timer,9432040,140,105)
{
 Interval=3000
 Enable=1
 AutoStop=1
 link(onTimer,16112679:doClose,[])
}
Add(Hub,6462497,182,196)
{
 OutCount=5
 link(onEvent1,5865439:doData,[(207,202)(207,139)])
 link(onEvent5,9432040:doTimer,[(207,230)(207,244)(116,244)(116,111)])
}
Add(StreamConvertor,6062037,385,112)
{
 Mode=7
 link(onResult,8970819:doCopyFromStream,[])
}
Add(DoData,5865439,224,133)
{
 Data=String(4552001E8480001E84800001)
 link(onEventData,5814995:doConvert,[])
}
Add(COMEX,11516863,329,98)
{
 Port=2
 BaudRate=19
 link(onSyncRead,6062037:doConvert,[])
}
Add(FileStream,8970819,441,98)
{
 FileName="receive_data.dat"
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
}