Установка сканера изображения

Процедура ПолучитьФотоНажатие(Элемент)
	// Вставить содержимое обработчика.
	Если Не РаботаСДиалогами.ЗаписатьНовыйОбъектВФорме(ЭтаФорма) Тогда
		Возврат;
	КонецЕсли;
	УниверсальныеМеханизмы.ОткрытьФормуИзображенияСкан(ЭтаФорма, ОсновноеИзображение, Ссылка);
КонецПроцедуры

//Общий модуль "УниверсальныеМеханизмы"
// Открывает форму основного изображения объекта (если картинки нет, получаем со сканера)
//
// Параметры
//  ФормаВладелец – Форма – определяет форму владельца открываемой формы
//  ОсновноеИзображение – СправочникСсылка.ХранилищеДополнительнойИнформации – содержит 
//                 ссылку на основное изображение объеата
//
Процедура ОткрытьФормуИзображенияСкан(ФормаВладелец, ОсновноеИзображение, ОбъектВладелец) Экспорт
	
	ИмяФайла="C:\temp\DelFoto.jpg";
	ВыбФайл=Новый Файл(ИмяФайла);
	
	Сканировать=Истина;
	Если НЕ ((ОсновноеИзображение = Неопределено) ИЛИ ОсновноеИзображение.Пустая()) Тогда
		Если Вопрос("Изображение уже существует. Заменить новым?",РежимДиалогаВопрос.ДаНет,5,КодВозвратаДиалога.Нет)=КодВозвратаДиалога.Да	
		Тогда
			Сканировать=Истина;
		Иначе 
		    Сканировать=Ложь; 
		КонецЕсли;
	КонецЕсли; 
	
	Если Сканировать тогда			
    	//Имя файла куда сканируем
		//Проверим не остался ли он на винте от предыдущего сканирования
		Если ВыбФайл.Существует() тогда
			Попытка
				//Удалим если остался
				УдалитьФайлы(ВыбФайл.Путь,ВыбФайл.Имя); 
			Исключение
    			Сообщить(ОписаниеОшибки());
			КонецПопытки;
		КонецЕсли;
    	//Попробуем получить изображение со сканера
		Попытка
			ЗагрузитьВнешнююКомпоненту("sp.dll");
    		Сообщить("Компонента для сканера загружена");
			СканВК=Новый("Addin.ScanPrint");
						СканВК.Сканировать(ИмяФайла,1,70);
		Исключение
    		Сообщить("Компонента для сканера не загружена");
			Возврат;
		КонецПопытки;
		
		//Если файл создался то начнем его пихать в базу
		Если ВыбФайл.Существует() тогда
				ВыбранноеИзображение = Новый Картинка(ВыбФайл.ПолноеИмя, Ложь);
		Иначе
			Сообщить("Сканирование прервано или отменено.");
			Возврат;
		КонецЕсли;
		НовыйОбъект = Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент();
		НовыйОбъект.ВидДанных = Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение;
		НовыйОбъект.Хранилище = Новый ХранилищеЗначения(ВыбранноеИзображение, Новый СжатиеДанных);
		НовыйОбъект.Объект = ОбъектВладелец;
		//
		НовыйОбъект.Записать();
		//
		ФормаИзображения = НовыйОбъект.ПолучитьФорму("ФормаИзображения");
		
	Иначе 
		ФормаИзображения = ОсновноеИзображение.ПолучитьФорму("ФормаИзображения");		
	КонецЕсли;
	
	ФормаИзображения.ВладелецФормы = ФормаВладелец;
	ФормаИзображения.РежимВыбора = Истина;
	ФормаИзображения.ЗакрыватьПриВыборе = Ложь;
	ФормаИзображения.Открыть();
	
	//Проверим не остался ли он на винте от предыдущего сканирования
	Если ВыбФайл.Существует() тогда
		Попытка
			//Удалим если остался
			УдалитьФайлы(ВыбФайл.Путь,ВыбФайл.Имя); 
		Исключение
   			Сообщить(ОписаниеОшибки());
		КонецПопытки;
	КонецЕсли;
КонецПроцедуры // ОткрытьФормуИзображения()