SCANNER UNE IMAGE AVEC TWAIN ET LA METTRE DANS UN RICHTEXT

[Michael DELIQUE]

Code : Tout sélectionner

Declare Function GetActiveWindow Lib {User32} () As Long
Declare Sub SetActiveWindow Lib {User32} (Byval hwnd As Long)

Sub Click(Source As Button)
        On Error Goto ErrorHandler     
       Const SCANFILEPATH$={C:Tempscan.jpg}
       Const IMPORTFILETYPE$={JPEG}
       Const RTFNAME$={Body}
       Const SCANOBJNAME$={objScan}
       
       Dim ws As New NotesUIWorkspace
       Dim uidoc As NotesUIDocument
       Dim wndhnd As Long
       Dim strFile As String
       Dim strRTFName As String
       Dim objScan As Variant
       
       Set uidoc = ws.CurrentDocument
       Set objScan = uidoc.GetObject(SCANOBJNAME)
       
       wndhnd&=GetActiveWindow()
       
       If objScan.ScannerAvailable=True Then
               objScan.ShowSelectScanner
               
               objScan.Image=SCANFILEPATH
               objScan.ScanTo=2 'StoreOnly
               objScan.PageOption=6 'CreateReplace
               objScan.ShowSetupBeforeScan=True 'ShowScanDialog
               Call objScan.ShowScanPreferences 'ShowScanQualityDialog
               Call objScan.StartScan
               Call uidoc.GotoField(RTFNAME)
               Call uidoc.import(IMPORTFILETYPE, SCANFILEPATH)
               Call objScan.CloseScanner
               Call SetActiveWindow(wndhnd&)
       Else
               Msgbox {Error: TWAIN driver not found!}
       End If
       
TheEnd:
       Exit Sub
       
ErrorHandler:
       Messagebox {The following unexpected error has occured: } & Trim$(Str(Err)) & {: } & Error$, 0+48+0+0, {Error Message..}

        Resume TheEnd   
End Sub