Ошибка получения образа Windows

Question

Я пытаюсь получить изображение со сканера, используя код ниже

Dim CD As New WIA.CommonDialog
Dim F As WIA.ImageFile = CD.ShowAcquireImage(WIA.WiaDeviceType.UnspecifiedDeviceType)
F.SaveFile("C:\Temp\WIA\" + F.FileExtension)

Но это выдает мне эту ошибку:

Произошло необработанное исключение типа "System.Runtime.InteropServices.COMException" в Test.exe

Дополнительная информация: Ошибка HRESULT E_FAIL была возвращена после вызова компонента COM.

Помогите помогите.

Answer 1

Сначала вам нужно найти сканер, который вы хотите использовать:

    Dim DeviceID As String
    Dim class1 As CommonDialogClass = New CommonDialogClass
    Dim d As Device = class1.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, True, False)
    If (Not (d) Is Nothing) Then
        DeviceID = d.DeviceID
    End If

тогда вы делаете снимок:

    Dim manager As DeviceManager = New DeviceManagerClass
    Dim d1 As Device = Nothing
    For Each info As DeviceInfo In manager.DeviceInfos
        If (info.DeviceID = DeviceID) Then
            d1 = info.Connect
            Exit For
        End If
    Next
    Dim item As Item = d1.Items(1)
    Dim imagefile As WIA.ImageFile = CType(item.Transfer(), WIA.ImageFile)
    imagefile.SaveFile("D:\IMg1.jpg")

Надеюсь, это поможет.

Ссылка на эту ссылку из дополнительной информации Windows Image Acquisition

Редактировать Добавить ссылку на ваш проект wiaaut.dll Вы можете найти это на C:\Windows\system32, А также Imports WIA в ваш класс.