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)

但它产生了这个错误：

  

未处理的类型异常   Test.exe

中发生'System.Runtime.InteropServices.COMException'      

其他信息：错误HRESULT E_FAIL已从a返回   调用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到您的班级。