ImageEN抓像

最新推荐文章于 2025-09-14 10:57:22 发布

原创最新推荐文章于 2025-09-14 10:57:22 发布 · 2.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #processing #image #string #io

图像处理2011 专栏收录该内容

7 篇文章

订阅专栏

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;