|
The attached code, show how to get the FEEDERLOADED capability:
Option Explicit
Public WithEvents RasterTwain As LEADRasterTwain2 Dim TwainCap As LEADTwainCapability
Private Sub Command1_Click()
Dim iRet As Integer
Set TwainCap = New LEADTwainCapability
TwainCap.CapInfo.ConType = L_TWON_DONTCARE16
TwainCap.CapInfo.Capability = L_CAP_FEEDERLOADED
iRet = RasterTwain.GetCapability2(TwainCap, L_LTWAIN_CAPABILITY_GETCURRENT)
If (iRet <> 0) Then
MsgBox "Error Getting Capability"
End If
Select Case TwainCap.CapInfo.ConType
Case L_TWON_ONEVALUE
MsgBox "Cap Value = " + CStr(TwainCap.CapOneValue.OneValCapValue)
End Select
Set TwainCap = Nothing
End Sub
Private Sub Form_Load()
Dim nRet As Integer
Set RasterTwain = New LEADRasterTwain2
RasterTwain.EnableMethodErrors = False
RasterTwain.ManName = "LEAD Technologies, Inc."
RasterTwain.ProdFamily = "LEAD Twain COM Object"
RasterTwain.Version = "Version 13"
RasterTwain.AppName = "LEADTools Twain test sample"
nRet = RasterTwain.InitSession(hWnd)
If (nRet <> 0) Then
MsgBox "Error Initializing Twain", vbExclamation
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
RasterTwain.EndSession
End Sub
Thanks,
Ali Abo Al-Rob
LEADTOOLS Technical Support
|