Работа со сканером напрямую из Lotus Notes

[morpheus]

Работа со сканером напрямую из Lotus Notes c помощью бесплатной библиотеки EZTW32.DLL

Помещаем библиотеку в директорию приложений Lotus (по умолчанию X:\Lotus\Notes)

Создаем агента или кнопку.

Декларируем функции из библиотеки

Dim hDib As Long 
Dim hPal As Long
Dim nPixTypes As Long
REM Used by several calls to get handle to current window
Dim hWND As Long
Declare Function TWAIN_AcquireNative Lib_
"EZTW32.DLL" (Byval hWndApp%, Byval wPixTypes%) As Integer
Declare Function TWAIN_AcquireToClipboard Lib_
"EZTW32.DLL" (Byval hwndApp%, Byval wPixTypes%) As Integer
Declare Function [B]TWAIN_AcquireToFilename[/B] Lib_
"EZTW32.DLL" (Byval hwndApp%, Byval bmpFileName$) As Integer
Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" (Byval hwndApp%) As Integer
Declare Function TWAIN_IsAvailable Lib "EZTW32.DLL" () As Integer
Declare Function TWAIN_EasyVersion Lib "EZTW32.DLL" () As Integer
Declare Function TWAIN_State Lib "EZTW32.DLL" () As Integer
Declare Function TWAIN_WriteNativeToFilename Lib_
"EZTW32.DLL" (Byval hBitmap%, Byval bmpFileName$) As Integer
Declare Function TWAIN_DibDepth Lib "EZTW32.DLL" (Byval hdib%) As Integer
Declare Function TWAIN_DibWidth Lib "EZTW32.DLL" (Byval hdib%) As Integer
Declare Function TWAIN_DibHeight Lib "EZTW32.DLL" (Byval hdib%) As Integer
Declare Function TWAIN_DibNumColors Lib "EZTW32.DLL" (Byval hdib%) As Integer

Вариант 1: Сканирование образа в текущий документ

Sub Initialize
' Сканирует документ в буфер обмена и помещает из буфера в поле Body
Call TWAIN_AcquireToClipboard(0,0)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.GotoField( "Body" )
Call uidoc.Paste
End Sub

Вариант 2: Сканирование образа и отправка по почте с присоедененным файлом

Sub Initialize
' Сканирует документ и отправляет по почте на указанный адрес
' адрес получателя
SendTo$="**@****.***.ua"
' имя сканируемого файла
FileName$="c:\scandoc.bmp"

Dim db As New NotesDatabase( "", "" )
Dim memo As NotesDocument
Dim rt As NotesRichTextItem
Dim o As NotesEmbeddedObject

Call TWAIN_AcquireToFilename(0,FileName$)

Call db.OpenMail
Set memo= New NotesDocument( db )
memo.Form="Memo"
memo.SendTo = SendTo$
memo.Subject = "новый отсканированный документ"
Set rt = New NotesRichTextItem( memo, "Body" )
Set o = rt.EmbedObject ( EMBED_ATTACHMENT, "", FileName$)
Call memo.Send( False )

End Sub

Ссылка скрыта от гостей

Автор - Дмитрий Войтышин

Библиотека и представленные примеры находятся в архиве. Посмотреть вложение ScanEZTWLotusNotes.zip

 

[ReneeKar]

Коллеги,
Добрый день
Хочу в офис на несколько компьютеров установить программу Lotus Notes для тестирования возможностей. Важно, чтобы возможности были такие, как и при наличии сервера Domino.

Скажите, как я могу протестировать Lotus Notes на нескольких компьютерах?

 

[alexas1]

Коллеги,
Добрый день
Хочу в офис на несколько компьютеров установить программу Lotus Notes для тестирования возможностей. Важно, чтобы возможности были такие, как и при наличии сервера Domino.

Скажите, как я могу протестировать Lotus Notes на нескольких компьютерах?

Ну и поставь сервер, это две минуты.

 

[NetWood]

Скажите, как я могу протестировать Lotus Notes на нескольких компьютерах?

Можно поставить сервер Domino и клиент Notes и на один комп. IBM, при всей своей брутальности, НИКОГДА не спрашивала лицензий при установке.

Вначале ставится сервер и создается файл cert.id - ему сразу давайте срок лет на сто и ХОРОШО ПРОДУМАННОЕ ORG ИМЯ. Учетке server.id не назначайте пароля. Клиенту укажите адрес 127.0.0.1 для коннекта к серверу и все - порт 1352 весь ваш. На клиенте порт HTTP задать нельзя - он по умолчанию 80. В сервере укажите порт 8080 для задачи HTTP, чтобы они не бодались с клиентом. Соответственно, все серверные вебы будут по имени компа:8080 или

Ссылка скрыта от гостей

. И тестируйте на здоровье.

Вообще, тестовый сервер в сетке, что на работе, что дома - это святое. Подойдет любое Core2DUO и даже WIN XP. По первости не ставьте Domino и Notes под терминалом, лучше на живую или через VNC.