i need to scan a image with the following features

#1 Posted : Monday, August 31, 2009 1:39:47 AM(UTC)

sudhakar

Groups: Registered
Posts: 2

1 page in b/w
2 page in gray scale ( will have photo)
3 page onwards b/w

how to do so in vb.net

#2 Posted : Monday, August 31, 2009 6:22:44 AM(UTC)

Amin

Groups: Manager, Tech Support
Posts: 367

Was thanked: 1 time(s) in 1 post(s)

If you're using our .NET classes, the code will be like this:
Sub SetTransferCount(ByVal nPages As Integer)
   Dim twCap As TwainCapability = New TwainCapability()
   twCap.Information.ContainerType = TwainContainerType.OneValue
   twCap.OneValueCapability.ItemType = TwainItemType.Int16
   twCap.Information.Type = TwainCapabilityType.TransferCount
   twCap.OneValueCapability.Value = nPages
   acq_session.SetCapability(twCap, TwainSetCapabilityMode.Set)
End Sub

Sub SetPixelType(ByVal PixType As Leadtools.Twain.TwainCapabilityValue)
   Dim twCap As TwainCapability = New TwainCapability()
   twCap.Information.Type = TwainCapabilityType.ImagePixelType
   twCap.Information.ContainerType = TwainContainerType.OneValue
   twCap.OneValueCapability.ItemType = TwainItemType.Uint16
   twCap.OneValueCapability.Value = CType(PixType, Object)
   acq_session.SetCapability(twCap, TwainSetCapabilityMode.Set)
End Sub

Sub DifferentPixelTypes()
   acq_session = New TwainSession()
   acq_session.Startup(Me, "LEAD Technologies, Inc.", "LEAD Twain .NET", "Version 14", "LEADTools Twain test sample", TwainStartupFlags.None)
   acq_session.SelectSource(String.Empty)
   AddHandler acq_session.AcquirePage, AddressOf twain_AcquirePage

   SetPixelType(Leadtools.Twain.TwainCapabilityValue.PixelTypeBW)
   SetTransferCount(1)
   acq_session.Acquire(TwainUserInterfaceFlags.None)

   SetPixelType(Leadtools.Twain.TwainCapabilityValue.PixelTypeGray)
   SetTransferCount(2)
   acq_session.Acquire(TwainUserInterfaceFlags.None)

   SetPixelType(Leadtools.Twain.TwainCapabilityValue.PixelTypeBW)
   SetTransferCount(3)
   acq_session.Acquire(TwainUserInterfaceFlags.None)

   acq_session.Shutdown()
End Sub

Amin Dodin

Senior Support Engineer
LEAD Technologies, Inc.


	Try the latest version of LEADTOOLS for free for 60 days by downloading the evaluation: https://www.leadtools.com/downloads Wanna join the discussion? Login to your LEADTOOLS Support account or Register a new forum account.

Notification

i need to scan a image with the following features