ReSQL.ru
     
powered by simpleCommunicator - 2.0.49     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / сканированный документ
25 сообщений из 162, страница 4 из 7
  4  все
сканированный документ
    #34593199
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
мыло в профиле,
dll загружено и зарегистрировано.
...
Рейтинг: 0 / 0
13.06.2007, 21:55
| Ответить | Цитировать | Написать  
сканированный документ
    #34593923
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
ХР?
если да, то после регистрации должно работать. выслала по почте попробуй немного переделанный вариант.
...
Рейтинг: 0 / 0
14.06.2007, 11:04
| Ответить | Цитировать | Написать  
сканированный документ
    #34593934
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
а это есть wiaacmgr.exe в sysnem32&
...
Рейтинг: 0 / 0
14.06.2007, 11:09
| Ответить | Цитировать | Написать  
сканированный документ
    #34594191
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
я имел в виду ХР (2002 или 10) офис, а у тебя, судя по референсам стоит 2003 (11)
...
Рейтинг: 0 / 0
14.06.2007, 12:20
| Ответить | Цитировать | Написать  
сканированный документ
    #34594209
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
а пишет
отсутствует объект в данном элементе управления
...
Рейтинг: 0 / 0
14.06.2007, 12:24
| Ответить | Цитировать | Написать  
сканированный документ
    #34594278
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
в 2002 идет. а так, да, у меня 2003. после подключения библиотек.
а так у меня проблема с 2000.
наскалько я изучила, wiaaut.dii идет только под ХР.
если у тебя ХР, wiaaut.dii зарегистрирован, библиотеки подключены, должно работать.
...
Рейтинг: 0 / 0
14.06.2007, 12:39
| Ответить | Цитировать | Написать  
сканированный документ
    #34594306
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вадя
Участник
вот этого и достаточно, что у тебя 2003...
попробуй на компе , где нет 2003.
и не было...
...
Рейтинг: 0 / 0
14.06.2007, 12:45
| Ответить | Цитировать | Написать  
сканированный документ
    #34606619
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
всем привет.
продолжение темы.
кто-нибудь знает как сделать тоже самое но на сетевом сканере?
где надо прописать адрес сетевой?
...
Рейтинг: 0 / 0
20.06.2007, 09:06
| Ответить | Цитировать | Написать  
сканированный документ
    #34606646
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
нет, все-таки сканер установлен локально, и проблема, что установлено МФУ.
...
Рейтинг: 0 / 0
20.06.2007, 09:21
| Ответить | Цитировать | Написать  
сканированный документ
    #34637564
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
в продолжение ко всему написанному ранее.
т.к. файлов может быть много(но данные периодически удаляется), я решила записывать сам файл в поле Ole вместе со всеми данными в таблицу.

теперь вопрос такой.
есть
форма, в которой происходит сканирование документа, затем, данные выборочно записываются в ячейки (весь распознанный текст, путь к файлу, и выбранный фразы из текста), а еще есть поле miVwr(Элемент ActiveX), куда вставляется картинкака сканированного документа.
есть код на сохранение данных:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Dim rst As Recordset
Dim ws As Workspace
Dim dbname As String
Dim dbnew As Database


Set rst = CurrentDb.OpenRecordset("Doc_Temp")

With rst
.AddNew
![Login] = fOSUserName
![FIO] = DLookup("[FIO]", "Login", "[Login] = '" & fOSUserName & "' ")
![Doc] = Me!Label3
![Klient] = Me!Label4
![Summ] = Me!Label5
![DateDoc] = CDate(Date + Time)
![№] = Me!Label6

![Picture] = ??????????????

.Update
End With
rst.Close

надо в поле picture (поле Ole), записать саму картинку.

помогите...
...
Рейтинг: 0 / 0
04.07.2007, 12:43
| Ответить | Цитировать | Написать  
сканированный документ
    #34637902
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Dim rst As Recordset
Dim ws As Workspace
Dim dbname As String
Dim dbnew As Database
Dim Img, IP

Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")

Set rst = CurrentDb.OpenRecordset("Doc_Temp")

With rst
.AddNew
![Login] = fOSUserName
![FIO] = DLookup("[FIO]", "Login", "[Login] = '" & fOSUserName & "' ")
![Doc] = Me!Label3
![Klient] = Me!Label4
![Summ] = Me!Label5
![DateDoc] = CDate(Date + Time)
![№] = Me!Label6

Img.LoadFile "C:\MyTestPic.tif"

IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters( 1 ).Properties("FormatID").Value = wiaFormatJPEG
IP.Filters( 1 ).Properties("Quality").Value =  5 

Set Img = IP.Apply(Img)
rst("Picture") = Img

.Update
End With
rst.Close
...
Рейтинг: 0 / 0
04.07.2007, 13:51
| Ответить | Цитировать | Написать  
сканированный документ
    #34638053
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
ошибка 438 на строке

Код: plaintext
rst("picture") = Img
...
Рейтинг: 0 / 0
04.07.2007, 14:21
| Ответить | Цитировать | Написать  
сканированный документ
    #34638161
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
%?*?% , хелп
ты же, знаешь, как надо исправить :(
...
Рейтинг: 0 / 0
04.07.2007, 14:43
| Ответить | Цитировать | Написать  
сканированный документ
    #34638303
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
Только вечером смогу посмотреть...
...
Рейтинг: 0 / 0
04.07.2007, 15:07
| Ответить | Цитировать | Написать  
сканированный документ
    #34638309
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
может тебе файл выслать с тем, что у меня есть?
...
Рейтинг: 0 / 0
04.07.2007, 15:08
| Ответить | Цитировать | Написать  
сканированный документ
    #34638315
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
Кидай. Почта моя у тебя есть.
...
Рейтинг: 0 / 0
04.07.2007, 15:10
| Ответить | Цитировать | Написать  
сканированный документ
    #34638919
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
Пропустил...

Код: plaintext
rst("Picture") = Img.FileData
...
Рейтинг: 0 / 0
04.07.2007, 17:29
| Ответить | Цитировать | Написать  
сканированный документ
    #34639010
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
теперь ошибка -450
...
Рейтинг: 0 / 0
04.07.2007, 17:51
| Ответить | Цитировать | Написать  
сканированный документ
    #34639031
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
Ok, вечером дома буду смотреть. :)
...
Рейтинг: 0 / 0
04.07.2007, 17:55
| Ответить | Цитировать | Написать  
сканированный документ
    #34639034
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
%?*?%
спасибо, огромное :)
...
Рейтинг: 0 / 0
04.07.2007, 17:56
| Ответить | Цитировать | Написать  
сканированный документ
    #34639922
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
%?*?% , привет.
ну как там код?
...
Рейтинг: 0 / 0
05.07.2007, 09:40
| Ответить | Цитировать | Написать  
сканированный документ
    #34640184
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
Не успел вчера... Сейчас по ходу разберемся...

Да, там должен быть вектор:


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Dim rst As Recordset
Dim ws As Workspace
Dim dbname As String
Dim dbnew As Database
Dim Img, IP, vc

Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Set vc = CreateObject("WIA.Vector")

Set rst = CurrentDb.OpenRecordset("Doc_Temp")

With rst
.AddNew
![Login] = fOSUserName
![FIO] = DLookup("[FIO]", "Login", "[Login] = '" & fOSUserName & "' ")
![Doc] = Me!Label3
![Klient] = Me!Label4
![Summ] = Me!Label5
![DateDoc] = CDate(Date + Time)
![№] = Me!Label6

Img.LoadFile "C:\MyTestPic.tif"

IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters( 1 ).Properties("FormatID").Value = wiaFormatBMP
IP.Filters( 1 ).Properties("Quality").Value =  5 

Set Img = IP.Apply(Img)
Set vc = Img.FileData
rst("Picture") = vc.BinaryData

.Update
End With
rst.Close

Так он сохранит в бинарном формате.
...
Рейтинг: 0 / 0
05.07.2007, 10:58
| Ответить | Цитировать | Написать  
сканированный документ
    #34640295
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
Ты меня в очередной раз спасаешь :)
даж не знаю, как выразить свою благодарность.
только мне еще малюсечная деталька нужна. мне надо в отчет юту картинку запихнуть :)
поможешь?
...
Рейтинг: 0 / 0
05.07.2007, 11:26
| Ответить | Цитировать | Написать  
сканированный документ
    #34640616
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
С отчетом сложнее, у меня сейчас под рукой только всякий богопротивный дотнет.

Выкладывайте код, будем смотреть :)
...
Рейтинг: 0 / 0
05.07.2007, 12:34
| Ответить | Цитировать | Написать  
сканированный документ
    #34640644
kobra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kobra
Гость
вот, с этим и проблема. отчет построила просто но основе таблицы. данные вставлюжтся, сделала поле Рисунок - Foto.
и туда и надо вставить данные из поля picture ^(
...
Рейтинг: 0 / 0
05.07.2007, 12:43
| Ответить | Цитировать | Написать  
25 сообщений из 162, страница 4 из 7
  4  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / сканированный документ
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=34638053&tid=1615913]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 155ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 73ms
get tp. blocked users:
 1ms
others: 14ms
total:  287ms
созд. / загр.: 287ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]