unit1.pas

一个利用 WINDOW 自带的 KODAK 扫描仪控件

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, AxCtrls, DBOleCtl, StdCtrls, OleCtrls,
   ScanLibCtl_TLB, ieview, ImageEnView, ImageEnIO, ImageEn;

type
   TForm1 = class(TForm)
      ImgScan1: TImgScan;
      Button1: TButton;
      Button2: TButton;
      Button3: TButton;
      Button4: TButton;
      Button5: TButton;
      Button6: TButton;
      ImageEn1: TImageEn;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure Button3Click(Sender: TObject);
      procedure Button4Click(Sender: TObject);
      procedure Button5Click(Sender: TObject);
      procedure Button6Click(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   ImgScan1.ShowSelectScanner;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ImgScan1.PageOption := OverwriteAllPages; //6;
   ImgScan1.PageType := Gray256Shades; // 2;
   imgscan1.Zoom := 100;
   //ImgScan1.CompressionType := JPEGCompression;//////4;
   //ImgScan1.CompressionInfo :=JPEGHighHigh;// 1;
   ImgScan1.ScanTo := FileOnly; //2; // '保存为文件　　
   ImgScan1.FileType := 3;//bmp
   ImgScan1.image := '.\rc.bmp'; // TheImageFile; // '图像将被保存　　
   ImgScan1.ShowSetupBeforeScan := True; //false;//
   ////ImgScan1.MultiPage := True;
   //ReturnValue := ImgScan1.StartScan();
   if not imgscan1.ScannerAvailable then
      //如果选择的扫描仪不可用
      imgscan1.OpenScanner; //打开扫描仪
   imgscan1.StartScan; //开始扫描图象
   imgscan1.CloseScanner; //关闭扫描仪
   ImageEn1.LoadFromFileBMP('rc.bmp');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   {if (imgedit1.IsClipboardDataAvailable
      and imgedit1.ImageDisplayed) then
      imgedit1.ClipboardPaste(selleft, seltop);}
   //从剪贴板粘贴图象，其参数为Imgedit的显示区域的起始坐标
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
   //if imgedit1.ImageDisplayed then
   //   imgedit1.Flip; //镜象图象
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
   //if imgedit1.ImageDisplayed then
   //   imgedit1.RotateRight //向右旋转图象
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
   {imgedit1.DrawSelectionRect(selleft,
      seltop, selwidth, selheight); //进行图象局部选择
   imgedit1.ClipboardCut(selleft, seltop,
      selwidth, selheight); //剪切所选区域  }
end;

end.