Вверх ↑
Разработчик
Ответов: 26300
Рейтинг: 2146
#1: 2009-04-28 17:36:14 ЛС | профиль | цитата
Леонид писал(а):
на верхние точки надо подать тип Integer, а не String

Это кто тебе такое сказал Смотрим код компонента


      ReadInteger(_Data,_data_BaudRate,_prop_BaudRate),
ReadInteger(_Data,_data_Port,_prop_Port+1),

Так вот, ReadInteger может читать и тип String, если только он отображает число, те, например -- "1". Ошибка здесь не в этом, а в том, что порт написан как -- COMX, что не является числом в строковом представлении, суффикс COM надо просто удалить, например, вот так


Add(MainForm,10406190,273,294)
{
Width=528
Height=560
}
Add(Label,14506140,273,231)
{
Left=5
Top=10
Width=47
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="COM №"
}
Add(COM,10115507,413,294)
{
link(onWrite,15993189:doWork2,[])
link(onRead,15993189:doWork3,[(494,307)])
link(Port,14326443:GetData,[])
link(BaudRate,16625246:String,[])
}
Add(Label,7171082,322,231)
{
Left=130
Top=10
Width=60
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Скорость"
}
Add(ComboBox,16625246,413,161)
{
Left=190
Top=5
Width=85
Height=21
Strings=#3:110|3:300|4:1200|4:2400|4:4800|4:9600|5:19200|5:38400|5:57600|6:115200|6:230400|6:460800|6:921600|
}
Add(ComboBox,1051450,455,161)
{
Left=60
Top=5
Height=21
Strings=#4:COM1|4:COM2|4:COM3|4:COM4|4:COM5|4:COM6|4:COM7|4:COM8|4:COM9|
}
Add(Memo,3146119,525,294)
{
Left=5
Top=35
Width=510
Height=415
}
Add(Button,6201115,322,294)
{
Left=5
Top=470
link(onClick,10115507:doOpen,[])
}
Add(HubEx,15993189,490,287)
{
link(onEvent,3146119:doAdd,[])
}
Add(Edit,15228109,322,350)
{
Left=70
Top=470
Width=445
Text=""
link(onEnter,10115507:doWrite,[(384,363)(384,321)])
}
Add(EventFromData,14326443,413,238)
{
link(onEvent,7211169:doDelete,[])
}
Add(Delete,7211169,462,238)
{
Count=3
link(onDelete,14326443:doData,[(506,244)(506,232)(401,232)(401,244)])
link(Str,1051450:String,[])
}

карма: 22

0