2,749
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
glei_cs 2011-05-18
- 打赏
- 举报
如何发布kodak控件
十豆三 2011-05-16
- 打赏
- 举报
<如何使用Kodak图像扫描控件>
http://download.csdn.net/source/1697726
http://download.csdn.net/source/1697726
thinclient 2011-05-16
- 打赏
- 举报
笔者日前接手一款小数据库应用软件的开发，其内容涉及到使用程序直接控制扫描仪，我查找了很多资料都没有关于这方面的内容，也多次上网询问网友，但回答都是“在程序中直接控制扫描仪不是一个好主意”，后来我发现通过在VFP中插入适当的控件即可实现在VFP中直接控制扫描仪工作。现在将这一点体会公布出来，希望广大读者在开发类似的程序时能够借鉴一下。
在WINDOWS 95／98中自带一个名叫“映象”的小程序，如果你在安装WINDOWS时安装了它，我们就可以利用它提供的一个控件来完成这项工作。在WINDOWS95中这个控件称为“Wang图象控件”，在WINDOWS 98中被称为“Kodak图象控件”。
这个控件提供了图像扫描、图像打印、图像缩放、图像旋转、在图像上加标签、生成缩略图、图像文件管理等功能，并且这些功能的实现都可编程控制。这些控件的详细资料请参看Windows 95目录下的HelpWangocxd.hlp或windows 98下的Imgocxd.hlp。为了方便起见，我们下面以WINDOWS 98中“Kodak图象控件”为例进行说明，在WIN 95下的“Wang图象控件”与之相同。
现在假设我们已建有一个数据库tpdemo.dbf，内含字段“TP”，类型为通用类型。
创建表单“Form1.scx”，在表单中插入“ ActiveX 控件”（图一），在弹出的窗口中选择“插入控件”（图二），然后选择“Kodak图解扫描控件”，名称定为“imgscan”，同样插入“Kodak图解编辑控件”，名称为“imgedit1”。鼠标右键单击插入的图解扫描控件，选择“图象扫描控制特性（P）”对扫描进行设置，在“扫描”中选择“1－扫描并归档”，在“页选项”中选择“1－创建新文件并添加页”，在文件类型中选择“3－位图图象”（图三），然后再依次添加“tpsm－扫描”“tpsave－保存”“tc－退出”三个按钮，并置“tpsave.enabled=.f.”。整个表单完成后如图四所示。
tpsm.click过程为：
if thisform.imgscan.scanneravailable() &&如果安装了扫描仪
thisform.imgscan.DestImageControl=′imgedit1′&&扫描到imgedit1
thisform.imgscan.scanto=0
thisform.imgscan.startscan &&开始扫描
if thisform.imgscan.statuscode=0 &&扫描成功
thisform.tpsave.enabled=.t. &&允许保存
endif
else
messagebox(′扫描仪未安装好′,16)
endif
tpsave.click过程（保存按钮）为：
local m.filename
m.filename=sys(3)＋′.bmp′
thisform.imgedit1.saveas(m.filename,3,1,1,0,.t.) &&把扫描的图片存为文件
use tpdemo &&打开数据库
┄┄ &&加上定位的语句
appe gene tp from (filename) &&图像存入数据库
erase (filename) &&删除扫描产生的临时文件
tc.click过程为：
thisform.release
保存表单并执行，如果您安装了扫描仪的驱动程序并正确安装扫描仪的话，您就可以看见通过这个方法您就可以直接驱动扫描仪把图片扫到数据库中了。
由于程序是调用控件进行扫描，所以这种方法在VB、VC中也都应该能够实现，不过笔者对于这两种语言不熟悉，所以没有进行试验。
另外，“映象”程序提供的控件还可以直接生成JPEG格式的文件，在VFP6.0中可以直接支持JPEG文件，但是经我笔者多次调试，生成的JPEG文件均不能正确打开，仍有待各位高手指点。
作者：comtrf 发表时间：2006-6-14 18:51:00
第1楼
ScanTo：返回或设置被扫描图像的目的；
可取值
含义
0
(缺省)显示被扫描的图像.
1
显示被扫描的图像并写入一个文件.
2
把图像写入一个文件
3
以模板方式把图像写入文件并显示.
4.
以模板方式把图像写入文件
5
传真被扫描的图像
thisform.imgscan.scanto=2
ThisForm.ImgScan.image = TheImageFile &&图像将被保存
该控件支持一下文件格式：AWD，GIF，TIFF，BMP，JPG，WIFF，DCX，PCX和XIF。
注意：AWD格式在Windows NT 4.0中不能使用。XIF和WIFF仅能在Windows 98中使用。
在WINDOWS 95／98中自带一个名叫“映象”的小程序，如果你在安装WINDOWS时安装了它，我们就可以利用它提供的一个控件来完成这项工作。在WINDOWS95中这个控件称为“Wang图象控件”，在WINDOWS 98中被称为“Kodak图象控件”。
这个控件提供了图像扫描、图像打印、图像缩放、图像旋转、在图像上加标签、生成缩略图、图像文件管理等功能，并且这些功能的实现都可编程控制。这些控件的详细资料请参看Windows 95目录下的HelpWangocxd.hlp或windows 98下的Imgocxd.hlp。为了方便起见，我们下面以WINDOWS 98中“Kodak图象控件”为例进行说明，在WIN 95下的“Wang图象控件”与之相同。
现在假设我们已建有一个数据库tpdemo.dbf，内含字段“TP”，类型为通用类型。
创建表单“Form1.scx”，在表单中插入“ ActiveX 控件”（图一），在弹出的窗口中选择“插入控件”（图二），然后选择“Kodak图解扫描控件”，名称定为“imgscan”，同样插入“Kodak图解编辑控件”，名称为“imgedit1”。鼠标右键单击插入的图解扫描控件，选择“图象扫描控制特性（P）”对扫描进行设置，在“扫描”中选择“1－扫描并归档”，在“页选项”中选择“1－创建新文件并添加页”，在文件类型中选择“3－位图图象”（图三），然后再依次添加“tpsm－扫描”“tpsave－保存”“tc－退出”三个按钮，并置“tpsave.enabled=.f.”。整个表单完成后如图四所示。
tpsm.click过程为：
if thisform.imgscan.scanneravailable() &&如果安装了扫描仪
thisform.imgscan.DestImageControl=′imgedit1′&&扫描到imgedit1
thisform.imgscan.scanto=0
thisform.imgscan.startscan &&开始扫描
if thisform.imgscan.statuscode=0 &&扫描成功
thisform.tpsave.enabled=.t. &&允许保存
endif
else
messagebox(′扫描仪未安装好′,16)
endif
tpsave.click过程（保存按钮）为：
local m.filename
m.filename=sys(3)＋′.bmp′
thisform.imgedit1.saveas(m.filename,3,1,1,0,.t.) &&把扫描的图片存为文件
use tpdemo &&打开数据库
┄┄ &&加上定位的语句
appe gene tp from (filename) &&图像存入数据库
erase (filename) &&删除扫描产生的临时文件
tc.click过程为：
thisform.release
保存表单并执行，如果您安装了扫描仪的驱动程序并正确安装扫描仪的话，您就可以看见通过这个方法您就可以直接驱动扫描仪把图片扫到数据库中了。
由于程序是调用控件进行扫描，所以这种方法在VB、VC中也都应该能够实现，不过笔者对于这两种语言不熟悉，所以没有进行试验。
另外，“映象”程序提供的控件还可以直接生成JPEG格式的文件，在VFP6.0中可以直接支持JPEG文件，但是经我笔者多次调试，生成的JPEG文件均不能正确打开，仍有待各位高手指点。
作者：comtrf 发表时间：2006-6-14 18:51:00
第1楼
ScanTo：返回或设置被扫描图像的目的；
可取值
含义
0
(缺省)显示被扫描的图像.
1
显示被扫描的图像并写入一个文件.
2
把图像写入一个文件
3
以模板方式把图像写入文件并显示.
4.
以模板方式把图像写入文件
5
传真被扫描的图像
thisform.imgscan.scanto=2
ThisForm.ImgScan.image = TheImageFile &&图像将被保存
该控件支持一下文件格式：AWD，GIF，TIFF，BMP，JPG，WIFF，DCX，PCX和XIF。
注意：AWD格式在Windows NT 4.0中不能使用。XIF和WIFF仅能在Windows 98中使用。
