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

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


下面介绍v3版的hello,zw。
Halcon两大核心控件,THImagex、THOperatorSetX控件。

THImagex控件效率极高,可以视为内部数据交换模式,但与标准的Halcon函数有所差异,建议有经验的用户使用。
THOperatorSetX控件,采用类似仿真的模式,向Halcon模块提供脚本指令,由Halcon系统处理后,生成结果数据,再回传给delphi、c等开发系统。指令与Halcon完全一致,便于初学者掌握。

我们已经学过THImagex控件,现在介绍如何使用THOperatorSetX控件,编写:hello,zw
通常教程,THOperatorSetX控件,都是与THWindowX可视化控件,配合使用。
不过THWindowX需要初始化,配置,对于初学者而言,不太适合,再者,图像分析,结果主要是输出的图像文件,通常是多个图像文件,采用xnview等看图软件更加实用、方便,所以,我们依然采用图像文件的模式。

不过实际图像工程中,因为Halcon的绘图函数line、circle等,对于THWindowX更加方便,因此往往是结合THImagex、THWindowX(通过THOperatorSetX控件)一起使用。
此外,vc、vb、delphi等二次控件开发模式,除利用com、net两大核心控件,THImagex、THOperatorSetX控件外。
Halcon还通过了另外一种hdevenginex(hdev引擎)模式,这种模式类似shell,在Halcon系统外,加了一层运行界面层,可以直接调用hdevelop的脚本文件‘hdev’,不过实际应用当中,因为无法深度耦合,用的极少。



全部代码如下:

 1 procedure hello_zw03();
 2 var
 3 xset:THOperatorSetX;
 4 img,img2:IHUntypedObjectX;
 5 w,h:OleVariant;
 6 begin
 7 xset:=THOperatorSetX.create(nil);
 8 with mwin do begin
 9 xset.readImage (img, 'tmp\hello_zw24.png');
10 xset.getImageSize (img, w, h);
11 
12 xset.Rgb1ToGray(img,img2);
13 xset.writeImage(img2,'png',0,'tmp\hello_zw30.png')
14 end;
15 FreeAndNil(xset);
16 //FreeAndNil(img);FreeAndNil(img2); 无法释放img的内存
17 //img.Dispose();//c# 有Dispose释放方法,delphi版没有
18 end;

因为是v3版本的hello了,所以做了些增强。

【源码说明】

第10行,xset.getImageSize (img, w, h);

获取图像宽度w、高度h注意,变量w、h,必须是 OleVariant类型,Variant、integer都不行。

第12行,xset.Rgb1ToGray(img,img2);

图像变换,转换我灰度图

第16,17行,释放img变量所占内存,出错,很奇怪,所以用注释

16 //FreeAndNil(img);FreeAndNil(img2); 无法释放img的内存

17 //img.Dispose();//c# 有Dispose释放方法,delphi版没有

c、c#版图像控件有.Dispose方法,释放内存,delphi版没有,

奇怪,难道是自动释放,或者这个是delphi版内存泄露的罪魁祸首

有时间,用专业的内存分析软件,检测一下

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

posted @ 2015-10-02 18:31  统领  阅读(1144)  评论(0编辑  收藏  举报