Scan Immagine con TWAIN scanner ed inserirla in un Rich-Text

TIPS DEVELOPERS scanner twain notes rich text field jpeg

  • 3 commenti
Questo codice preso da OpenNtf.org, se messo in un bottone, permette di effettuare la scansione su JPEG da una scanner compatibile con i driver TWAIN ed inserirla nel campo Notes Rich-Text.

*****************************************
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

*****************************************

3 Commenti:

  • #1 Daniele 10/26/2005 12:45:10 PM

    In pratica l'errore sta nella seguente riga...

    Const SCANOBJNAME$={objScan}

    objScan va sostituito con il nome dell'oggetto del tuo scanner...

    Se vai nel designer e nel reference scegli "OLE" trovi tutte gli oggetti a cui puoi accedere...

  • #2 Daniele 07/27/2005 12:32:17 PM

    Hmmm.ok dammi tempo di testarlo e capire dove sia il problema...

    Cmq mi sa che essendo un codice datato c'è qualche errore nel richiamare l'oggetto OLE...

    Appena documento e ti mando delle NEWS.

    Se qualcun'altro nel frattempo ha idee ben vengano..

  • #3 Sergio 07/27/2005 10:57:07 AM

    Ottengo in risposta l'errore seguente:

    The following unexpected error has occured: 5585 - Impossibile localizzare l'oggetto OLE specificato all'interno del documento.

    Cosa sbaglio? il codice è stato incollato in un pulsante all'interno di un documento il quale a sua volta contiene un campo RT chiamato Body.

    Lotus Notes 6.5.2

    Scanner Mustek USB UB1200 TWAIN.

    Aiuto !!! Il codice mi sarebbe molto utile

Commenta articolo
 

Questo spazio web è stato creato da per un uso pubblico e gratuito. Qualsiasi tipo di collaborazione sarà ben accetta.
Per maggiori informazioni, scrivete a info@dominopoint.it

About Dominopoint
Social
Dominopoint social presence: