zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle2 procedure TForm1.Button1Click(Sender: TObject);var img : HImageX; rg : HRegionX; w, h : OleVariant; val : OleVariant;begin img := CoHImageX.Create; img.ReadImage(‘rings_and_nuts‘); w := img.GetImageSize(h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); img.DispObj(HWindowXCtrl1.HalconWindow); val := VarArrayOf([3, 1]); r...
zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion2unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, HALCONXLib_TLB;type TForm1 = class(TForm) HWindowXCtrl1: THWindowXCtrl; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations }...
zw版【转发·台湾nvp系列Delphi例程】HALCON MaxImage2procedure TForm1.Button1Click(Sender: TObject);var image0, image1, result : HUntypedObjectX; w, h : OleVariant; op : HOperatorSetX;begin op := CoHOperatorSetX.Create; op.ReadImage(image0, ‘ic0‘); op.GetImageSize(image0, w, h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); op.DispObj(image0, HWindowXCtrl1.HalconWindow.HalconID); ...
zw版【转发·台湾nvp系列Delphi例程】HALCON DivImage1 procedure TForm1.Button1Click(Sender: TObject);var img0, img1, result : HImageX; w, h : OleVariant;begin img0 := CoHImageX.Create; img0.ReadImage(‘traffic1‘); w := img0.GetImageSize(h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); img0.DispObj(HWindowXCtrl1.HalconWindow); img1 := CoHImageX.Create; img1.ReadI...
《zw版·Halcon-delphi系列原创教程》cgal与opencv,Halcon opencv作为少有的专业开源图像软件,虽然功能,特别是几何计算方面,不如Halcon,不过因为开源,作为教学,讲解图像分析原理,还是不错的。 不过,笔者个人认为,老牌开源几何计算库CGAL,同样是开源软件,作为图像教学可能更加适合。 实际图像工程当中,必须使用opencv的环境,笔者往往也是opencv+cgal的模式。 cgal虽然对于delphi的支持很差,不过对...
[原创]K8_Delphi源码免杀系列教程[2014]虽是2014年的,但免杀思路方法并未过时比如函数动态调用\代码注释法等至今依然有效链接:https://pan.baidu.com/s/1HgiFvSwNm8An1eaOYx2n8A 提取码:ka58 原文:https://www.cnblogs.com/k8gege/p/10486696.html
zw版【转发·台湾nvp系列Delphi例程】HALCON DirectShowunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, HALCONXLib_TLB, StdCtrls, ExtCtrls;type TForm1 = class(TForm) HWindowXCtrl1: THWindowXCtrl; Button1: TButton; Timer1: TTimer; procedure FormShow(Sender: TObject); procedure Button1Click(Sender: TObject); proce...
zw版【转发·台湾nvp系列Delphi例程】HALCON HImage与Bitmap格式转换 (Delphi Prism)namespace HImage_Bitmap_Prism;interfaceuses System.Drawing, System.Collections, System.Collections.Generic, System.Windows.Forms, System.ComponentModel, System.Drawing, System.Drawing.Imaging, System.Runtime.InteropServices, HalconDotNet ;type /// <summary> /// Summary description for MainForm. /// </summary...
zw版【转发·台湾nvp系列Delphi例程】HALCON DispCross procedure TForm1.Button1Click(Sender: TObject);var r, c : OleVariant; val : OleVariant;begin randomize; r := VarArrayOf([30, 60, 90, 120, 150, 180]); c := VarArrayOf([30, 80, 100, 160, 240, 300]); val := VarArrayOf([‘red‘, ‘green‘, ‘blue‘, ‘white‘, ‘yellow‘, ‘magenta‘]); HWindowXCtrl1.HalconWindow.ClearWindow(); HWindowXCtrl1.H...
《zw版·Halcon-delphi系列原创教程》航母舰载机·视觉定位标志的识别代码 航母舰载机机身上的黄黑圆圈的标志是什么意思,辐射?核动力?战术核弹? 《百度百科》介绍如下 这是工业数字摄影测量的人工标志 数字摄影测量(Basic concept of digital photogrammetry)是基于数字影像和摄影测量的基本原理,应用计算机技术、数字影像处理、影像匹配、模式识别 等多学科的理论与方法,提取所摄对像以数字方式表达的几...
zw版【转发·台湾nvp系列Delphi例程】HALCON CheckDifference unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, HALCONXLib_TLB;type TForm1 = class(TForm) HWindowXCtrl1: THWindowXCtrl; Button1: TButton; HWindowXCtrl2: THWindowXCtrl; HWindowXCtrl3: THWindowXCtrl; procedure Button1Click(Sender: TObject); priv...