zw版【转发·台湾nvp系列Delphi例程】HALCON HistoToThresh1
zw版【转发·台湾nvp系列Delphi例程】HALCON HistoToThresh1
procedure TForm1.Button1Click(Sender: TObject);
var
image0 : HImageX;
rg : HRegionX;
AbsoluteHisto, RelativeHisto : OleVariant;
op : HOperatorSetX;
MinThresh, MaxThresh : OleVariant;
w, h : OleVariant;
begin
image0 := CoHImageX.Create;
image0.ReadImage('clip');
w := image0.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
image0.DispObj(HWindowXCtrl1.HalconWindow);
rg := image0.Threshold(60, 180);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);
image0.DispObj(HWindowXCtrl2.HalconWindow);
rg.DispObj(HWindowXCtrl2.HalconWindow);
AbsoluteHisto := rg.GrayHisto(image0, RelativeHisto);
op := CoHOperatorSetX.Create;
op.HistoToThresh(AbsoluteHisto, 2, MinThresh, MaxThresh);
rg := image0.Threshold(MinThresh[0], MaxThresh[0]);
HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);
image0.DispObj(HWindowXCtrl3.HalconWindow);
rg.DispObj(HWindowXCtrl3.HalconWindow);
end;
转载于:https://www.cnblogs.com/ziwang/p/4851111.html
zw版【转发·台湾nvp系列Delphi例程】HALCON HistoToThresh1相关推荐
- zw版【转发·台湾nvp系列Delphi例程】HALCON Histogram
zw版[转发·台湾nvp系列Delphi例程]HALCON Histogram unit Unit1; interface uses Windows, Messages, SysUtils, Vari ...
- zw版【转发·台湾nvp系列Delphi例程】HALCON HSerializedItem
zw版[转发·台湾nvp系列Delphi例程]HALCON HSerializedItem procedure TForm1.FormShow(Sender: TObject); var img, i ...
- zw版【转发·台湾nvp系列Delphi例程】HALCON SmoothImage
zw版[转发·台湾nvp系列Delphi例程]HALCON SmoothImage procedure TForm1.Button1Click(Sender: TObject); var image0 ...
- zw版【转发·台湾nvp系列Delphi例程】HALCON ZoomImageFactor2
zw版[转发·台湾nvp系列Delphi例程]HALCON ZoomImageFactor2 procedure TForm1.Button1Click(Sender: TObject); var o ...
- zw版【转发·台湾nvp系列Delphi例程】HALCON RegionToBin1
zw版[转发·台湾nvp系列Delphi例程]HALCON RegionToBin1 unit Unit1; interface uses Windows, Messages, SysUtils, V ...
- zw版【转发·台湾nvp系列Delphi例程】HALCON DispCross
zw版[转发·台湾nvp系列Delphi例程]HALCON DispCross procedure TForm1.Button1Click(Sender: TObject); var r, c : O ...
- zw版【转发·台湾nvp系列Delphi例程】HALCON HighpassImage
zw版[转发·台湾nvp系列Delphi例程]HALCON HighpassImage unit Unit1; interface uses Windows, Messages, SysUtils, ...
- zw版【转发·台湾nvp系列Delphi例程】HALCON DivImage2
zw版[转发·台湾nvp系列Delphi例程]HALCON DivImage2 procedure TForm1.Button1Click(Sender: TObject); var op : HOp ...
- zw版【转发·台湾nvp系列Delphi例程】.NET调用HALCON COM控件内存释放模式
zw版[转发·台湾nvp系列Delphi例程].NET调用HALCON COM控件内存释放模式 ------------------------------------ 方法一 : Imports S ...
最新文章
- android 52 粘滞广播
- 【学习笔记】mongoDB初步（一）MongoDB的安装和增删改查基本语法，使用和命令
- linux内存管理（十）-页表管理
- 把数据保存到cook_数据存储之HTTP Cookie
- 获取textarea每一行的内容_PLC编程的基本原则和方法，64页内容介绍PLC编程，值得收藏...
- Perl Fork的问题
- EMBER-网络安全恶意软件公开数据集，论文的翻译，自己的笔记
- 【Spark重点难点08】Spark3.0中的AQE和DPP小总结
- 噪音达到多少分贝就算是扰民
- Ceres Solver介绍
- CF1153D Serval and Rooted Tree
- 分别使用正则表达式的子模式编号和子模式命名两种方法匹配ABAC、AABB、ABAB式成语
- eclipse的安装和汉化
- 程序设计天梯赛选拔 大炮打蚊子(刷水题就变傻，确实，感觉自己变傻了)
- Alax技术实现的基本原理——XMLHttpRequest对象的使用
- 重装VMare出错：用户在命令行上发出了EULAS_AGREED=1,表示不接受许可协议
- 面部识别：猴脸识别如何分辨真假 “美猴王”？
- 九宫格心形拼图小程序源码/带流量主微信小程序源码
- 电音风格之Future Bass【待续】
- 02_SHELL编程之变量定义