How to acquire 48-bit color images from scanner

In This Topic

16-bit gray images and 48-bit color images can be acquired from the device only in Memory transfer mode.

Example: Here is an example that shows how to acquire 48-bit color images from the device.

VB.NET

Private VSTwain1 As New VintaSoftTwain()


Private Sub ScanImages()
    ' open the device manager
    If Not VSTwain1.DeviceManager_Open() Then
        Console.WriteLine(VSTwain1.errorString)
        Exit Sub
    End If

    ' open the device
    If Not VSTwain1.Device_Open Then
        Console.WriteLine(VSTwain1.errorString)
        Exit Sub
    End If

    ' scan images without UI
    VSTwain1.Device_ShowUI = False

    ' specify that color images must be acquired
    VSTwain1.Device_ImagePixelType = PIXELTYPE.PIXELTYPE_RGB
    ' specify the bit depth for acquired images (16 - for Epson scanners, 48 - for Canon scanners)
    VSTwain1.Device_ImageBitDepth = 16

    ' subscribe to the device events
    AddHandler VSTwain1.DeviceImageAcquired, AddressOf VSTwain1_ImageAcquired
    AddHandler VSTwain1.DeviceScanCompleted, AddressOf VSTwain1_ScanCompleted
    AddHandler VSTwain1.DeviceScanFailed, AddressOf VSTwain1_ScanFailed
    AddHandler VSTwain1.DeviceScanCanceled, AddressOf VSTwain1_ScanCanceled

    ' acquire images asynchronously
    VSTwain1.Device_AcquireImage()
End Sub

Private Sub VSTwain1_ImageAcquired()
    ' get index of acquired image
    Dim imageIndex As Integer = VSTwain1.AcquiredImages_Count - 1

    ' save acquired image to TIFF file
    If Not VSTwain1.AcquiredImages_Save(imageIndex, "test.tif") Then
        Console.WriteLine(VSTwain1.errorString)
    End If
End Sub

Private Sub VSTwain1_ScanCompleted()
    Console.WriteLine("Scan is completed.")
End Sub

Private Sub VSTwain1_ScanFailed(errorString As String)
    Console.WriteLine(String.Format("Scan is failed: {0}.", errorString))
End Sub

Private Sub VSTwain1_ScanCanceled()
    Console.WriteLine("Scan is canceled.")
End Sub

Example: Here is an example that shows how to acquire 16-bit gray images from the device.

VB.NET

Private VSTwain1 As New VintaSoftTwain()


Private Sub ScanImages()
    ' open the device manager
    If Not VSTwain1.DeviceManager_Open() Then
        Console.WriteLine(VSTwain1.errorString)
        Exit Sub
    End If

    ' open the device
    If Not VSTwain1.Device_Open Then
        Console.WriteLine(VSTwain1.errorString)
        Exit Sub
    End If

    ' scan images without UI
    VSTwain1.Device_ShowUI = False

    ' specify that gray images must be acquired
    VSTwain1.Device_ImagePixelType = PIXELTYPE.PIXELTYPE_Gray
    ' specify the bit depth for acquired images (16 - for Epson scanners, 48 - for Canon scanners)
    VSTwain1.Device_ImageBitDepth = 16

    ' subscribe to the device events
    AddHandler VSTwain1.DeviceImageAcquired, AddressOf VSTwain1_ImageAcquired
    AddHandler VSTwain1.DeviceScanCompleted, AddressOf VSTwain1_ScanCompleted
    AddHandler VSTwain1.DeviceScanFailed, AddressOf VSTwain1_ScanFailed
    AddHandler VSTwain1.DeviceScanCanceled, AddressOf VSTwain1_ScanCanceled

    ' acquire images asynchronously
    VSTwain1.Device_AcquireImage()
End Sub

Private Sub VSTwain1_ImageAcquired()
    ' get index of acquired image
    Dim imageIndex As Integer = VSTwain1.AcquiredImages_Count - 1

    ' save acquired image to TIFF file
    If Not VSTwain1.AcquiredImages_Save(imageIndex, "test.tif") Then
        Console.WriteLine(VSTwain1.errorString)
    End If
End Sub

Private Sub VSTwain1_ScanCompleted()
    Console.WriteLine("Scan is completed.")
End Sub

Private Sub VSTwain1_ScanFailed(errorString As String)
    Console.WriteLine(String.Format("Scan is failed: {0}.", errorString))
End Sub

Private Sub VSTwain1_ScanCanceled()
    Console.WriteLine("Scan is canceled.")
End Sub

Send Feedback