Home

Page 325
Page 325
background image

318 Глава 6

В обработчике события OnCreate формы нужно обнулить все переменные:

procedure
begin

 := 0;

testDib := 0;

w

 0;
 0;

end;

Теперь напишем код для выбора сканера. В обработчике нажатия соответст-

вующей кнопки напишем следующий код:

procedure

 TObject);

begin

 ;

end;

Код прост, как никогда. Вам достаточно вызвать TWAIN-функцию

 и перед пользователем откроется стандартное

окно выбора сканера.
В обработчике нажатия кнопки Сканировать нужно написать следующий

код:

procedure

 TObject);

begin

hdib :=

 0);

n := TWAIN_GetNumDibs;

if n >= 1 then

begin

TestDib

 ;

TestDib := 0;

end;

if n  2 then

begin

TestDib :=


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.