《在Visual Basic 6中实现Kodak控件编程》由会员分享，可在线阅读，更多相关《在Visual Basic 6中实现Kodak控件编程（5页珍藏版）》请在金锄头文库上搜索。
1、在在 VisualVisual BasicBasic 6 6 中实现中实现 KodakKodak 控件编程控件编程一、一、KodakKodak 控件介绍控件介绍映像 KODAKIMG.EXE 是 Windows 95/ 98/NT 和 Windows 2000 中用于图像扫描、浏览和编辑的附件程序（在 WINDOWS 安装过程中是可选的），分为自由版和专业版（需另外购买）。在 Windows 的安装过程中，4 个 OCX Kodak 控件（Kodak 图像编辑控件、Kodak图像管理控件、Kodak 图像扫描控件及 Kodak 图像缩略图控件）随着自由版映像程序的安装也被一同安装。这四个控件被
2、允许用于任何的 Windows 开发工具中来开发与图像有关的软件产品。当然，自由版的映像程序限制并隐藏了这四个控件的一些属性和方法；比如，编辑控件的 DeSpeckle 方法仅限于结合专业版的映像程序使用。另外值得一提的是，专业版的映像程序通过引入新的图像 OCR 控件提供了扩展的图像处理能力。还有，Windows 映像程序并没有随着 Windows ME 及 Windows XP 一同分发。在新的系统中，微软想以“图像与电传浏览程序”和“扫描仪与相机向导”取而代之。要在新系统上使用Windows 映像程序，必须另行购买 Windows 映像程序专业版本；但如果从 Windows 2000系统
3、升级到 XP，依然有映像程序及四个控件可用。 1. Kodak 图像管理控件（非可视化方式）本控件提供以下功能来管理图像文件：1) 创建与删除目录；2) 创建与删除图像文件；3) 打开、保存与打印图像文档；4) 添加、插入和替换包含多幅图像的图像文件（如 tiff）中的图像；5) 管理图像文件的属性；2. Kodak 图像编辑控件（可视化方式）Kodak 图像编辑控件提供了显示、注释和操纵图像的功能。而且，这个注释功能是从OCX 控件内部提供的。该控件支持一下文件格式：AWD，GIF，TIFF，BMP，JPG，WIFF，DCX，PCX 和 XIF。注意：AWD 格式在 Windows NT 4
4、.0 中不能使用。GIF 和 WIFF 仅能在 Windows 98 中使用。图像注释Kodak 图像编辑控件提供了图像注释功能，这通过几个属性，方法及事件来实现。注释功能允许应用程序给当前显示的图像添加注释。注释类型包括：Straight Line，Freehand Line，Hollow Rectangle，Filled Rectangle，Image Embedded，Image Reference，Text，Text Stamp，Text From File 和 Attack-a-Note。图像注释功能可以通过编程来控制，也可以通过激活一个标准的图像注释工具栏来实现而不需要一句编程。图
5、像操纵图像编辑控件提供许多属性，方法和事件让开发者实现图像的操纵。遗憾的是，其大多只能在专业版中使用。自由版提供了诸如：旋转，倒转和剪贴板操作等基本功能。3. Kodak 图像扫描控件（非可视化方式）Kodak 图像扫描控件提供通过 TWAIN 接口来扫描文档的功能，能同符合 TWAIN 协议的任何扫描仪和数字相机通讯。本控件提供下列功能：1) 应用程序可以扫描与保存图像文档；2) 扫描单幅或多幅的图像文档；3) 可以在已存在的文档中添加或插入多幅已实现的图像。4. Kodak 图像缩略图控件（可视化方式）本控件提供显示多页图像文件的缩略图预览功能。其典型应用是：与 Kodak 图像管理控件结
6、合给多页图像文件添加、插入或删除一个页面。二、用二、用 KodaKoda 控件开发软件及注意事项控件开发软件及注意事项1. 使用 Koda 图像控件编程 在 Windows 平台 Visual Basic6 开发环境中，只需在工程中包含 Kodak 图像控件即可用于开发。方式是：点击菜单“Project”“components”，在组件对话框中，勾选Kodak 图像四控件。随后，四控件出现在控件工具栏中，拖动或双击这些控件到 VB 表单上即可。2. 用映像程序专业版开发软件的说明开发过程中如果使用了 Windows 映像程序的专业版相应控件提供的一些属性、方法、事件或参数，那么要求终端用户机器
7、上也应安装映像程序专业版本。当然，这个专业版本是需要破费的。3. 关于编译和分发软件的说明开发商可以用 Koda 图像控件来开发图像软件，但是这四个控件不可以随同软件的分发而一同发放给客户。既然这些控件随同 Windows 95, 98 NT and 2000 一起安装，这也就基本限定了开发出来的图像软件只能在这几个安装了 Windows 映像程序附件的 Windows平台上使用。这样以来，用这四个控件开发出来的软件必须同对应版本的 Koda 图像控件一同编译。而且，终端用户在安装软件之前还必须安装对应版本的映像程序附件。注意：打包时，一定不要把 Kodka 图像四控件与应用程序一块打包，因为
8、这样是不能够正确安装 Windows 映像程序的。取而代之的是，终端用户应独立地安装映像程序以确保所有需要的控件的正确安装与注册。必要的话，可以再次从 Windows 安装 CD 上重装映像程序附件。实践篇实践篇一、一、 KodakKodak 图像编辑控件应用举例图像编辑控件应用举例1) ImgEdit 控件的主要属性是控制扫描图像的分辨率、图像的宽高、是否允许对图像进行局部选择等；其主要方法有拷贝、剪切图像到粘贴板，从粘贴板复制图像，旋转、放缩、 镜像图像；打印、保存、刷新图像等。下面是使用这个控件的一些小例。从剪贴板粘贴图象Private Sub Paste_Click()if (imge
9、dit1.IsClipboardDataAvailable and imgedit1.ImageDisplayed ) then 从剪贴板粘贴图象，其参数为 Imgedit 的显示区域的起始坐标imgedit1.ClipboardPaste(selleft,seltop)end ifEnd Sub镜像图像Private Sub Flip_Click()if imgedit1.ImageDisplayed thenimgedit1.Flip 镜像图像end ifEnd Sub旋转图象Private Sub Rotate_Click()if imgedit1.ImageDisplayed then
10、imgedit1.RotateRight 向右旋转图象end ifEnd Sub实现剪切Private Sub Rotate_Click()imgedit1.DrawSelectionRect(selleft, seltop,selwidth,selheight) 进行图象局部选择imgedit1.ClipboardCut(selleft,seltop, selwidth,selheight) 剪切所选区域End Sub2) 另外，与 ImgEdit 控件绑定在一起的还有一个 ImgAnnTool 按钮控件，这一控件对应映像程序中的“批注”工具栏。下面这个例子可以通过“批注”工具栏操作 Img
11、Edit控件中的图像。只需如下极简代码便 OK。Private Sub Form_Load()With ImgEdit1.FitTo 0 BEST_FIT.DisplayBlankImage 1700, 2200.ShowAnnotationToolPalette 随后可使用“批注”工具栏操作当前图像文件End WithEnd Sub二、二、KodakKodak 图像扫描控件应用举例图像扫描控件应用举例1) ImgScan 控件的主要属性有：a、FileType：图像的文件类型（该构件支持三种：TIFF，BMP，AWD）；b、ScanTo：返回或设置被扫描图像的目的；可取值含义0 (缺省)显示
12、被扫描的图像.1 显示被扫描的图像并写入一个文件.2 把图像写入一个文件3 以模板方式把图像写入文件并显示.4. 以模板方式把图像写入文件5 传真被扫描的图像注意：如果取缺省值 0，必须和 Wang ImgEdit 构件配合使用。c、DestImageControl：Wang ImgEdit 构件名；d、Zoom：图像的放缩比例2) ImgScan 的主要方法：OpenScanner ：打开扫描仪；CloseScanner ：关闭扫描仪； StartScan ： 开始扫描；StopScan ： 停止扫描3) ImgScan 使用举例下面的程序段说明了如何使用 Kodak 图像扫描控件扫描一份文
13、档，并把它保存在函数参数指定的文件名中。注意，窗体中 Kodak 图像扫描控件命名为 ImgScan1。Private Function ScanTheImage(ByVal TheImageFile As String) As BooleanDim ReturnValue As LongDim TestString As StringIf ImgScan1.ScannerAvailable thenReturnValue = ImgScan1.OpenScanner()ImgScan1.PageOption = 2ImgScan1.FileType = 1ImgScan1.PageType
14、= 1ImgScan1.CompressionType = 4ImgScan1.CompressionInfo = 1ImgScan1.ScanTo = 2 保存为文件ImgScan1.image = TheImageFile 图像将被保存ImgScan1.ShowSetupBeforeScan = TrueImgScan1.MultiPage = TrueReturnValue = ImgScan1.StartScan()DoEventsImgScan1.CloseScannerTestString = Dir(TheImageFile)If TestString “ ThenScanThe
15、Image = TrueEnd IfElseMsgbox “扫描设备尚不可用”Exit functionEnd IfEnd Function三、联合应用举例三、联合应用举例本文附加了 eiStream 公司的 Windows 映像程序控件开发参考例程中的“Imaging Sample”一例（此程序在 Windows 98/VB6 下调试通过）。本例程对除了 ImgOCR 外四个 自由控件的主要功能作了详细讨论。详见源程序” Imaging Sample.rar”。四、小结四、小结以上四个 Kodak 控件主要威力在于：图像注释功能、多页图像文件的的管理能力、 缩略图预览功能、图像扫描功能。对于专业版本，还有图像 OCR 功能。以上仅为抛砖引 玉，读者可以结合 Windows 的 HELP 文件夹下的帮助文件 Imgocxd.hlp 等有关资料详细研 究。
