Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/74: Рейтинг темы: голосов - 74, средняя оценка - 4.68
0 / 0 / 0
Регистрация: 08.09.2006
Сообщений: 64
1

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

03.01.2007, 12:08. Просмотров 13652. Ответов 4
Метки нет (Все метки)

Задача:
по какому-либо действию в лотусе запускаем сканер, сканируем документ, полученное изображение сохраняем в рт-поле.
Вопрос:
как организовать взаимодействие со сканером
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.01.2007, 12:08
Ответы с готовыми решениями:

Кто-нибудь кто в Workflow работал?
Тут просто непонятки возникают. А посоветоватьсяне с кем. В основном проблемы, связанные с...

Документи. кто может и не может видет
Привет всем;) вобщем вопрос. делал я базу для кредитчиков. все гуд работает но теперь...

Кто-нибудь создавал блоги под Lotus?
Появилась идея сделать базу-блог для пользователей Lotus Notes. Обычные форумы неинтересны - нужно...

Кто-нибудь делал свой форум под Лотус?
Дело вот в чем. Мне, да и моим коллегам сисадминам не нравится дизайн стандартного форума, идущего...

4
0 / 0 / 0
Регистрация: 13.10.2005
Сообщений: 848
03.01.2007, 12:15 2
Для: ak-47
Я сам не сталкивался, но вот тут обсуждается.
0
fyrmyr
03.01.2007, 12:24 3
вот такое нашел

но не пробовал

Код
Описание: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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.01.2007, 12:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Совместимость программ в Windows 7, может кто нибудь сталкивался?!
Здраствуйте,у меня проблема,когда устанавливаю некоторые проги ничего не выходит в конце пишет "Эта...

Глючит Enternet Explorer после установки icq, может сталкивался кто-нибудь?
Нужно решить проблему. Глючит Enternet Explorer после установки icq. Такая реакция на все адреса.

Файл во вложении может содержать вирус? Кто-нибудь сталкивался с таким типом рассылки?
Приветствую, форумчане! Кто-нибудь сталкивался с формой неконтролируемой рассылки doc-файла с...

Кто-нибудь с таким сталкивался?
У меня уже второй раз такая ерунда - сайт находится в ТОП-е на 3-5 позиции по определенному ВЧ....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
0 / 0 / 0
Регистрация: 18.11.2006
Сообщений: 293
03.01.2007, 12:24 4
Было дело, но давно. Как говорил oshmianski, если суть именно в самодельном взаимодействии со сканером, то TWAIN. Но у Лотуса была уже готовая примочка, обеспечивающая требуемый функционал. Увы, под рукой нет линка.
0
1 / 1 / 0
Регистрация: 04.08.2006
Сообщений: 2,950
03.01.2007, 12:24 5
Для: ak-47
<< Читать тут очень внимательно >>

Можно и тут

З,Ы, Разберётесь закидывайте в базу знаний
0
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.