Сканер

← →
Sandman25 (2003-12-16 12:52) [0]

Здравствуйте.

Пытаемся использовать сканер через 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;

Помогите, пожалуйста.

← →
me (2003-12-16 14:05) [1]

Попробуй вызвать GetScanCapability после OpenScanner и посмотри, что будет на выходе. Но есть подозрение, что Kodak Imaging у тебя работает неправильно, ибо GetVersion действительно должна вернуть строку версии
MSDN:
GetVersion Method
Returns the Product Version number of the Imaging control (for example, 1.09.1403).

← →
Amoeba (2003-12-16 14:11) [2]

Есть TWAIN Scanner and Imaging Interface:
ftp://delphi-jedi.org/api/twain19.zip
Может пригодится...

← →
Sandman25 (2003-12-16 16:00) [3]

Спасибо, me и Amoeba

Будем разбираться...

← →
nickalex (2003-12-16 23:43) [4]

Есть работающий проект для Delphi. В проекте использовался twain.h (переведенный на pas) взят с www.twain.org. Там можно найти сишный пример.

← →
wicked (2003-12-17 12:17) [5]

поищи EzTWAIN, портированный на паскаль... также есть решения на http://www.torry.net

Сканер Найти похожие ветки