Сканирование изображений

Оформил: DeeCo

The setup program for Imaging (tool that ships with Windows > 98) installs the Image
Scan control (OCX) and the 32-bit TWAIN DLLs.
All you have to do is to import this ActiveX control in Delphi and generate a component wrapper:

Import the ActiveX Control "Kodak Image Scan Control"
(Select Component|Import ActiveX Control...)

Now add a TImgScan Component from the Register "ActiveX" to your form.

Change the following Properties in the Object Inspector:

FileType = 3 - BMP_Bitmap
PageOption = 4 - OverwritePages
ScanTo = 2 - FileOnly

{***}

Das Setup Programm fьr Imaging (Ist bei Windows > 98 dabei) installiert das Bild Scanning Control (OCX) und die 32-bit TWAIN DLLs.

Importiere das ActiveX-Control "Steuerung fьr Kodak-Bildscan".
(Im Menь Komponente, "ActiveX importieren" anklicken.)

Dann "Steuerung fьr Kodak-Bildscan..." auswдhlen und den "Installieren..." Button anklicken.

Fьge nun eine "TImgScan" Komponente aus dem Register "ActiveX" auf dem Formular ein.

Дndere im Objektinspektor unter "ImgScan1" folgende Eigenschaften:

FileType = 3 - BMP_Bitmap
PageOption = 4 - OverwritePages
ScanTo = 2 - FileOnly

{***}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if imgScan1.ScannerAvailable then
     try
       imgScan1.Image := 'c:\Scanner.bmp';
       imgScan1.OpenScanner;
       imgScan1.Zoom := 100;
       imgScan1.StartScan;
       Application.ProcessMessages;
     finally
       imgScan1.CloseScanner;
       { Show the scanned image in Image1 }
       imgScan1.Picture.LoadFromFile(Image1.Image);
     end;
 end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 268 • TDictionary Custom Sort 6 314 • Fast Watermark Sources 6 108 • 3D Designer 9 026 • Sik Screen Capture 6 431 • Patch Maker 6 846 • Айболит (remote control) 6 830 • ListBox Drag & Drop 5 705 • Доска для игры Реверси 96 527 • Графические эффекты 7 045 • Рисование по маске 6 340 • Перетаскивание изображений 5 218 • Canvas Drawing 5 586 • Рисование Луны 5 291 • Поворот изображения 4 844 • Рисование стержней 3 430 • Paint on Shape 2 687 • Генератор кроссвордов 3 569 • Головоломка Paletto 2 862 • Теорема Монжа об окружностях 3 671 • Пазл Numbrix 2 403 • Заборы и коммивояжеры 3 084 • Игра HIP 2 043 • Игра Go (Го) 1 970 • Симулятор лифта 2 331 • Программа укладки плитки 2 032 • Генератор лабиринта 2 487 • Проверка числового ввода 2 175 • HEX View 2 503 • Физический маятник 2 120

Сканирование изображений

Похожие по теме исходники