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;
ImageEN抓像
最新推荐文章于 2021-10-08 23:42:24 发布