zw版【转发·台湾nvp系列Delphi例程】HALCON SmallestRectangle2

procedure TForm1.Button1Click(Sender: TObject);
var
op : HOperatorSetX;
img : HUntypedObjectX;
w, h : OleVariant;
rg : HUntypedObjectX;
r1, r2 : OleVariant;
c1, c2 : OleVariant;
begin
op := CoHOperatorSetX.Create;
op.ReadImage(img, 'die_on_chip');
op.GetImageSize(img, w, h);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl1.HalconWindow);

op.Threshold(img, rg, 150, 255);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);
HWindowXCtrl2.HalconWindow.SetDraw('margin');
HWindowXCtrl2.HalconWindow.SetColor('red');
img.DispObj(HWindowXCtrl2.HalconWindow);
rg.DispObj(HWindowXCtrl2.HalconWindow);

op.SmallestRectangle1(rg, r1, c1, r2, c2);
op.GenRectangle1(rg, r1, c1, r2, c2);
HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);
HWindowXCtrl3.HalconWindow.SetDraw('margin');
HWindowXCtrl3.HalconWindow.SetColor('red');
img.DispObj(HWindowXCtrl3.HalconWindow);
rg.DispObj(HWindowXCtrl3.HalconWindow);
end;

最新文章

1. IOS - 消息推送原理和实现
2. 2012年湖南省程序设计竞赛E题 最短的名字
3. SQL 建表 插数据
4. 构建 MariaDB Galera Cluster 分布式数据库集群（一）
5. 【深度学习】keras + tensorflow 实现猫和狗图像分类
6. Ubuntu下deb包的解压、打包、安装、卸载及常用命令参数
7. MongoDB（一）环境搭建与初始配置
8. Centos7 update dotnet 无法识别
9. 基于Django rest framework 和Vue实现简单的在线教育平台
10. 【POJ1704】Georgia and Bob（博弈论）
11. mvn多环境下的配置
12. Oracle管理监控之rlwrap-0.37.tar.gz实现sqlplus上下翻页
13. 子类使用父类的方法 或属性时候 里面的this 代表的是自己
14. java-自定义标签&&JSTL标签库详解
15. 基于Python-Flask实现的网站例子
16. 「BZOJ 3280」小R的烦恼
17. c++ 批量初始化数组 fill和fill_n函数的应用
18. 【四】MongoDB索引管理
19. CvvImage在高级别的Opencv2.4.11下的配置以及错误解决办法。
20. ruby字符串处理

热门文章

1. ios atomic nonatomic区别
2. 扩展Spring切面
3. ELK之filebeat-redis-logstash-es构架模式
4. jquery 1.9 1.8 判断 浏览器（IE11,IE8,IE7,IE6）版本
5. HDU 4578 - Transformation - [加强版线段树]
6. ZOJ 4029 - Now Loading!!! - [前缀和+二分]
7. 怎么点击div之外的区域就隐藏这个div啊 找了很久，都没有很好解决
8. 详解Oracle多种表连接方式
9. Why is long2ip conversion important?
10. Spring Boot中的AutoConfiguation核心注解