文/朱先中
实践篇
一、 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 ImgScan1.PageType = 1 ImgScan1.CompressionType = 4 ImgScan1.CompressionInfo = 1 ImgScan1.ScanTo = 2 ‘保存为文件 ImgScan1.image = TheImageFile ‘图像将被保存 ImgScan1.ShowSetupBeforeScan = True ImgScan1.MultiPage = True ReturnValue = ImgScan1.StartScan() DoEvents ImgScan1.CloseScanner TestString = Dir(TheImageFile) If TestString <> "" Then ScanTheImage = True End If Else Msgbox “扫描设备尚不可用” Exit function End If End Function |
三、联合应用举例
本文附加了eiStream公司的Windows映像程序控件开发参考例程中的“Imaging Sample”一例(此程序在Windows 98/VB6下调试通过)。本例程对除了ImgOCR外四个自由控件的主要功能作了详细讨论。详见源程序” Imaging Sample.rar”。
四、小结
以上四个Kodak控件主要威力在于:图像注释功能、多页图像文件的的管理能力、缩略图预览功能、图像扫描功能。对于专业版本,还有图像OCR功能。以上仅为抛砖引玉,读者可以结合Windows的HELP文件夹下的帮助文件Imgocxd.hlp等有关资料详细研究。
[上一页]  [1]  [2]