Koda图像控件来开发图像软件,但是这四个控件不可以随同软件的分发而一同发放给客户。既然这些控件随同Windows 95, 98 NT and 2000一起安装,这也就基本限定了开发出来的图像软件只能在这几个安装了Windows映像程序附件的Windows平台上使用。这样以来,用这四个控件开发出来的软件必须同对应版本的Koda图像控件一同编译。而且,终端用户在安装软件之前还必须安装对应版本的映像
程序附件。
注意:打包时,一定不要把Kodka图像四控件与应用程序一块打包,因为这样是不能够正确安装Windows映像程序的。取而代之的是,终端用户应独立地安装映像程序以确保所有需要的控件的正确安装与
注册。必要的话,可以再次从Windows安装CD上重装映像
程序附件。
实践篇
一、 Kodak图像编辑控件应用举例
1) ImgEdit控件的主要属性是控制扫描图像的分辨率、图像的宽高、是否允许对图像进行局部选择等;其主要方法有拷贝、剪切图像到粘贴板,从粘贴板复制图像,旋转、放缩、 镜像图像;打印、保存、刷新图像等。
下面是使用这个控件的一些小例。
‘从剪贴板粘贴图象
Private Sub Paste_Click()
if (imgedit1.IsClipboardDataAvailable and imgedit1.ImageDisplayed ) then
‘从剪贴板粘贴图象,其参数为Imgedit的显示区域的起始坐标
imgedit1.ClipboardPaste(selleft,seltop)
end if
End Sub
‘镜像图像
Private Sub Flip_Click()
if imgedit1.ImageDisplayed then
imgedit1.Flip ‘镜像图像
end if
End Sub
‘旋转图象
Private Sub Rotate_Click()
if imgedit1.ImageDisplayed then
imgedit1.RotateRight ‘向右旋转图象
end if
End Sub
‘实现剪切
Private Sub Rotate_Click()
imgedit1.DrawSelectionRect(selleft, seltop,selwidth,selheight) ‘进行图象局部选择
imgedit1.ClipboardCut(selleft,seltop, selwidth,selheight) ‘剪切所选区域
End Sub
2) 另外,与ImgEdit控件绑定在一起的还有一个ImgAnnTool按钮控件,这一控件对应映像
程序中的“批注”工具栏。下面这个例子可以通过“批注”工具栏操作ImgEdit控件中的图像。只需如下极简代码便OK。
Private Sub Form_Load()
With ImgEdit1
.FitTo 0 ''BEST_FIT
.DisplayBlankImage 1700, 2200
.ShowAnnotationToolPalette ‘随后可使用“批注”工具栏操作当前图像文件
End With
End Sub
二、Kodak图像扫描控件应用举例
1) ImgScan控件的主要属性有:
a、FileType:图像的文件类型(该构件支持三种:TIFF,BMP,AWD);
b、ScanTo:返回或设置被扫描图像的目的;
可取值 含义
0 (缺省) 显示被扫描的图像.
1 显示被扫描的图像并写入一个文件.
2 把图像写入一个文件
3 以
模板方式把图像写入文件并显示.
4. 以
模板方式把图像写入文件
5 传真被扫描的图像
注意:如果取缺省值0,必须和 Wang ImgEdit 构件配合使用。
c、DestImageControl:Wang ImgEdit构件名;
d、Zoom:图像的放缩比例
2) ImgScan 的主要方法:
OpenScanner :打开扫描仪;
CloseScanner :关闭扫描仪;
StartScan : 开始扫描;
StopScan : 停止扫描
3) ImgScan使用举例
下面的
程序段说明了如何使用Kodak图像扫描控件扫描一份文档,并把它保存在函数参数指定的文件名中。注意,窗体中Kodak图像扫描控件命名为ImgScan1。
Private Function ScanTheImage(ByVal TheImageFile As String) As Boolean
Dim ReturnValue As Long
Dim TestString As String
If ImgScan1.ScannerAvailable then
ReturnValue = ImgScan1.OpenScanner()
ImgScan1.PageOption = 2
ImgScan1.FileType = 1