h98458(零点起飞)问您点关于ImageEn扫描功能的问题

ssyqcwj 2007-06-11 10:32:25

我在这里看到您曾提到过:http://community.csdn.net/Expert/topic/5409/5409349.xml?temp=.2978784
我做过，不过我是用BCB的
我先看看我代码先

问题是这样的:我现在想用ImageEn做扫描,也就是怎么样用它进行操作扫描仪,得到我想要的图片,然后,我再把它存入数据库.存入数据库我知道,但是怎么样用这个控件进行扫描,您能给我一点详细的信息吗?这个控件我没有用过,我也不知道怎么用,最好请您讲的详细一点.或者给点详细的代码!我这里先谢谢您了!

...全文

465 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

dgxll 2008-01-21

打赏
举报

constantine(飘遥的安吉儿):
云中漫步:

你们好,小弟正搞这东西,能不能发一份完整的项目给我啊,小弟在此先谢过了,谢谢了.
我的EMAIL : denggengxinli@sohu.com

constantine 2007-06-19

打赏
举报

还是发了

ssyqcwj 2007-06-19

打赏
举报

怎么不让结啊?

ssyqcwj 2007-06-19

打赏
举报

constantine(飘遥的安吉儿) :
我对您的感激之情就如那长江大河滔滔不绝也!
结贴!

ssyqcwj 2007-06-18

打赏
举报

太好了,谢谢你!
ssyqcwj@126.com

constantine 2007-06-18

打赏
举报

如果需要整个项目，留个email

constantine 2007-06-18

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ImageEnView, ImageEnIO, ComCtrls, ieview, ExtDlgs,
IEOpenSaveDlg;

type
TForm1 = class(TForm)
ImageEnIO1: TImageEnIO;
ImageEnView1: TImageEnView;
Panel1: TPanel;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
GroupBox2: TGroupBox;
ComboBox1: TComboBox;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
ComboBox2: TComboBox;
CheckBox2: TCheckBox;
GroupBox3: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
ProgressBar1: TProgressBar;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
Button2: TButton;
Button3: TButton;
SaveImageEnDialog1: TSaveImageEnDialog;
procedure FormActivate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ImageEnIO1Progress(Sender: TObject; per: Integer);
procedure CheckBox5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
procedure FillBack; // copy twain parameters to the controls
procedure FillIn; // copy controls to twain parameters
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

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;

// Select scanner
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ImageEnIO1.TWainParams.SelectedSource:=ComboBox1.ItemIndex;
FillBack;
end;

// negotiate parameters (verify that scanner supports Frame rectangle, Dpi...)
procedure TForm1.Button2Click(Sender: TObject);
begin
FillIn;
ImageEnIO1.TWainParams.Update; // verify here...
FillBack;
end;

// copy twain parameters to the controls
procedure TForm1.FillBack;
const
COLORS:array [0..9] of string=('黑白图片','灰度图片','RGB彩色图片','调色板','CMY','CMYK','YUV','YUVK','CIEXYZ','LAB');
var
i:integer;
begin
Edit1.Text:=FloatToStr( ImageEnIO1.TWainParams.YResolution.CurrentValue );
Edit2.Text:=FloatToStr( ImageEnIO1.TWainParams.XResolution.CurrentValue );
// Fill Colors (0=B/W 1=GrayScale 2=RGB) combobox
ComboBox2.Clear;
for i:=0 to ImageEnIO1.TWainParams.PixelType.Count-1 do
ComboBox2.Items.Add( COLORS[ ImageEnIO1.TWainParams.PixelType[i] ] );
ComboBox2.ItemIndex:=ImageEnIO1.TWainParams.PixelType.IndexOf(ImageEnIO1.TWainParams.PixelType.CurrentValue);
// frame
Edit3.Text:=FloatToStr(ImageEnIO1.TWainParams.AcquireFrameLeft);
Edit4.Text:=FloatToStr(ImageEnIO1.TWainParams.AcquireFrameTop);
Edit5.Text:=FloatToStr(ImageEnIO1.TWainParams.AcquireFrameRight);
Edit6.Text:=FloatToStr(ImageEnIO1.TWainParams.AcquireFrameBottom);
end;

// copy controls values to twain parameters
procedure TForm1.FillIn;
begin
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.BufferedTransfer:=CheckBox4.Checked;
end;

// Acquire
procedure TForm1.Button1Click(Sender: TObject);
begin
FillIn;
ImageEnIO1.Acquire;
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;

// enable/disable acquire frame
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
edit3.enabled:=CheckBox5.Checked;
edit4.enabled:=CheckBox5.Checked;
edit5.enabled:=CheckBox5.Checked;
edit6.enabled:=CheckBox5.Checked;
ImageEnIO1.TWainParams.AcquireFrameEnabled:=CheckBox5.Checked;
ImageEnIO1.TWainParams.Update;
FillBack;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if SaveImageEnDialog1.Execute then
ImageEnIO1.SaveToFile( SaveImageEnDialog1.FileName );
end;

end.

constantine 2007-06-15