Как работать со сканером?

Страница 2 из 4

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

Code:

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;

Новые статьи