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 的关联