^_^->>>谁会用ImageEN控件，在程序中控制扫描仪和摄像头，进行照片入库。

Question

我下载的是ImageEn 2.17。请大侠相助！
最好有源程序，

Answer 1

procedure Tscanf.N1Click(Sender: TObject);
begin
ImgScan1.ShowSelectScanner;  
//选择系统中已安装的扫描仪
end;procedure Tscanf.N2Click(Sender: TObject);
begin
    imgedit1.zoom:=100;  //设置图象的放缩因子
    if  not imgscan1.ScannerAvailable then 
  //如果选择的扫描仪不可用
       imgscan1.OpenScanner;//打开扫描仪
       imgscan1.StartScan; //开始扫描图象
       imgscan1.CloseScanner; //关闭扫描仪
end;

Answer 2

imageen用的人这里好象不多哦，原来用过，感觉不是很爽，换成multitwain了
用摄象头连续抓象，有时候抓不到。
procedure TForm1.FormActivate(Sender: TObject);
var
i:integer;
begin
// fills TWain sources
for i:=0 to ImageEnIO1.TWainParams.SourceCount-1 do
    ComboBox1.Items.Add( ImageEnIO1.TWainParams.SourceName[i] );
   // Select first scanner
   ComboBox1.ItemIndex:=0;
   ImageEnIO1.TWainParams.SelectedSource:=ComboBox1.ItemIndex;
   ImageEnIO1.TWainParams.AppVersionInfo:='1.0';
   ImageEnIO1.TWainParams.AppManufacturer:='HiComponents';
   ImageEnIO1.TWainParams.AppProductFamily:='Image processing';
   ImageEnIO1.TWainParams.AppProductName:='ImageEn demo';
   FillBack;
end;
procedure TForm1.FillIn;
begin
        {
         imageenview1.IO.LoadFromFile('d:\1.jpg');
         ImageEnView1.IO.Params.JPEG_Quality:=70;       //压缩品质因子70
         imageenview1.Update;
         imageenview1.SetDPI(350,350);  //dpi 设置到指定值 ，注意imageenview1与imageeni0 的关联
         with imageenio1.Params do
          begin
           dpiX:=350;
           dpiY:=350;
          end;
          imageenio1.Update;
          imageenio1.SaveToFile('d:\6.jpg') ;
        中间用了一个IMAGEENVIEW，IMAGEENIO控件，注意IO的文件关连
        }
        Imageenview1.IO.Params.JPEG_Quality:=50;
        imageenview1.SetDPI(350,350);
        imageEnIO1.Params.DpiX:=200;
        imageEnIO1.Params.DpiY:=200;
       ImageEnIO1.TWainParams.VisibleDialog:=CheckBox1.Checked;
        ImageEnIO1.TWainParams.ProgressIndicators:=CheckBox2.Checked;
        ImageEnIO1.TWainParams.AcquireFrameLeft:=StrToFloat( Edit3.Text );
        ImageEnIO1.TWainParams.AcquireFrameTop:=StrToFloat( Edit4.Text );
        ImageEnIO1.TWainParams.AcquireFrameRight:=StrToFloat( Edit5.Text );
        ImageEnIO1.TWainParams.AcquireFrameBottom:=StrToFloat( Edit6.Text );
        ImageEnIO1.TWainParams.PixelType.CurrentValue:=ComboBox2.ItemIndex;
        ImageEnIO1.TWainParams.YResolution.CurrentValue:=StrToInt( edit1.text);
       ImageEnIO1.TWainParams.XResolution.CurrentValue:=StrToInt( edit2.text);
        //ImageEnIO1.TWainParams.
        ImageEnIO1.TWainParams.BufferedTransfer:=CheckBox4.Checked;
end;
// Acquire
procedure TForm1.Button1Click(Sender: TObject);
var
filename: string;
i: integer;
begin
   FillIn;
   i:=0;
   try
   ImageEnIO1.Acquire;
   imageenio1.Update;
   inc(i);
   filename:='d:\a'+inttostr(i)+'.jpg';
   imageenio1.SaveToFile(filename);
   except
   end;
   ProgressBar1.Position:=0;
end;// progress
procedure TForm1.ImageEnIO1Progress(Sender: TObject; per: Integer);
begin
          ProgressBar1.Position:=per;
   if CheckBox3.Checked then begin
          ImageEnView1.Update;
          application.processmessages;
   end;
end;
将就着看看吧
{采用ImageEnIO控件，下载地址：
http://218.56.11.178/default.aspx
->下载基地-》控件-多媒体-》ImageEn v2.0.7
____________________________________________________
这个程序是其中的一个DEMO稍做改动，效果不错。
}
我在上面接着又改动了一点，改的太乱了，呵呵
imageen是个图象处理软件，研究中