Имя: Пароль:
1C
1C 7.7
v7: ICQ как изменить кодировку в DushelovICQ
0 sysadminlk
 
14.10.14
16:15
Раньше работала нормально, последний месяц что-то случилось с кодировкой
теперь вот так: https://yadi.sk/i/SxwJmheKbzq8C
                ПодключитьВнешнююКомпоненту("AddIn.DushelovICQ");
icq = СоздатьОбъект("AddIn.DushelovICQ");
icq.Соединиться(СокрЛП("login.icq.com"), "5190", СокрЛП("ххххххх"), СокрЛП("ххххххх"));

отсылаю так
Процедура ОбработкаВнешнегоСобытия(Источник, Событие, Данные)
    //ОбработакаICQ
    
    Сообщить("Источник->"+Источник+"    Событие->"+Событие+"    Данные->"+Данные+"");
    
    Если Событие = "КлиентСтатус" Тогда
        icqСтатус = Данные;
        Если icqСтатус = "Online" Тогда
            Сообщить("!!!!!!!!!!!!!!!!!!!!   ICQ подключено.   !!!!!!!!!!!!!!!!!!!!","i");
            СправСотрудн = СоздатьОбъект("Справочник.Сотрудники");
            СправСотрудн.ВыбратьЭлементы();
            Пока СправСотрудн.ПолучитьЭлемент() = 1 Цикл
                Если (СправСотрудн.ICQ = 0) или (СправСотрудн.ПометкаУдаления() = 1) Тогда
                    Продолжить;
                КонецЕсли;
                Сообщить("ICQ: "+СправСотрудн.ICQ+"");
                icq.ОтослатьСообщение("База уже загрузилась и готова к работе.
                |"+Формат(ТекущаяДата() ,"Д ДДММММГГГГ")+" "+ТекущееВремя()+"", СокрЛП(Строка(СправСотрудн.ICQ)));
            КонецЦикла;
        КонецЕсли;