WIA ошибка при установке параметра PAGES (VBA). Почему?

Question

KTG @KTG

WIA ошибка при установке параметра PAGES (VBA). Почему?

Sub scan()
    Dim objDM As WIA.DeviceManager
    
        Dim objDev As WIA.Device
        
            Dim objItem As WIA.Item
            Dim objImage As WIA.ImageFile
        
        Dim s As String
        Dim i As Integer
        
        Dim p As Property
       
     Set objDM = New WIA.DeviceManager
     For i = 1 To objDM.DeviceInfos.Count
        If objDM.DeviceInfos(i).Type = 1 Then
          s = objDM.DeviceInfos(i).DeviceID
        End If
     Next
     
     Set objDev = objDM.DeviceInfos(s).Connect
     If objDev Is Nothing Then
        MsgBox ("Error: Not device found")
     Else
        objDev.Properties("Document Handling Select").Value = 1
        objDev.Properties("Pages").Value = 1
        
            Set objItem = objDev.Items(1)
            Set objImage = objItem.Transfer(WIA.FormatID.wiaFormatTIFF)
'            objImage.SaveFile "c:\test\" & ActiveCell.Value & ".TIFF"
            
        Set objItem = Nothing
        Set objImage = Nothing
        Set objDev = Nothing
     End If
     
     Set objDev = Nothing
     Set objDM = Nothing
    
End Sub

На сколько я разобрался, то строка

objDev.Properties("Document Handling Select").Value = 1

отвечает за то, откуда берется бумага и какой тип сканирования. , В данном случае бумагу меня хватает с лотка автоподачи.

Эта же строчка отвечает за количество отсканируемых страниц из лотка.
objDev.Properties("Pages").Value = 1
Если поставить 0, то должен сканировать автоматом все, которые лежат в лотке.
Если 1 - то только 1 лист.

Так вот. Почему-то, при изменении количества страниц
например: objDev.Properties("Pages").Value = 0
Выдает ошибку о неверно заданном параметре и в Debug подсвечитвает следующую строку:

Set objImage = objItem.Transfer(WIA.FormatID.wiaFormatTIFF)

Как быть?
У меня не получается определять наличие бумаги в автоподатчике.
Хотя по идее МФУ это предусматривает, по крайне мере при попытке сканировать и не закладывая бумагу - он об этом сообщает.
Как крайний вариант, оставил себе в запасе решение в цикле, до выхода ошибки OnError.
Но мне кажется, это не совсем правильно.

И да. Почему-то в VBA не работают контстанты, WIA_DPS_PAGES например.

Вопрос задан более трёх лет назад
942 просмотра

4 комментария

Подписаться 2 Оценить 4 комментария

h8nor @honor8

На С-ях так и пишут 'try', так что лучше сразу добавить отлов исключений. Причём проверка нужна даже на этапе If objDM.DeviceInfos.Count < 1 Then Exit Sub т.к. в WinXP этого драйвера нет (прописывал 5.1.2600.1106) или сканер может быть не включён в сеть. Статьи по драйверу.

Написано более трёх лет назад

h8nor @honor8

Есть одна идея. Интересно, какие параметры выводит сканер с автоподачтиком?

Sub Test_p3088_and_p3096()
  Dim CommonDialog1 As New CommonDialog
  Dim dev 'As Device
  Dim p 'As Property
  Dim s As String
  Dim i As Integer
  
  Set dev = CommonDialog1.ShowSelectDevice
  For Each p In dev.Properties
    If p.PropertyID = 3087 Or p.PropertyID = 3088 Or p.PropertyID = 3096 Then
      s = s & p.Name & "(" & p.PropertyID & ") = " & p.Value
      If p.SubType <> UnspecifiedSubType Then
        If p.Value <> p.SubTypeDefault Then
          s = s & "(Default = " & p.SubTypeDefault & ")"
        End If
      End If
      Select Case p.SubType
        Case FlagSubType
          s = s & " [ valid flags include:"
          For i = 1 To p.SubTypeValues.Count
            s = s & p.SubTypeValues(i)
            If i <> p.SubTypeValues.Count Then s = s & ", "
          Next i
          s = s & " ]"
        Case RangeSubType
          s = s & " [ valid values in the range from " & _
            p.SubTypeMin & " to " & p.SubTypeMax & _
            " in increments of " & p.SubTypeStep & " ]"
      End Select
      s = s & vbCr
    End If
  Next p
  Debug.Print s
End Sub

Значения на бюджетном МФУ:

Document Handling Select(3088) = 2 [ valid flags include:2 ]
Pages(3096) = 1 [ valid values in the range from 0 to 100 in increments of 1 ]
Document Handling Status(3087) = 2(Default = 12354) [ valid flags include: ]

Написано более трёх лет назад

KTG @KTG Автор вопроса

Document Handling Select и Status = 3. Pages по умолчанию 1.

Написано более трёх лет назад
KTG @KTG Автор вопроса

Забыл упоямнуть. Мне показалось "адовым" приписки в MSDN к WIA на те или иные параметры, в том числе Handling Status, Select, Pages, где они есть в свойствах сканера DPS, и в свойствах изображения IPS и куча приписок применяемыми ими параметров, которые работают, то только в XP, то только в WIN 7, то в Vista и выше и т.д.

Написано более трёх лет назад

Решения вопроса 1

4 комментария

KTG @KTG Автор вопроса

ну и поясню, что TIFF он делает путем применения фильтров к первой картинке.
Долго мучался по примеру из msdn, пока не додумался вручную проставлять FrameIndex. Без этого работать не хотел.
И да, конвертировать то же обязательно, т.к. формат файла должен поддерживать ту самую многостраничность. По умолчанию сканирует в .bmp

Написано более трёх лет назад
KTG @KTG Автор вопроса

KTG: исправляюсь. FrameIndex проставлять не обязательно. Видимо все же дело было в конвертации. А ручное прописывание индекса вносило сумятицу в очередность страниц.

Написано более трёх лет назад
h8nor @honor8
Красавчик! Если требуются замечания:
Всё же лучше добавить проверку
If objDM.DeviceInfos.Count < 1 Then MsgBox "The scanner is not connected": Exit Sub
У меня МФУ сканирует только в BMP (смотрел в отладчике), поэтому свойство работает как Set objImage = objItem.Transfer.
Написано более трёх лет назад
vasyatky @vasyatky

А к чему отнести ActiveCell.Value?!....да и в один tiff изображения не соединяются

Написано более трёх лет назад

Пригласить эксперта

Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации

Похожие вопросы

JavaScript

+4 ещё

Простой
Что делать, если после залива приложения на VPS страница остается недоступной?
- 1 подписчик
- вчера
- 77 просмотров
1

ответ
C#

+2 ещё

Простой
Как настроить переход по ссылкам?
- 1 подписчик
- 11 апр.
- 62 просмотра
1

ответ
Android

+3 ещё

Простой
Нужно опенсорс приложение для Андройд для ESP32 painless mash?
- 1 подписчик
- 10 апр.
- 74 просмотра
0

ответов
Python

+1 ещё

Простой
Системы для анализа эмоций в видео и автоматической генерации текстовых реакций. Существует ли такое?
- 1 подписчик
- 10 апр.
- 84 просмотра
2

ответа
Программирование

+2 ещё

Простой
Альтернативы SourceTrail?
- 3 подписчика
- 28 мар.
- 222 просмотра
0

ответов
Автоматизация

+1 ещё

Сложный
Zigbee2mqtt как настроить отображение?
- 1 подписчик
- 27 мар.
- 46 просмотров
1

ответ
Python

+3 ещё

Простой
Авторег mail.ru поможете с выбором из выпадающего списка?
- 1 подписчик
- 27 мар.
- 139 просмотров
2

ответа
Windows

+3 ещё

Простой
Есть в Windows API для задания тега Write Combining для моей области памяти?
- нет подписчиков
- 25 мар.
- 79 просмотров
2

ответа
Программирование

Простой
Как сделать на сайте автоматическое открытие другого сайта?
- 1 подписчик
- 24 мар.
- 153 просмотра
1

ответ
Android

+1 ещё

Простой
Как через приложение MacroDroid настроить интент на запуск виджета приложения?
- 1 подписчик
- 23 мар.
- 44 просмотра
0

ответов
Показать ещё Загружается…

Python developer

Bell Integrator

До 350 000 ₽

Разработчик программного обеспечения авионики

Котлин-Новатор • Санкт-Петербург

от 50 000 до 150 000 ₽

Ведущий разработчик программного обеспечения авионики

Котлин-Новатор

от 150 000 до 250 000 ₽

Переделать схему Фиат-Шамира

16 апр. 2024, в 23:34

200 руб./за проект

Установить Windows на Dedicated Server

16 апр. 2024, в 22:49

2500 руб./за проект

YOLO для распознания количества человек в очереди на кассу по видео ряду

16 апр. 2024, в 22:48

5000 руб./за проект

На С-ях так и пишут 'try', так что лучше сразу добавить отлов исключений. Причём проверка нужна даже на этапе If objDM.DeviceInfos.Count < 1 Then Exit Sub т.к. в WinXP этого драйвера нет (прописывал 5.1.2600.1106) или сканер может быть не включён в сеть. Статьи по драйверу.
Есть одна идея. Интересно, какие параметры выводит сканер с автоподачтиком?
Sub Test_p3088_and_p3096() Dim CommonDialog1 As New CommonDialog Dim dev 'As Device Dim p 'As Property Dim s As String Dim i As Integer Set dev = CommonDialog1.ShowSelectDevice For Each p In dev.Properties If p.PropertyID = 3087 Or p.PropertyID = 3088 Or p.PropertyID = 3096 Then s = s & p.Name & "(" & p.PropertyID & ") = " & p.Value If p.SubType <> UnspecifiedSubType Then If p.Value <> p.SubTypeDefault Then s = s & "(Default = " & p.SubTypeDefault & ")" End If End If Select Case p.SubType Case FlagSubType s = s & " [ valid flags include:" For i = 1 To p.SubTypeValues.Count s = s & p.SubTypeValues(i) If i <> p.SubTypeValues.Count Then s = s & ", " Next i s = s & " ]" Case RangeSubType s = s & " [ valid values in the range from " & _ p.SubTypeMin & " to " & p.SubTypeMax & _ " in increments of " & p.SubTypeStep & " ]" End Select s = s & vbCr End If Next p Debug.Print s End Sub
Значения на бюджетном МФУ:
Document Handling Select(3088) = 2 [ valid flags include:2 ]
Pages(3096) = 1 [ valid values in the range from 0 to 100 in increments of 1 ]
Document Handling Status(3087) = 2(Default = 12354) [ valid flags include: ]
Document Handling Select и Status = 3. Pages по умолчанию 1.
Забыл упоямнуть. Мне показалось "адовым" приписки в MSDN к WIA на те или иные параметры, в том числе Handling Status, Select, Pages, где они есть в свойствах сканера DPS, и в свойствах изображения IPS и куча приписок применяемыми ими параметров, которые работают, то только в XP, то только в WIN 7, то в Vista и выше и т.д.

Answer 1 · 2016-11-07 03:34:53

Вот кстати полностью рабочий код, который делает то, что от него требуется.
Сканирует без диалога все листы из автоподатчика, пока не вывалиться ошибка Err.Number -2145320957.
Затем все конвертирует в TIFF и сохраняет в один многостраничный документ.

Sub scan()
    
    Dim objDM As WIA.DeviceManager
    'MsgBox (Split(ActiveCell.Address, "$")(1))
        Dim objDev As WIA.Device
        
            Dim objItem As WIA.Item
            Dim objImage, FirstImage As WIA.ImageFile
            Dim objIP As WIA.ImageProcess
        
        Dim s As String
        Dim i, num As Integer
      
     Set objDM = New WIA.DeviceManager
     For i = 1 To objDM.DeviceInfos.Count
        If objDM.DeviceInfos(i).Type = 1 Then
          s = objDM.DeviceInfos(i).DeviceID
        End If
     Next
     
     Set objDev = objDM.DeviceInfos(s).Connect
     If objDev Is Nothing Then
        MsgBox ("Error: Not device found")
     Else

        objDev.Properties("Document Handling Select").Value = 1
        objDev.Properties("Pages").Value = 1
     
        Set objItem = objDev.Items(1)
     
            Set objImage = New WIA.ImageFile
            Set objIP = New WIA.ImageProcess
            
ScanStart:

        On Error GoTo ScanError
            
            Set objImage = objItem.Transfer("{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}")
            num = num + 1
            If num = 1 Then
                Set FirstImage = objImage
            Else
                objIP.Filters.Add (objIP.FilterInfos("Frame").FilterID)
                objIP.Filters(objIP.Filters.Count).Properties("ImageFile") = objImage
                objIP.Filters(objIP.Filters.Count).Properties("FrameIndex") = objIP.Filters.Count
            End If

        GoTo ScanStart
        
ScanError:

        Select Case Err.Number
            Case -2145320957
                MsgBox ("No More Pages Found")

                objIP.Filters.Add (objIP.FilterInfos("Convert").FilterID)
                objIP.Filters(objIP.Filters.Count).Properties("FormatID") = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
                Set FirstImage = objIP.Apply(FirstImage)
                FirstImage.SaveFile "c:\test\" & ActiveCell.Value & num & ".TIFF"
            Case Else
                MsgBox ("Error: " & Err.Description & "(" & Err.Number & ")")
        End Select
        
        Set FirstImage = Nothing
        Set objItem = Nothing
        Set objImage = Nothing
        Set objDev = Nothing
     End If
     
     Set objDev = Nothing
     Set objDM = Nothing
    
End Sub

WIA ошибка при установке параметра PAGES (VBA). Почему?

Войдите, чтобы написать ответ

Минуточку внимания

Войдите на сайт