《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需要初始化,配置,对于初学者而言,不太适合,再者,进行分析,结果主要是输出的图像文件,所有我们依然采用图像文件的模式。

全部代码如下:

 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/】

时间: 2025-01-16 18:17:05

《zw版·delphi与Halcon系列原创教程》THOperatorSetX版hello,zw的相关文章

《zw版·delphi与halcon系列原创教程》zw版_THImagex控件函数列表

<zw版·delphi与halcon系列原创教程>zw版_THImagex控件函数列表 Halcon虽然庞大,光HALCONXLib_TLB.pas文件,源码就要7w多行,但核心控件就是两个: THImagex,图像数据控件,v11版,包括488个函数和子程序 THOperatorSetX,操作主接口控件,v11版,包括1929个子程序 以上两大核心控件,已经删除个别delphi内部属性函数,不影响日常使用. 其他控件,基本上,都是为配合两个控件,提供数据类型支持.辅助功能.已经一些特殊应用(

《zw版&#183;ddelphi与halcon系列原创教程》Halcon的短板与delphi

[<zw版·delphi与Halcon系列原创教程>Halcon的短板与delphi 看过<delphi与Halcon系列>blog的网友都知道,笔者对Halcon一直是非常推崇的,简直是天下第一,无所不能.     的确,Halcon是目前蓝星上最强的图像库,也许某些国家军用卫星的图像库,精度会高一点,这个只能猜测.     Halcon毕竟只是图像库而已,作为开发平台,与专业的delphi.vs相比,还是有很大差距的.      有经验的用户,特别是从事二次开发的外包团队,采用

【《zw版&#183;Halcon与delphi系列原创教程》 zw_halcon人脸识别

[<zw版·Halcon与delphi系列原创教程> zw_halcon人脸识别 经常有用户问,halcon人脸识别方面的问题. 可能是cv在人脸识别.车牌识别方面的投入太多了. 其实,人脸识别.车牌识别,只是图像处理,机器视觉一个很小的领域,对于halcon而言,非常简单. 人脸识别.车牌识别,ocr.汉字识别原理.算法都差不多,自己建库就可以了. halcon与cv不同,面对的是工业(超市)流水线,建库基本是全自动的,扫描一下,和二维码差不多,就自动生成了相关的模型库. 非常简单,halc

《zw版&#183;Halcon-delphi系列原创教程》 zw版-Halcon常用函数Top100中文速查手册

<zw版·Halcon-delphi系列原创教程> zw版-Halcon常用函数Top100中文速查手册 Halcon函数库非常庞大,v11版有1900多个算子(函数). 这个Top版,对最常用的函数,做了中文说明,目前约250条,以后会逐步优化.增减. 目标是,类似常用英文单词500一样,做成<Halcon常用函数300条>.<halcon常用函数500条>等版本,方便大 家学习. 考虑到通用性,函数采用的是Halcon手册格式,没有转成delphi版,请大家注意.

《zw版&#183;Halcon-delphi系列原创教程》 Halcon分类函数017&#183;point点函数

<zw版·Halcon-delphi系列原创教程> Halcon分类函数017·point点函数 为方便阅读,在不影响说明的前提下,笔者对函数进行了简化: :: 用符号“**”,替换:“procedure” :: 用大写字母“X”,替换:“IHUntypedObjectX” :: 省略了字符:“const”.“OleVariant” [示例] 说明 函数: procedure AddNoiseWhiteContourXld( const Contours: IHUntypedObjectX;

《zw版&#183;Halcon-delphi系列原创教程》 Halcon分类函数007, match,图像匹配

<zw版·Halcon-delphi系列原创教程> Halcon分类函数007, match,图像匹配 为方便阅读,在不影响说明的前提下,笔者对函数进行了简化: :: 用符号“**”,替换:“procedure” :: 用大写字母“X”,替换:“IHUntypedObjectX” :: 省略了字符:“const”.“OleVariant” [示例] 说明 函数: procedure AddNoiseWhiteContourXld( const Contours: IHUntypedObject

《zw版&#183;Halcon-delphi系列原创教程》 Halcon分类函数006, image,影像处理(像素图)

<zw版·Halcon-delphi系列原创教程> Halcon分类函数006, image,影像处理(像素图) 为方便阅读,在不影响说明的前提下,笔者对函数进行了简化: :: 用符号“**”,替换:“procedure” :: 用大写字母“X”,替换:“IHUntypedObjectX” :: 省略了字符:“const”.“OleVariant” [示例] 说明 函数: procedure AddNoiseWhiteContourXld( const Contours: IHUntypedO

《zw版&#183;Halcon-delphi系列原创教程》 Halcon分类函数005&#183;graphics-obj,基本绘图单元,包括线段、矩形、椭圆、圆形

<zw版·Halcon-delphi系列原创教程> Halcon分类函数005·graphics-obj,基本绘图单元,包括线段.矩形.椭圆.圆形 graphics-obj,基本绘图单元,包括线段.矩形.椭圆.圆形 为方便阅读,在不影响说明的前提下,笔者对函数进行了简化: :: 用符号“**”,替换:“procedure” :: 用大写字母“X”,替换:“IHUntypedObjectX” :: 省略了字符:“const”.“OleVariant” [示例] 说明 函数: procedure

《zw版&#183;Halcon-delphi系列原创教程》 Halcon分类函数001&#183;3D函数

<zw版·Halcon-delphi系列原创教程> Halcon分类函数001·3D函数 为方便阅读,在不影响说明的前提下,笔者对函数进行了简化: :: 用符号“**”,替换:“procedure” :: 用大写字母“X”,替换:“IHUntypedObjectX” :: 省略了字符:“const”.“OleVariant” [示例] 说明 函数: procedure AddNoiseWhiteContourXld( const Contours: IHUntypedObjectX; out