| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сканер [D6, Win2k]
Sandman25 © (2003-12-16 12:52:00)
Здравствуйте.
Пытаемся использовать сканер через Twain. Импортировали Kodec Scaner из ActiveX, но при выполнении сканирования зависает. Сканер в порядке, из других программ работает.
В инете нашли кучу примеров, как выполнять сканирование из Delphi, но они противоречат друг другу, и ни один не работает.
Пишу по памяти, к машине, где ведется разработка, сейчас нет доступа.
with ImgSrc do
begin
if ScanerAvailable then
begin
ShowSelectScanner; // работает, показывает диалог выбора сканера
Self.Caption := GetVersion; // возвращает путсую строку. Разве это нормально?
OpenScanner;
Self.Caption := GetVersion; // тоже возвращает путсую строку :(
try
ScanTo := 2;
Image := "D:\Temp\1.bmp"; // ImageType настроен в 3-bmp
StartScan; { вот тут зависает. Если не делать OpenScanner, ругается kernel32 AccessViolation }
finally
CloseScanner;
end;
end;
end;
Помогите, пожалуйста.
wicked (2003-12-17 12:17:00) [1]
поищи EzTWAIN, портированный на паскаль... также есть решения на http://www.torry.net
nickalex (2003-12-16 23:43:00) [2]
Есть работающий проект для Delphi. В проекте использовался twain.h (переведенный на pas) взят с www.twain.org. Там можно найти сишный пример.
Sandman25 (2003-12-16 16:00:00) [3]
Спасибо, me и Amoeba
Будем разбираться...
Amoeba (2003-12-16 14:11:00) [4]
Есть TWAIN Scanner and Imaging Interface:
ftp://delphi-jedi.org/api/twain19.zip
Может пригодится...
me (2003-12-16 14:05:00) [5]
Попробуй вызвать GetScanCapability после OpenScanner и посмотри, что будет на выходе. Но есть подозрение, что Kodak Imaging у тебя работает неправильно, ибо GetVersion действительно должна вернуть строку версии
MSDN:
GetVersion Method
Returns the Product Version number of the Imaging control (for example, 1.09.1403).
| |
