koreav

      масРез = Новый Массив;
      
      ScanDialog = Новый COMОбъект("WIA.CommonDialog");
      
      Device = Неопределено;
      DevMan = Новый COMОбъект("WIA.DeviceManager");
      
      НастройкиСканирования = EK_ПолучитьНастройкиСканирования();
      ИмяСохраненногоСканера = НастройкиСканирования.EK_Сканирование_ИмяСканера;
      
      Если ЗначениеЗаполнено(ИмяСохраненногоСканера) Тогда
         Для Ит = 1 по DevMan.DeviceInfos.Count Цикл
            Если DevMan.DeviceInfos(Ит).Properties("Name").Value = ИмяСохраненногоСканера Тогда
               Device = DevMan.DeviceInfos(Ит).Connect();
               Прервать;
            КонецЕсли;
         КонецЦикла;
      КонецЕсли;
      
      Если Device = Неопределено Тогда
         Device = ScanDialog.ShowSelectDevice();
      КонецЕсли;
   
      Если Device = Неопределено Тогда
         Возврат масРез;
      КонецЕсли;
      
      Items1 = ScanDialog.ShowSelectItems(Device);
      Если Items1 = Неопределено Тогда
         Возврат масРез;
      КонецЕсли;
      
      ПотоковоеСканирование = Ложь;
      Если Device.Properties.Exists("3088") Тогда //"Document Handling Select"
         Для Ит = 1 по Device.Properties.Count Цикл
            Если Device.Properties(Ит).PropertyID = 3088
               И Device.Properties(Ит).Value = 1 Тогда // выбран автоподатчик
               
               ПотоковоеСканирование = Истина;
               
            КонецЕсли;
         КонецЦикла;
      КонецЕсли;
      
      Images = Новый Массив;
      Для каждого itm из Items1 Цикл
         
         Если ПотоковоеСканирование Тогда
            
            
            Для Ит = 0 по 25 Цикл
               
               //img2 = Device.GetItem(itm.ItemID);
               
               Попытка
                  Image = ScanDialog.ShowTransfer(itm);
                  Images.add(Image);
               Исключение
                  Прервать;
               КонецПопытки;
            КонецЦикла;
            
         Иначе
            
            Image = ScanDialog.ShowTransfer(itm);
            Images.add(Image);
            
         КонецЕсли;
         
      КонецЦикла;
      
      
      IP = Новый COMОбъект("WIA.ImageProcess");
      IP.Filters.Add(IP.FilterInfos("Convert").FilterID);
      IP1 = IP.Filters(1);
      Для К = 1 По IP1.Properties.Count Цикл
         Если IP1.Properties(К).Name = "FormatID" Тогда
            IP1.Properties(К).Value = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"; //PNG
            Прервать;
         КонецЕсли;
      КонецЦикла;
      
      Для каждого Image из Images Цикл 
         Image = IP.Apply(Image);
         
         ИмяФайла = ПолучитьИмяВременногоФайла("jpg");
         Image.SaveFile(ИмяФайла); //сохраним на жесткий диск объект WIA
         
         масРез.Добавить(ИмяФайла);
      КонецЦикла;
      
      Возврат масРез;

Функция ПолучитьТекстЗапросПоЗаказамORDERNUM(Заказы, Заказчик, Ключ)
   ЗаписьXML = Новый ЗаписьXML;
   ЗаписьXML.УстановитьСтроку();
   //ЗаписьXML.ЗаписатьОбъявлениеXML();
   ЗаписьXML.ЗаписатьНачалоЭлемента("soap:Envelope");
   ЗаписьXML.ЗаписатьАтрибут("xmlns:soap", "http://schemas.xmlsoap.org/soap/envelope/");
   ЗаписьXML.ЗаписатьАтрибут("xmlns:ns0", "http://dpd.ru/ws/order2/2012-04-04");
   ЗаписьXML.ЗаписатьНачалоЭлемента("soap:Header");
   ЗаписьXML.ЗаписатьКонецЭлемента();
   ЗаписьXML.ЗаписатьНачалоЭлемента("soap:Body");
   ЗаписьXML.ЗаписатьНачалоЭлемента("ns0:getOrderStatus");
   ЗаписьXML.ЗаписатьАтрибут("xmlns:xs", "http://www.w3.org/2001/XMLSchema");
   ЗаписьXML.ЗаписатьАтрибут("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance");
   ЗаписьXML.ЗаписатьНачалоЭлемента("orderStatus");
   ЗаписьXML.ЗаписатьНачалоЭлемента("auth");
   ЗаписьXML.ЗаписатьНачалоЭлемента("clientNumber");
   ЗаписьXML.ЗаписатьТекст(Заказчик);
   ЗаписьXML.ЗаписатьКонецЭлемента();
   ЗаписьXML.ЗаписатьНачалоЭлемента("clientKey");
   ЗаписьXML.ЗаписатьТекст(Ключ);
   ЗаписьXML.ЗаписатьКонецЭлемента();
   ЗаписьXML.ЗаписатьКонецЭлемента();
   Для Каждого Заказ Из Заказы Цикл
      ЗаписьXML.ЗаписатьНачалоЭлемента("order");
      ЗаписьXML.ЗаписатьНачалоЭлемента("orderNumberInternal");
      ЗаписьXML.ЗаписатьТекст(Заказ);
      ЗаписьXML.ЗаписатьКонецЭлемента();
      ЗаписьXML.ЗаписатьКонецЭлемента();
   КонецЦикла;
   ЗаписьXML.ЗаписатьКонецЭлемента();
   ЗаписьXML.ЗаписатьКонецЭлемента();
   ЗаписьXML.ЗаписатьКонецЭлемента();
   ЗаписьXML.ЗаписатьКонецЭлемента();
   ТекстXML = ЗаписьXML.Закрыть();
   Возврат ТекстXML;
КонецФункции
Функция ОтправитьЗапросWEBСервису(URL,ТекстXML,Таймаут = 10000)
   Если ПустаяСтрока(ТекстXML) Тогда
      Возврат "";
   КонецЕсли;
   WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   WinHttp.SetTimeouts(Таймаут, Таймаут, Таймаут, Таймаут);
   WinHttp.Option(2,"utf-8");
   WinHttp.Open("POST",URL);
   WinHttp.setRequestHeader("Content-Type","text/xml; charset=utf-8");
   Сообщить("Начало - " + ТекущаяДата());
   Сообщить("URL: " + URL);
   //Сообщить("ТекстXML запроса: " + ТекстXML);
   Попытка
      WinHttp.Send(ТекстXML);
      Сообщить("Завершение - " + ТекущаяДата());
      Если WinHttp.Status = 200 Тогда
         Сообщить("Ответ: " + WinHttp.ResponseText);
         Возврат(WinHttp.ResponseText);
      Иначе
         Сообщить("Ошибка сервера: " + WinHttp.Status + " " + WinHttp.ResponseText + " " + WinHttp.StatusText, СтатусСообщения.Важное);
         Возврат("");
      КонецЕсли;
   Исключение
      Сообщить(ОписаниеОшибки(), СтатусСообщения.Важное);
      Возврат("");
   КонецПопытки;
КонецФункции