Сканирование изображений в 1С:УПП 1.3

   
Изобр = Новый COMОбъект("WIA.ImageFile");
    СканДиалог = Новый COMОбъект("WIA.CommonDialog");
    Попытка
        Изобр = СканДиалог.ShowAcquireImage();
        
        Фильтр = Новый COMОбъект("WIA.ImageProcess");
        Фильтр.Filters.Add(Фильтр.FilterInfos("Convert").FilterID);
        ФильтрПНГ = Фильтр.Filters(1);
        Для Инд = 1 По ФильтрПНГ.Properties.Count Цикл
            Если ФильтрПНГ.Properties(Инд).Name = "FormatID" Тогда
                ФильтрПНГ.Properties(Инд).Value = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}";
                Прервать;
            КонецЕсли;
        КонецЦикла;
        
        Изобр = Фильтр.Apply(Изобр);
        
        //УдалитьФайлы(ИмяФайла);

        Изобр.SaveFile(ИмяФайла);
        Возврат Истина;
    Исключение
        Предупреждение("Неудачная попытка сканирования сертификата: "+ОписаниеОшибки());
        Возврат Ложь;
    КонецПопытки;