zw版【转发·台湾nvp系列Delphi例程】HALCON Roberts2
zw版【转发·台湾nvp系列Delphi例程】HALCON Roberts2
procedure TForm1.Button1Click(Sender: TObject);
var
op: HOperatorSetX;
img, img1: HUntypedObjectX;
w, h: OleVariant;
rg: HUntypedObjectX;
begin
op := CoHOperatorSetX.Create;
op.ReadImage(img, 'clip');
op.GetImageSize(img, w, h);
HWindowX1.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowX1);
op.Roberts(img, img1, 'roberts_max');
op.Threshold(img1, rg, 50, 150);
HWindowX2.SetPart(0, 0, h - 1, w - 1);
HWindowX2.SetColor('white');
HWindowX2.SetDraw('margin');
img1.DispObj(HWindowX2);
rg.DispObj(HWindowX2);
HWindowX2.SetColor('red');
HWindowX2.SetTposition(10, 10);
HWindowX2.WriteString('roberts_max');
op.Roberts(img, img1, 'gradient_max');
op.Threshold(img1, rg, 50, 150);
HWindowX3.SetPart(0, 0, h - 1, w - 1);
HWindowX3.SetColor('white');
HWindowX3.SetDraw('margin');
img1.DispObj(HWindowX3);
rg.DispObj(HWindowX3);
HWindowX3.SetColor('red');
HWindowX3.SetTposition(10, 10);
HWindowX3.WriteString('gradient_max');
op.Roberts(img, img1, 'gradient_sum');
op.Threshold(img1, rg, 50, 150);
HWindowX4.SetPart(0, 0, h - 1, w - 1);
HWindowX4.SetColor('white');
HWindowX4.SetDraw('margin');
img1.DispObj(HWindowX4);
rg.DispObj(HWindowX4);
HWindowX4.SetColor('red');
HWindowX4.SetTposition(10, 10);
HWindowX4.WriteString('gradient_sum');
end;
最新文章
- python中获取指定目录下所有文件名列表的程序
- 工厂方法模式与IoC/DI
- lecture2-NN结构的主要类型的概述和感知机
- 字符串核对之Boyer-Moore算法
- mongodb数据库实践笔记
- MySQL数据库表中有usage字段名后的后果
- 重构17-Extract Superclass(提取父类)
- matlab和本机MySQL链接
- ubuntu vim 7.4 编译安装
- IIS MIME类型问题(html5 video 本地打开可以,IIS打开不了)
- iBatis基础知识
- 别以为真懂Openstack: 虚拟机创建的50个步骤和100个知识点(1)
- ng-app&;data-ng-app
- Vue学习之路8-v-on指令学习简单事件绑定之属性
- bzoj千题计划298:bzoj3997: [TJOI2015]组合数学
- PHP中封装Redis购物车功能
- 配置LNPM
- 〖Linux〗gun screen 配置文件
- 使用Fiddler发送POST请求
- javascript商务通
热门文章
- Minix中的字符判定ctype.c
- ansible的优化
- cadence allegro 封装焊盘编号修改 (引脚编号修改)
- 数字模型制作规范(转自Unity3D群)
- 服务器群秒级别文件同步(ssh+SHELL)
- easyui datagrid 加载 历险记(dom中已经加载,fit:true 时改变浏览器大小是会显示出来)
- 把Asp.Net Core 2.0部署在Linux上,使用Nginx代理服务器,并且用Systemctl命令以服务的方式监听项目
- poj3261 Milk Patterns【后缀数组】【二分】
- redis 事务 even when a command fails, all the other commands in the queue are processed
- PL/SQL常用语法及举例