ImageEN抓像

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;

你可能感兴趣的:(图像处理2011)