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核心注解