Может кто-нибудь сталкивался?

Тема в разделе "Lotus - Программирование", создана пользователем ak-47, 4 янв 2007.

  1. ak-47

    ak-47 Гость

    Задача:
    по какому-либо действию в лотусе запускаем сканер, сканируем документ, полученное изображение сохраняем в рт-поле.
    Вопрос:
    как организовать взаимодействие со сканером
     
  2. oshmianski

    oshmianski Гость

    Для: ak-47
    Я сам не сталкивался, но вот тут обсуждается.
     
  3. fermer

    fermer Гость

    вот такое нашел

    но не пробовал
    Код (Text):
    Описание:Scan image with TWAIN scanner and insert into 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
     
  4. Fossil Code

    Fossil Code Гость

    Было дело, но давно. Как говорил oshmianski, если суть именно в самодельном взаимодействии со сканером, то TWAIN. Но у Лотуса была уже готовая примочка, обеспечивающая требуемый функционал. Увы, под рукой нет линка.
     
  5. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
Загрузка...

Поделиться этой страницей