• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы ak-47
  • Дата начала
A

ak-47

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

oshmianski

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

fermer

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

но не пробовал
Код:
Описание: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
 
F

Fossil Code

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

morpheus

Для: ak-47




З,Ы, Разберётесь закидывайте в базу знаний
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!