Имя: Пароль:
1C
1С v8
JabberCOM.dll
0 pallid
 
26.11.13
16:11
Проблема заключается в том что не могу правильно отловить событие OnMeddage (Msg: IJabberMsg; Tag: IXMLTag), хотя знаю что сообщение есть...
http://jabbercom.sourceforge.net/jsession.php3 - ссылка на документацию

Событие же OnConnect отрабатывает 100%

&НаКлиентеПроцедура СообщитьТекст(Команда)
JS = Новый COMОбъект("JabberCOM.JabberSession");
ДобавитьОбработчик JS.OnConnect, OnConnect;
ДобавитьОбработчик JS.OnMessage, OnMessage;
JS.Server = "jabber.ru";  
JS.Username = Логин;
JS.Password = Пароль;  
JS.Resource = "Script";    
JS.Priority = 1;    
DoConnect = JS.DoConnect(Ложь,0);
Предупреждение("Соединение", 5);

msg = Новый COMОбъект("JabberCOM.JabberMsg");

Предупреждение("Соединение", 5);
msg.MsgType = 0;
msg.Body = "test";
msg.ToJID = "кому@jabber.ru";  
        
JS.SendMessage(msg);       
DoConnect = JS.DoConnect(Истина,0);    
Предупреждение("Выход", 5);
JS.DoDisconnect(Истина);
КонецПроцедуры
/////////////////////////////////////////

Процедура OnMessage(msg,tag)
Сообщить("Что-то пришло...");
КонецПроцедуры

Процедура OnConnect()
Сообщить("Вход");
КонецПроцедуры
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.