《zw版·delphi与halcon系列原创教程》hello,zw

《zw版·delphi与halcon系列原创教程》hello,zw

按惯例，第一个程序是‘hello’
毕竟，Halcon是专业的图像库，所以我们就不用纯文本版的，来一个专业版、Halcon图像版的hello程序。

首先，记得在代码文件头部的模块引用"uses",当中，加入：HALCONXLib_TLB 模块名

另外，在exe程序输出目录下，建立一个tmp子目录，这个目录是zw系列教程的统一输出目录。

下面我们输入以下代码，建立v1版的hello子程序:hello_zw01

 procedure hello_zw01();
 var
 ximg:THImageX;
 begin
 ximg := THImageX.Create(nil);
 ximg.ReadImage('tmp\hello_zw.png');
 
 ximg.writeImage('png', , 'tmp\zw01.png');
 ximg.writeImage('png',, 'tmp\zw02');
 
 FreeAndNil(ximg);
 end;

源码说明：

1 ，子程序名称：hello_zw01

2-3，定义变量 ximg，类型是:THImageX;
5 ，创建ximg变量， THImageX.Create(nil);
6，读入图像文件， ximg.ReadImage('tmp\hello_zw.png');

8， 保存图像文件，方法1，ximg.writeImage('png', 0, 'tmp\zw01.png');
9 ，保存图像文件，方法2，ximg.writeImage('png',0, 'tmp\zw02');

11 ，释放ximg变量内存空间

【注意】

源码第6行，读入图像文件， ximg.ReadImage('tmp\hello_zw.png');

delphi版，与Halcon内置脚本、c、c#等版本语句有所不同：read_image(imgNam,ImageFileName)

Halcon内置脚本、c、c#版，‘图像读入’语句，带有下划线；

另外，函数参数变量有两个，第一个imgNam，是图像文件载入后的内部变量名；第2个变量，ImageFileName，才是文件名

源码第8行，第9行，都是‘图像保存’语句：WriteImage

根据接口文件：HALCONXLib_TLB.pas源码,定义如下：

procedure WriteImage(const Format: WideString; FillColor: OleVariant; FileName: OleVariant); safecall;

变量说明：

Format，输出文件格式

FillColor，填充颜色，一般为0

FileName，输出文件名

因为，Halcon在‘图像保存’语句：WriteImage当中，定义了图像格式，所以保存图像文件时，文件名可以省略后缀名称。

源码第9行:

ximg.writeImage('png',0, 'tmp\zw02');

ok，现在运行v1版，奇怪，居然出错，

运行记得下载，并使用本文附带的配套图片文件，复制到tmp子目录下。

附件文件 http://files.cnblogs.com/files/ziwang/hello_zw_pic.zip

因为我们 的图像文件：tmp\hello_zw.png，是32位的，带alpha通道，与Halcon内部的有所不同。

这点，在Halcon手册里面有特别说明，尤其是在使用c、c#、delphi进行控件模式开发时。

你可以用photoshop，或者xnview等软件，取消图像的alpha通道，按24位保存，就可以了。

现在我们修改源码第9行，改为

ximg.ReadImage('tmp\hello_zw24.png');

图像文件：hello_zw24.png，是24位格式的，再次运行

ok，顺利执行，用xnview等看图软件，浏览tmp目录，会发现除:tmp\hello_zw.png,tmp\hello_zw24.png,两个原文件外

多了两个新的图像文件：tmp\zw01.png、tmp\zw02.png

【《zw版·delphi与halcon系列原创教程》,网址，cnblogs.com/ziwang/】