|
|
|
Navigation
0 users online | 0 Guests and 0 Registered
|
Delphi » GraphicID #1080
Scanned a PictureThe setup program for Imaging (tool that ships with Windows > 98) installs the Image Import the ActiveX Control "Kodak Image Scan 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
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;
Tags: - Related entries: Last update: 2010-11-19 06:01 You can comment this FAQ |
Most popular FAQs
|