ICQ для 1С (v1.0.0.0)
Данная компонента пока умеет только получить и отправлять сообщения.
Скачать http://dushelov.ru/1c/Icq1C.zip
Для работы компоненты потребуется установленный Microsoft .NET Framework 2.0, который можно скачать отсюда.
http://www.microsoft.com/downloads/d...d-aab15c5e04f5
и зарегистрировать компоненту в Windows - запустить reg.bat
Приложен демо-пример на 1С 8.0 в папке V8
Как пользоваться (1С 8.0, на 7.7 аналогично):
---
Инициализация компоненты:
ИмяВК="AddIn.DushelovICQ";
Попытка
ПодключитьВнешнююКомпоненту(ИмяВК);
Исключение
Предупреждение("Не удалось подключить компоненту "+ИмяВК);
КонецПопытки;
Попытка
icq = Новый(ИмяВК);
Исключение
Предупреждение("Ошибка создания объекта внешней компоненты: "+ ИмяВК);
КонецПопытки;
---
Обработка внешнего события:
Процедура ВнешнееСобытие(Источник, Событие, Данные)
Если Источник = "DushelovICQ" Тогда
Если Событие = "Сообщение" Тогда
//Данные - текст входящего сообщения
Иначе
//Данные - текст состояние-сообщения
КонецЕсли;
КонецЕсли;
КонецПроцедуры
---
Соединиться с сервером:
icq.Сервер = Сервер;
icq.НомерICQ = НомерICQ;
icq.Пароль = Пароль;
icq.Соединиться();
---
Отсоединиться от сервера:
icq.Отсоединиться();
---
Отослать сообщение:
icq.НомерICQАдресата = НомерICQПользователя;
icq.Сообщение = ТекстСообщения;
icq.ОтослатьСообщение();