Всем привет, есть обработка, захватывает изображение с вебки и передает снимок на форму.

Процедура КнопкаВыполнитьНажатие(Кнопка)
   TempИмя = ПолучитьИмяВременногоФайла("jpg");
   Для К = 1 По DeviceCount Цикл
       Если oDevice[к-1] <> Неопределено Тогда
           Item = oDevice[к-1].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");
           Image = Item.Transfer("{557CF401-1A04-11D3-9A73-0000F81EF32E}");
           Image.Height = 1024;
           Image.Width = 1240;
           Image.SaveFile(TempИмя);
           Картинка = Новый Картинка(TempИмя);
           УдалитьФайлы(TempИмя);
       КонецЕсли;
   КонецЦикла;
   Если Не Картинка = Неопределено Тогда    
       ЭлементыФормы.ПолеКартинки1.Картинка = Картинка;
   КонецЕсли;
КонецПроцедуры


все вроде бы нормально, за исключением качества фотки
в отладчике смотрел, в свойствах Image.Width стоит 640, а в Image.Height стоит 480, вопрос:

как изменить эти значения на 1024 и 1280? пробывал

Image.Height = 1024;
Image.Width = 1240;

выдает ошибку "Поле объекта не доступно для записи".

как решить проблему? может кто нибудь сталкивался?

можт вебка не способна на такое разрешение?

способна, в настройках вебки можно ставить такое разрешение, она даже фоткает нормально, а в 1С почему то передает картинку с таким разрешением.. + проверял на трех вебках

(2) а  в файле какая картинка лежит?

(3) вплане какая?

(4) С каким разрешением

+(5) То есть у тебя вебка фотает сохраняет в файл а затем на форму пихает. Где тебя качество не устраивает уже на форме или в файле?

(5) я запускаю обработку, при нажатии на кнопку выполнить вебка фоткает.  на строке Image.SaveFile(TempИмя);
она сохраняет изображние TEMP с расширением 640 на 480.

нужно что бы сохранялось расширение 1024 на 1280 .. что то не канает(

(6) качесво не утраивает и там и там, но если сам файл будет создаваться с нужным разрешением, то соответственно и на форме он то же будет норм

(7) 1с здесь не при чем, рой доку тому Execute что ты для устройства выполняешь.

(9) вот я и интересуюсь что мб кто нибудь сталкивался с такой проблемой

(10) MSDN тебе в помощь.

(11) хехе))

Пошукай в реестре свойства ключа {557CF401-1A04-11D3-9A73-0000F81EF32E}. Может там разрешение кадра устанавливается?

(13) нету такого ключЧа

ну и что граждане никто не работал с WIA.ImageProcess ??

ну или с WIA.DeviceManager

Item = oDevice[к-1].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");
Image = Item.Transfer("{557CF401-1A04-11D3-9A73-0000F81EF32E}");

ОбрабИзобр = Новый COMОбъект("Wia.ImageProcess");
ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Scale").FilterID);
ОбрабИзобр.Filters(1).Properties("MaximumWidth").Value = 1240;
ОбрабИзобр.Filters(1).Properties("MaximumHeight").Value = 1240;    
ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Convert").FilterID);    
ОбрабИзобр.Filters(2).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}";
ОбрабИзобр.Filters(2).Properties("Quality").Value = 85;
   
Изображение = ОбрабИзобр.Apply(Image);
Изображение.SaveFile(TempИмя);
Картинка = Новый Картинка(TempИмя);


Примерно так.

хм интересно, я тут что то похожее накопал, но вроде не так, ща гляну, скажу

(17) свойства меняются, но картинка всеравно поганово качества(

у меня примерно такой же код раздобыл, тока чуть по другому

Item = oDevice[к-1].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");
           Image = Item.Transfer("{557CF401-1A04-11D3-9A73-0000F81EF32E}");
           
           
           Image.SaveFile(TempИмя);
           
           Проба = Новый COMОбъект("WIA.ImageFile");
           Проба.LoadFile(TempИмя);
           ДляОбработки = Новый COMОбъект("WIA.ImageProcess");
           ID=ДляОбработки.FilterInfos("Scale").FilterID;
           ДляОбработки.Filters.Add(ID);
           ДляОбработки.Filters.Item(1).Properties.Item(1).Value = 1200;
           ДляОбработки.Filters.Item(1).Properties.Item(2).Value = 1600;
            Проба = ДляОбработки.Apply(Проба);
             ПутьНовый = TempИмя;
            УдалитьФайлы(TempИмя);
           Проба.SaveFile(ПутьНовый);

тут нужно как то менять изображение до его создания, в отладчике смотрел, сначала создается картинка, а потом уже меняется разрешение, ну а естественно из хорошего в плохое можно, а из плохого  в хорошее низя( тут как раз такой случай

(19) Скорее всего в image уже отстой, идёт изображение на минимальных дефолтных настройках.

Вот мой код, полностью рабочий. Получает картинку со сканера.
Процедура ВставитьИзображениеСоСканераНажатие(Элемент)
   ВременныйФайлДляЗагрузки = КаталогВременныхФайлов()+"\tempscan.jpg";
   СканМенеджер = Новый COMОбъект("WIA.DeviceManager");
   ДиалогСканера = Новый COMОбъект("WIA.CommonDialog");

   для каждого СканерСтр из СканМенеджер.DeviceInfos цикл
       если СканерСтр.Type = 1 тогда
           Сканер = СканерСтр.Connect();
           Прервать;
       КонецЕсли;
   КонецЦикла;

   Содерж = Сканер.Items.Item(1);
   Свойства = Содерж.Properties;
   для каждого СтрСв из Свойства цикл
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6147" тогда
           СтрСв.Value = 300;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6148" тогда
           СтрСв.Value = 300;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6149" тогда
           СтрСв.Value = 0;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6150" тогда
           СтрСв.Value = 0;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6151" тогда
           СтрСв.Value = СтрСв.SubTypeMax;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6152" тогда
           СтрСв.Value = СтрСв.SubTypeMax;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6146" тогда
           СтрСв.Value = 1;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6154" тогда
           //СтрСв.Value = 20;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "6155" тогда
           СтрСв.Value = 30;
       КонецЕсли;
       если Формат(СтрСв.PropertyID,"ЧГ=0") = "4103" тогда
           СтрСв.Value = 0;
       КонецЕсли;
       
   КонецЦикла;
   imageFile = ДиалогСканера.ShowTransfer(Содерж);
   
   ОбрабИзобр = Новый COMОбъект("Wia.ImageProcess");
   ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Scale").FilterID);
   ОбрабИзобр.Filters(1).Properties("MaximumWidth").Value = 1123;
   ОбрабИзобр.Filters(1).Properties("MaximumHeight").Value = 1123;    
   ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Convert").FilterID);    
   ОбрабИзобр.Filters(2).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}";
   ОбрабИзобр.Filters(2).Properties("Quality").Value = 85;
   
   Изображение = ОбрабИзобр.Apply(imageFile);
   Изображение.SaveFile(ВременныйФайлДляЗагрузки);
   
   ВыбранноеИзображение = Новый Картинка(ВременныйФайлДляЗагрузки, Ложь);
   НовСтр = ИзображенияРег.Добавить();
   НовСтр.Хранилище = Новый ХранилищеЗначения(ВыбранноеИзображение, Новый СжатиеДанных);
   УдалитьФайлы(ВременныйФайлДляЗагрузки);
КонецПроцедуры

(19)  я то же так думаю.. а есть какие нибудь варианты перехвата изображения?


самое интересное что прогу логите4 не ставил, было качество 640х480, поставил прогу стало 320 на 240 (( нужно как минимум 1024 на 1400(( а в самой прогеще интереснее делал увеличение на максимум, код цепплял настройки и передавал как надо, но вот ставлю настройки разрешения - не цепляет(

(22) но вот это по сути то что ты и написал в (17)

(24) В (22) полностью. Поиск и подключение к сканеру, установка настроек, получение изображения.
Попробуй, только для вебки нужно СканерСтр.Type = 1 поменять на другой тип.

еще кстате, я код полностью понмаю, кроме этогго

Item = oDevice[к-1].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");

что это значит?

(25) ок, ща попробую

(25) блин, че т код не подогнать, тип вебки 3

подогнал,  зараза, в имэйдж файл уже передается 240 на 320, блин, хрень какая то ((((

хотя один плюс) твой код работает быстрее)

закладочко

(31) хехе_)

Люди... )) есть кто еще живой?)))

(33) Я уже не знаю, чем помочь. У меня со сканерами всё пашет. С разными, Epson и какое то МФУ Canon

(34) спасиб)

я сам день и пол ночи ковырялся, результат нулевой.. нужно как то изменять свойства картинки до ее создания..

еще меня смущает строчка

Item = oDevice[к-1].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");

(35) Судя по http://msdn.microsoft.com/en-us/library/ms630829(VS.85).aspx
значит дать устройству команду снять изображение.

тогда код



   TempИмя = ПолучитьИмяВременногоФайла("jpg");
   
   Для К = 1 По DeviceCount Цикл
       Если oDevice[к-1] <> Неопределено Тогда
           
Item = oDevice[к-1].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");
Image = Item.Transfer("{557CF401-1A04-11D3-9A73-0000F81EF32E}");
ОбрабИзобр = Новый COMОбъект("Wia.ImageProcess");
ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Scale").FilterID);
ОбрабИзобр.Filters(1).Properties("MaximumWidth").Value = 1240;
ОбрабИзобр.Filters(1).Properties("MaximumHeight").Value = 1240;    
ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Convert").FilterID);    
ОбрабИзобр.Filters(2).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}";
ОбрабИзобр.Filters(2).Properties("Quality").Value = 85;

   
Изображение = ОбрабИзобр.Apply(Image);
Изображение.SaveFile(TempИмя);
Картинка = Новый Картинка(TempИмя);
           
           
           Картинка = Новый Картинка(TempИмя);
           УдалитьФайлы(TempИмя);
       КонецЕсли;
   КонецЦикла;
   
   Если Не Картинка = Неопределено Тогда
       
       ЭлементыФормы.ПолеКартинки1.Картинка = Картинка;
       
   КонецЕсли;


верный.. вроде бы

изображение  создается в jpg, затем снимается с камеры, задаются его свойства,затем сохраняется..

вот весь код обработки: может еще где косяк.. на форме одна картинка, в котоорую при нажатии на выполнить и передается изображение


Перем oDevice;
Перем DeviceCount;
Процедура КнопкаВыполнитьНажатие(Кнопка)
   TempИмя = ПолучитьИмяВременногоФайла("jpg");
   Для К = 1 По DeviceCount Цикл
       Если oDevice[к-1] <> Неопределено Тогда
Item = oDevice[к-1].ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");
Image = Item.Transfer("{557CF401-1A04-11D3-9A73-0000F81EF32E}");
ОбрабИзобр = Новый COMОбъект("Wia.ImageProcess");
ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Scale").FilterID);
ОбрабИзобр.Filters(1).Properties("MaximumWidth").Value = 1240;
ОбрабИзобр.Filters(1).Properties("MaximumHeight").Value = 1240;    
ОбрабИзобр.Filters.Add(ОбрабИзобр.FilterInfos("Convert").FilterID);    
ОбрабИзобр.Filters(2).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}";
ОбрабИзобр.Filters(2).Properties("Quality").Value = 85;  
Изображение = ОбрабИзобр.Apply(Image);
Изображение.SaveFile(TempИмя);
Картинка = Новый Картинка(TempИмя);            
           Картинка = Новый Картинка(TempИмя);
           УдалитьФайлы(TempИмя);
       КонецЕсли;
   КонецЦикла;
   Если Не Картинка = Неопределено Тогда    
       ЭлементыФормы.ПолеКартинки1.Картинка = Картинка;    
   КонецЕсли;
КонецПроцедуры




Процедура ПриОткрытии()
   Попытка    
       Device = Новый COMОбъект("WIA.DeviceManager");
   Исключение
       //ОбщегоНазначения.СообщитьОбОшибке("Не установлена компонента WIA!");
       Сообщить("Не установлена компонента WIA!");
       Возврат
   КонецПопытки;
   DeviceCount = Device.DeviceInfos.Count;
   Если DeviceCount > 0 Тогда
       oDevice = Новый Массив(DeviceCount);
       Для К=1 По DeviceCount Цикл
           Если Device.DeviceInfos(к).Type = 3 Тогда
               Попытка
                   oDevice[к-1] = Device.DeviceInfos(к).Connect();
               Исключение
                   oDevice[к-1] = Неопределено;
               КонецПопытки;
           Иначе
               oDevice[к-1] = Неопределено;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;
   
КонецПроцедуры

(39) Так после того как сделал Connect(), выставь параметры.
Содерж = oDevice[к-1].Items.Item(1);
   Свойства = Содерж.Properties;
   для каждого СтрСв из Свойства цикл
и так далее

(40) непонимаю(

обновение..)

+(42)

+(43)

up

Ну что "ап"? Поставь Properties после коннекта

(46) да ужо ставил) все уже перепробывал, пришел к выводу Захват изображения с web камеры

Решал (и решил) задачку для медицины для двух разных камер...
Давайте по-порядку:
1. У каждой камеры есть документация. В ней сказано, в каком формате, какого разрешения и при каких условиях можно получить кадр изображения.
Если нужное разрешение "как минимум 1024 на 1400" в jpg прописано - то едем дальше.
2. Как правило к каждой камере прилагается программа, ее тестирующая. Если с ее помощью нужный результат достигается, то задачка заведомо решается. Существуют "универсальные" программы, опрашивающие Web-камеры. (На случай отсутствия родной). Если результат устраивает (удалось на диск сохранить нужный кадр), движемся дальше.
3. Далее - альтернатива: пытаться на 1с ваять считывание кадра и его обработку, или возложить задачу считывания нужного изображения на стороннюю программу.
(Думаю, обработка оного в 1с примерна такая же как скажем на Delphi, то есть не чрезмерно сложна).
4. По ряду причин, в частности из-за необходимости обработки кадра, я считывал кадр с помощью программки на C++ (Хотя делал варианты и на Delphi и на Sharp и на Java). Для этого посылал команду типа "дай кадр" поверх http через сокет. Параметры самой камеры были ЗАРАНЕЕ настроены и размер кадра более не менялся. Ничто не мешает полученный кадр сохранить на диск и тд.
5. В любом случае, не проделав 1 и 2 пункты, опираться не на что.
6. Чтобы поменять параметры кадра и тп. для камер нужно было послать КОМАНДУ на камеру. Тогда с камеры можно было считать другой Jpg (с другими параметрами). Изменение кадра путем изменения Image-приемника в 1с напрямую "не прокатит".
7. Коротко говоря, настраивать нужно web-камеру для нужного jpg. Считывать его по "команде" в СОГЛАСОВАННЫЙ объект (Device) и выводить на экран в СОГЛАСОВАННЫЙ Image. Параметры Device видимо записываются в соответствующем ключе в реестре. Параметры объекта Image - при его создании.

закладка

всем спс, нашел другой способ, с помощью компоненты Душелова)

но появилась новая проблема, кто нибудь сталкивался, какубрать окно настроек при старте обработки?