Объясню...
С одной программки(сервер) на другую (клиент) отправляется команда "timer".
(в клиенте) проверяется условием верность команды и если верно, то происходит событие... А тут самое интересное...
Так вот, если точку с этого события соединить с сообщением, то сообщение вызывается(Событие сработало), НО стоит вместо сообщения поставить таймер, и таймер не реагирует, будто события и нет(событие не сработало).
вот, так называемые Клиент --->
Add(MainForm,2953706,210,84){
Width=163
Height=143
link(onCreate,14321483:doWork2,[(268,104)(268,139)])
}
Add(Button,13153236,210,119)
{
Left=5
Top=5
Width=135
Caption="Обновить"
link(onClick,14321483:doWork3,[(298,125)])
}
Add(HubEx,14321483,294,133)
{
link(onEvent,10615526:doIPByHost,[(358,139)(358,244)])
}
Add(Message,4207667,469,301)
{
Message="Подключился!"
}
Add(If_else,8057777,476,238)
{
Op2=String(time)
link(onTrue,10959482:doMessage,[])
}
Add(MultiElementEx,10615526,413,238)
{
@Hint=#14:создает сервер|
link(onCharset,8057777:doCompare,[])
link(onEvent2,4207667:doMessage,[(457,251)(457,307)])
}
BEGIN_SDK
Add(EditMultiEx,11835314,21,21)
{
WorkCount=#27:doIPByHost=Запустить сервер|21:doEvent1=Прием команд|
EventCount=#23:onCharset=Ответ клиента|51:onEvent2=Событие происходит при подключении сервера|
Width=377
Height=361
link(doIPByHost,3791480:doIPByHost,[(133,27)(133,111)])
link(doEvent1,8781006:doEvent1,[(35,34)(35,251)])
}
Add(JB_Base,5158155,294,98)
{
Name="MyJabb"
JID="serverCOD3@jabber.ru"
Password="1q2w3e4r5t"
}
Add(Host,3791480,245,98)
{
link(onIPByHost,5158155:doConnect,[(286,111)(286,104)])
link(HostName,9433886:Value,[])
}
Add(Memory,9433886,252,42)
{
Default=String(jabber.ru)
}
Add(Charset,5132786,119,252)
{
Type=6
link(onCharset,5107190:doSend,[])
link(Text,768410:Value,[])
}
Add(JB_Messages,5107190,182,252)
{
Jabber="MyJabb"
link(onReceive,8773249:doString,[])
link(JID,13465507:Value,[])
}
Add(Charset,13390722,294,252)
{
Type=7
link(onCharset,11835314:onCharset,[(362,258)(362,27)])
}
Add(FormatStr,8773249,231,259)
{
Mask="%2"
link(onFString,13390722:doCharset,[(277,265)(277,258)])
}
Add(JB_RosterList,10488521,84,315)
{
Jabber="MyJabb"
link(onContact,12817941:doCompare,[])
}
Add(If_else,12817941,154,315)
{
Op2=String(code:CONNECT)
link(onTrue,11835314:onEvent2,[(292,321)(292,34)])
}
Add(Memory,13465507,182,203)
{
Default=String(serverCOD3@jabber.ru)
}
Add(Hub,8781006,49,245)
{
link(onEvent1,768410:doValue,[(91,251)(91,181)])
link(onEvent2,5132786:doCharset,[])
}
Add(Memory,768410,119,175)
{
}
END_SDK
Add(Message,10959482,539,238)
{
link(onMessage,8489737:doTimer,[])
}
Add(MultiElementEx,8489737,637,238)
{
@Hint=#6:Таймер|
}
BEGIN_SDK
Add(EditMultiEx,11086683,21,21)
{
WorkCount=#28:doTimer=Наченает скан дисков|
EventCount=#89:onEventData=Событие происходит всякий раз при нахождении диска и выдает его букву в поток|12:onErr=Ошибка|
Width=314
Height=186
link(doTimer,3375649:doTimer,[(35,27)(35,132)])
}
Add(Timer,3375649,175,126)
{
Interval=0
Enable=1
Point(onStop)
link(onTimer,2026895:doMessage,[])
}
Add(Message,2026895,231,126)
{
}
END_SDK
Add(MainForm,2953706,28,84)
{
Width=562
Height=167
link(onCreate,5661670:doWork2,[])
}
Add(Button,13153236,28,119)
{
Left=5
Top=5
Width=135
Caption="Обновить"
link(onClick,5661670:doWork3,[(102,125)])
}
Add(HubEx,5661670,98,98)
{
link(onEvent,10615526:doIPByHost,[])
}
Add(DoData,3419945,84,168)
{
Data=String(time)
link(onEventData,10615526:doEvent1,[(124,174)(124,111)])
}
Add(Message,9105390,252,105)
{
Message="Подключился!"
}
Add(MultiElementEx,10615526,133,98)
{
@Hint=#14:создает сервер|
link(onCharset,9083508:doMessage,[(205,104)(205,62)])
link(onEvent2,1574478:doEvent1,[])
}
BEGIN_SDK
Add(EditMultiEx,11835314,21,21)
{
WorkCount=#27:doIPByHost=Запустить сервер|21:doEvent1=Прием команд|
EventCount=#23:onCharset=Ответ клиента|51:onEvent2=Событие происходит при подключении сервера|
Width=377
Height=361
link(doIPByHost,3791480:doIPByHost,[(133,27)(133,111)])
link(doEvent1,8781006:doEvent1,[(35,34)(35,251)])
}
Add(JB_Base,5158155,294,98)
{
Name="MyJabb"
JID="testfree@jabber.ru"
Password="1q2w3e4r5t"
}
Add(Host,3791480,245,98)
{
link(onIPByHost,5158155:doConnect,[(286,111)(286,104)])
link(HostName,9433886:Value,[])
}
Add(Memory,9433886,252,42)
{
Default=String(jabber.ru)
}
Add(Charset,5132786,119,252)
{
Type=6
link(onCharset,5107190:doSend,[])
link(Text,768410:Value,[])
}
Add(JB_Messages,5107190,182,252)
{
Jabber="MyJabb"
link(onReceive,8773249:doString,[])
link(JID,13465507:Value,[])
}
Add(Charset,13390722,294,252)
{
Type=7
link(onCharset,11835314:onCharset,[(362,258)(362,27)])
}
Add(FormatStr,8773249,231,259)
{
Mask="%2"
link(onFString,13390722:doCharset,[(277,265)(277,258)])
}
Add(JB_RosterList,10488521,84,315)
{
Jabber="MyJabb"
link(onContact,12817941:doCompare,[])
}
Add(If_else,12817941,154,315)
{
Op2=String(code:CONNECT)
link(onTrue,11835314:onEvent2,[(292,321)(292,34)])
}
Add(Memory,13465507,182,203)
{
Default=String(serverCOD3@jabber.ru)
}
Add(Hub,8781006,49,245)
{
link(onEvent1,768410:doValue,[(91,251)(91,181)])
link(onEvent2,5132786:doCharset,[])
}
Add(Memory,768410,119,175)
{
}
END_SDK
Add(Hub,1574478,196,105)
{
link(onEvent1,9105390:doMessage,[])
link(onEvent2,3419945:doData,[(222,118)(222,146)(72,146)(72,174)])
}
Add(Message,9083508,245,56)
{
}
Хоть бы взять и Минимум, Вы под компонент Jabber подстроились, значит и под всё остальное подстроитесь, не вы первый, не я последний 
Поиск
Друзья
Администрация