我现在做的一个程序需要控制扫描仪扫描图像。
我的操作系统是win2000简体专业版,使用Delphi7。
我想通过添加ActiveX空间Kodak系列来控制扫描仪,但是按照现在论坛上诸位牛人提供的如下控制代码实现一下,可是没有控制成功。procedure Tscanf.N1Click(Sender: TObject);
begin
ImgScan1.ShowSelectScanner;
//选择系统中已安装的扫描仪
end;procedure Tscanf.N2Click(Sender: TObject);
begin
imgedit1.zoom:=100; //设置图象的放缩因子
if not imgscan1.ScannerAvailable then
//如果选择的扫描仪不可用
imgscan1.OpenScanner;//打开扫描仪
imgscan1.StartScan; //开始扫描图象
imgscan1.CloseScanner; //关闭扫描仪
end;procedure Tscanf.N8Click(Sender: TObject);
begin
if (imgedit1.IsClipboardDataAvailable
and imgedit1.ImageDisplayed ) then
imgedit1.ClipboardPaste(selleft,seltop);
//从剪贴板粘贴图象,其参数为Imgedit的显示区域的起始坐标
end;procedure Tscanf.N1801Click(Sender: TObject);
begin
if imgedit1.ImageDisplayed then
imgedit1.Flip; //镜象图象
end;procedure Tscanf.N901Click(Sender: TObject);
begin
if imgedit1.ImageDisplayed then
imgedit1.RotateRight //向右旋转图象
end;procedure Tscanf.N6Click(Sender: TObject);
begin
imgedit1.DrawSelectionRect(selleft,
seltop,selwidth,selheight);//进行图象局部选择
imgedit1.ClipboardCut(selleft,seltop,
selwidth,selheight);//剪切所选区域
end;代码在
if not imgscan1.ScannerAvailable then
 里直接跳过,说明扫描仪没有控制成功。但是我用扫描仪自身的控制程序,则是可以控制的。
另外,使用http://218.56.11.178/default.aspx
-》软件基地-》源码-》delphi/kylix->控制扫描仪的例子
里提供的演示程序,又是可以驱动的。但我下载了ImageEnIO控件,下载地址:
http://218.56.11.178/default.aspx
-》软件基地-》控件-》delphi/kylix->ImageEn v2.0.7执行完setup程序后,不知道该怎么添加ImageEnIO控件,我使用的是Delphi7。上面两个问题,请csdn论坛上的各位牛人帮我解决解决!小弟在此先行谢过!

解决方案 »

  1.   

    附注:我们使用的扫描仪是usb接口。
    使用Kodak控制的,能否将源代码发到我信箱里?
    [email protected]谢谢!
      

  2.   

    可以用,但是在98和XP下有兼容性问题,还是直接用Twain.dll比较好
      

  3.   

    首先保证你的扫描仪的驱动要装好,如PHOTOSHOP等软件可以调用,有些在XP/2000下确实不用安装驱动程序,但要确认,可以被系统识别,然后用那个程序来控制就没问题了
      

  4.   

    if not imgscan1.ScannerAvailable then
     里直接跳过,说明扫描仪没有控制成功。但是我用扫描仪自身的控制程序,则是可以控制的。
    另外,使用http://218.56.11.178/default.aspx
    -》软件基地-》源码-》delphi/kylix->控制扫描仪的例子
    里提供的演示程序,又是可以驱动的。但我下载了ImageEnIO控件,下载地址:
    http://218.56.11.178/default.aspx
    -》软件基地-》控件-》delphi/kylix->ImageEn v2.0.7是厨子介绍的东西,问他就对了
      

  5.   

    看到你的消息,做了一下实验,下边的方法应该没问题,你试试:
    控件包解压后,有两个文件:DImageEn.msi keygen.exe 关闭DELPHI,双击DImageEn.msi运行,安装过程中会提示输入NAME和SERIAL,用keygen.exe生成一个,继续就可以了,打开DELPHI,会发现控件栏多出ImageEn页,其中17个控件。打开例程,可能会提示缺少ImageEnView.dcu等文件,一般在:
    C:\Program Files\HiComponents\DImageEn\Delphi7可以按如下方法配置:方法1: 
    先从windows的资源管理器中将dcu文件搜索出来; 
    菜单:project->Options->翻到Directories/Conditionals->点击“Search  path”后边三个点的小按钮,配上dcu文件所在路径即可。 方法2: 
    菜单:Tools->Environment    Options->Library  将dcu文件所在路径加入到Library    Path中。 建议使用方法2,这样,其他的程序在用到该文件时就不需要再配置了。