1С 7.x : Как загрузить внешнюю компоненту?

 Попытка 

	ЗагрузитьВнешнююКомпоненту("scanopos.dll") 

Исключение 

	Сообщить("Ошибка загрузки внешней компоненты!"); 

КонецПопытки; 



Попытка 

	// Получить объект компоненты. 

	Объект = Новый("AddIn.Scanner"); 



Исключение 

	Сообщить("Не удалось создать объект внешней компоненты"); 

КонецПопытки;    

 //в качестве аргумента "Значение" в функцию передаётся имя файла внешней компоненты

//функция возвращает "1", если загрузка выполнена успешно, или "0", если внешнюю компоненту загрузить не получилось

Функция гВнешняяКомпонента_Загрузить(Значение) Экспорт

     Состояние("Загрузка компоненты: "+Значение);

     Если ЗагрузитьВнешнююКомпоненту(Значение)=1 Тогда

          Возврат(1);

     Иначе

          Сообщить("Ошибка при загрузке компоненты: "+Значение,"!");

          Возврат(0);

     КонецЕсли;

КонецФункции



//этот код можно разместить в локальном модуле, в котором требуется использовать внешнюю компоненту

Если гВнешняяКомпонента_Загрузить("v7plus.dll")=0 Тогда

     Возврат;

КонецЕсли;

 имяф="e:\Events\Events.dll";

    Если фс.СуществуетФайл(имяф)=0 Тогда

        Сообщить("Файл не найден: "+имяф,"!"); 

    КонецЕсли;    

    Если ЗагрузитьВнешнююКомпоненту(имяф)=0 Тогда

        Сообщить("Ошибка загрузки внешней компоненты: "+имяф);

    КонецЕсли;    

    vk=СоздатьОбъект("Addin.Events");