Отправляю АТ команду в com порт например ati, получаю ответ в виде трех строк которые помещаются в редактор текста.
Подскажите пожалуйста как из редактора текста или сразу из потока данных раскидать каждую строку в отдельную надпись и еще если это возможно сохранить все данные полученные из com порта в файле например в txt в одну строчку?
Add(FormatStr,12648551,147,224)
{
DataCount=1
Mask="%1"
link(onFString,96560:doEvent1,[])
link(Str1,93647:Text,[])
}
Add(Edit,93647,147,168)
{
Left=35
Top=15
Width=75
Height=21
Text="ati"
link(onEnter,12648551:doString,[(191,181)(191,205)(135,205)(135,230)])
}
Add(Hub,96560,203,224)
{
OutCount=5
link(onEvent1,4901:doOpen,[])
link(onEvent2,4901:doWrite,[(345,237)(345,251)])
link(onEvent3,5688535:doSleepMks,[(240,244)(240,265)])
}
Add(DoData,10850025,294,259)
{
Data=Integer(500)
link(onEventData,4901:doRead,[(390,265)(390,258)])
}
Add(COM,4901,455,224)
{
Port=3
BaudRate=115200
link(onRead,1865701:doEvent1,[])
}
Add(Button,83996,252,119)
{
Left=35
Top=50
Width=75
Caption="Закрыть порт"
link(onClick,4901:doClose,[(370,125)(370,237)])
}
Add(Sleep,5688535,245,259)
{
Delay=1000
link(onSleep,10850025:doData,[])
}
Add(Memo,37557,595,175)
{
Left=125
Top=15
Width=180
Height=60
ScrollBars=2
}
Add(Hub,1865701,511,231)
{
OutCount=4
link(onEvent1,37557:doClear,[(561,237)(561,188)])
link(onEvent2,37557:doAdd,[(569,244)(569,181)])
}
Поиск
Друзья
Администрация