zw版【转发·台湾nvp系列Delphi例程】HALCON HighpassImage
zw版【转发·台湾nvp系列Delphi例程】HALCON HighpassImage
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, HALCONXLib_TLB;
type
TForm1 = class(TForm)
HWindowXCtrl1: THWindowXCtrl;
Button1: TButton;
HWindowXCtrl2: THWindowXCtrl;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
img : HImageX;
w , h : OleVariant;
mtype : OleVariant;
begin
img := CoHImageX.Create;
img.ReadImage('ic_pin');
img.GetImagePointer1(mtype, w, h);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl1.HalconWindow);
img := img.HighpassImage(9,9);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl2.HalconWindow);
end;
end.
转载于:https://www.cnblogs.com/ziwang/p/4851458.html
zw版【转发·台湾nvp系列Delphi例程】HALCON HighpassImage相关推荐
- 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 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 ...
最新文章
- 涉密文件检查工具_肇庆高要销毁资料文件公司粉碎销毁文件资料公司欢迎您
- AI 芯片和传统芯片的区别
- MVC与WebApi中的异常过滤器
- css样式重置，不建议用通配符
- php数组保存txt,php将数组存储为文本文件方法汇总，_PHP教程
- UNITY Destroy()和DestroyImadiate()都不会立即释放对象内存
- reactjs脚手架配置http-proxy-middleware代理解决跨域问题
- Integer’s Power HDU - 3208（容斥原理）
- 你真的知道怎么实现一个延迟队列吗 ？
- 配置高性能ElasticSearch集群的9个小贴士
- bigdecimal不保留小数_为什么 0.1 + 0.2 = 0.3，原来你不知道
- python中remove用法_python中remove的一些坑
- SAP HR工资核算基础(转)
- 中国四大运营商2G/3G/4G/5G工作频率以及网络制式
- 如何修改图片分辨率为300dpi？怎么样修改照片的分辨率？
- turtle绘制八边形、八角边形
- 在线分析图片上的字体
- matlab蒙特卡罗方法求体积_蒙特卡罗方法详细讲解与MATLAB实现.ppt
- VS2015安装失败
- 用C++封装一个简单的英汉词典