zw版【转发·台湾nvp系列例程】HALCON MirrorRegion (Delphi)
zw版【转发·台湾nvp系列例程】HALCON MirrorRegion (Delphi)
procedure TForm1.Button1Click(Sender: TObject);
var
img: HImageX;
w, h: OleVariant;
rg, rg1: HRegionX;
begin
img := CoHImageX.Create;
img.ReadImage('razors1');
w := img.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl1.HalconWindow);
rg := img.Threshold(100, 255);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);
rg.DispObj(HWindowXCtrl2.HalconWindow);
rg1 := rg.MirrorRegion('row', h);
HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);
rg1.DispObj(HWindowXCtrl3.HalconWindow);
rg1 := rg.MirrorRegion('column', w);
HWindowXCtrl4.HalconWindow.SetPart(0, 0, h - 1, w - 1);
rg1.DispObj(HWindowXCtrl4.HalconWindow);
rg1 := rg.MirrorRegion('row', h / 2);
HWindowXCtrl5.HalconWindow.SetPart(0, 0, h - 1, w - 1);
rg1.DispObj(HWindowXCtrl5.HalconWindow);
rg1 := rg.MirrorRegion('column', w / 2);
HWindowXCtrl6.HalconWindow.SetPart(0, 0, h - 1, w - 1);
rg1.DispObj(HWindowXCtrl6.HalconWindow);
img := nil;
end;
转载于:https://www.cnblogs.com/ziwang/p/4850982.html
zw版【转发·台湾nvp系列例程】HALCON MirrorRegion (Delphi)相关推荐
- 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 HistoToThresh1
zw版[转发·台湾nvp系列Delphi例程]HALCON HistoToThresh1 procedure TForm1.Button1Click(Sender: TObject); var ima ...
- 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 ...
最新文章
- 如何设置文字的位置html5,怎么设置文字在表格中的位置
- mysql字符集和表字符集_设置数据库的字符集和设置表字段字符集的区别是什么？...
- document.getElementsByTagName()方法的返回值
- XGBoost的基本使用应用Kaggle便利店销量预测
- java ssh 常用术语
- C/C++预处理宏的总结
- python调用libvirt_通过python获取kvm虚拟机的监控信息(基于libvirt API)
- 课时57.HTML被废弃的标签（掌握）
- agpl限制了开源_不要限制您的开源项目的潜力
- Linux下配置CentOS7网络设置 获取ip地址
- 每日一码——链表基本操作
- 兄弟9020cdn提示更换粉盒_兄弟打印机提示更换墨粉盒怎么办
- H.264/AVC原理介绍
- sap linux系统安装教程,SAP系统安装步骤 --- 46C OR 4.7
- 测试人员在工作中如何查日志？
- 多种前端框架的优缺点
- mysql数据库原理设计与应用在线pdf_《数据库原理与应用》[51MB]PDF完整版下载-码农之家...
- 第四篇机器学习投资组合——模型测试
- 老九学堂 学习C++ 第九天
- clover懒人_懒人气球驱动的互联网毕竟可能不是一个愚蠢的想法