Пример 1: // самый простой (с вызовом диалога) (ПримерWIA.ert)
Device = CreateObject("WIA.CommonDialog");
Image = Device.ShowAcquireImage();
Image.SaveFile(Файл);
Пример 2: // делаем снимок как повезет (ПримерWIA.ert)
Device = CreateObject("WIA.DeviceManager");
Количество = Device.DeviceInfos.Count;
Для ин=1 По Количество Цикл
Если Device.DeviceInfos(ин).Type = 3 Тогда // тип устройства (VideoDeviceType)
dev = Device.DeviceInfos(ин).Connect();
Item = dev.ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}"); // сделать снимок (wiaCommandTakePicture)
Image = Item.Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"); // в формат JPG (wiaFormatJPEG)
Image.SaveFile(Файл);
Прервать;
КонецЕсли;
КонецЦикла;
Пример 3: // выводим на форму изображение с камеры (ActiveX), делаем снимок (ПримерWIA2.ert)
Процедура СделатьФото()
Item = АктивИксWIA.Объект.Device.ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}"); // сделать снимок
Image = Item.Transfer("{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"); // в формат JPG (wiaFormatJPEG)
Image.SaveFile(Файл);
КонецПроцедуры
Процедура ПослеОткрытия()
АктивИксWIA = СоздатьОбъект("АктивИкс");
АктивИксWIA.УстановитьАтрибут(Форма, "ФАктивИксWIA");
Device = CreateObject("WIA.DeviceManager");
Количество = Device.DeviceInfos.Count;
Для ин=1 По Количество Цикл
Если Device.DeviceInfos(ин).Type = 3 Тогда // тип устройства (VideoDeviceType)
АктивИксWIA.СоздатьЭУ("WIA.VideoPreview");
АктивИксWIA.Объект.Device=Device.DeviceInfos(ин).Connect();
Прервать;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Вариант ActiveX предпочтительнее тем, что не тратится время на "разогрев" камеры (время на включение, на настройку яркости).
