Вверх ↑
Ответов: 11
Рейтинг: 0
#1: 2017-02-01 08:40:09 ЛС | профиль | цитата
В Win7 работает без проблем, а запускаю в XP-через некоторое время выскакивает окно с "runtime error 216...." много штук, что интересно-в ХР обновляю прогу через меню программы-в конце тоже runtime error 216 выходит. Как можно это исправить?

Add(MainForm,2953706,56,49)
{
Width=171
Height=142
Cursor=9
Caption="T"
BorderStyle=1
DragForm=0
Position=1
Point(onClose)
Point(Handle)
link(onDeactivate,12834681:doPopup,[(100,62)(100,146)])
link(onCreate,14753881:doOpen,[(212,69)(212,146)])
link(onClose,14753881:doClose,[(212,76)(212,153)])
}
Add(WinTools,12834681,112,133)
{
link(Handle,2953706:Handle,[(118,107)(62,107)])
}
Add(MMTimer,8829228,77,196)
{
@Hint=#19:Период опроса порта|
Interval=1500
link(onTimer,3324:doEvent1,[])
AddHint(-56,59,124,13,@Hint)
}
Add(DoData,5704331,287,189)
{
@Hint=#27:Сколько байт нужно получить|
Data=Integer(25)
link(onEventData,14753881:doRead,[(327,195)(327,174)])
AddHint(-72,96,166,13,@Hint)
}
Add(COM,14753881,336,140)
{
@Hint=#22:Задать параметры порта|
Port=6
link(onRead,5289639:doCopy,[])
AddHint(-60,-49,143,13,@Hint)
}
Add(Label,5752282,490,147)
{
Left=10
Top=15
Width=80
Height=45
Font=[MS Sans Serif,24,1,16711680,1]
Caption=""
}
Add(Copy,5289639,406,147)
{
Count=7
link(onCopy,5752282:doText,[])
}
Add(DoData,36895,217,154)
{
Data=Integer(7)
link(onEventData,14753881:doWrite,[(293,160)(293,167)])
}
Add(Hub,3324,168,196)
{
link(onEvent1,36895:doData,[(200,202)(200,160)])
link(onEvent2,5704331:doData,[(234,209)(234,195)])
}
Add(Label,9930031,147,28)
{
Left=115
Top=15
Width=38
Height=41
Font=[MS Sans Serif,24,0,16711680,1]
Caption="°C"
}
Add(Time,11029998,343,21)
{
Format=" h:m:s"
}
Add(Label,9603845,343,77)
{
Left=5
Top=65
Width=185
Height=65
Font=[MS Sans Serif,24,1,255,1]
link(Text,11029998:FormatTime,[])
}
Add(Timer,10957269,280,70)
{
link(onTimer,9603845:doText,[(328,76)(328,83)])
}


карма: 1

0
Редактировалось 2 раз(а), последний 2017-02-01 08:42:45