Manage
Learn to apply best practices and optimize your operations.
Scan image with TWAIN scanner and insert into Rich Text (R5/Win32)
2. Be sure to have a rich text field named 'Body' (w/o the quotes) inserted in your form.
3. Insert a command button into another paragraph of your form design, label it 'Scan' (w/o the quotes). Tell the button to hide exept in edit mode.
Ack.: - further information about additional controls, scanning parameters aso is in IMGOCXD.HLP that ships with the control
- imaging control is also available at www.eastmansoftware.com
- I can recommend the following settingsfor invoices, receipts...: (JPEG), compressed filesize, 100 dpi resolution, b/w settings
- you can change the Const declarations in the code to meet your special needs, image formats and directory permissions
- if you don't like a button, use an action instead
This is the button's LS code:
Declare Function GetActiveWindow Lib {User32} () As Long
Declare Sub SetActiveWindow Lib {User32} (Byval hwnd As Long)
Sub Click(Source As Button)
'**********
'Scan image with TWAIN scanner and insert into Rich Text (R5/Win32)
'written by Dipl. Ing. Wolfgang Flamme (wflamme@mainz-online.de), 2001-03-23
'**********
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
