ivansaraev
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята помогите переделать код глобального модуля с 7,7 под 8,2
Это код для внешней компоненты позволяющей отслеживать изменения файловой системы
В 1С я новичок, прошу сильно не пинаться, а просто подсказать как код переделать под 1С 8,2
перем vk Экспорт; //переменная для объекта внешней компоненты
Функция глЗагрузитьВнешнююКомпоненту(прм_ИмяВК)
имяф=КаталогИБ()+"DLL\"+прм_ИмяВК+"\"+прм_ИмяВК+".dll";
Если фс.СуществуетФайл(имяф)=0 Тогда
Сообщить("Не обнаружен файл внешней компоненты "+имяф,"!!");
Возврат 0;
КонецЕсли;
Если ЗагрузитьВнешнююКомпоненту(имяф)=0 Тогда
Сообщить("Не удается загрузить внешнюю компоненту "+прм_ИмяВК+".dll","!!");
Сообщить("Первый запуск конфигурации с внешними компонентами должен производиться под правами администратора или привилегированного пользователя операционной системы.","!!");
Возврат 0;
КонецЕсли;
Возврат 1;
КонецФункции // глЗагрузитьВнешнююКомпоненту
///////////////////////////////////////////////////////////////////////
Процедура ПриНачалеРаботыСистемы() //Предопределенная процедура 1С
Если глЗагрузитьВнешнююКомпоненту("vk_ChangeNotification")=0 Тогда
Сообщить("Внешняя компонента не была загружена!","!");
Иначе
vk=СоздатьОбъект("AddIn.vk_ChangeNotification");
КонецЕсли;
Сообщить("При изменении папки c:\, здесь должны появляться события.");
vk.ОтслеживатьПодкаталоги=0;
vk.НачатьКонтрольИзменений("c:\");
КонецПроцедуры
///////////////////////////////////////////////////////////////////////
Процедура ПриЗавершенииРаботыСистемы()
vk.ЗакончитьКонтрольИзменений();
КонецПроцедуры // ПриЗавершенииРаботыСистемы
///////////////////////////////////////////////////////////////////////
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)//Предопределенная процедура 1С
//Глобальный обработчик внешнего события
Сообщить("Внешнее событие: Источник="+Источник+" Событие="+Событие+" Данные="+Данные);
КонецПроцедуры
|
Программы » 
Варезник » 
