zw版_zw中文增强版Halcon官方Delphi例程

【《zw版·delphi与halcon系列原创教程》
zw版_zw中文增强版Halcon官方Delphi例程

源码下载：http://files.cnblogs.com/files/ziwang/zw_match.zip

2016 zw中文增强版（delph2007，HALCON 11.01）

主要改动之处：
:: 将位于窗口class的私有变量，改为全局变量，便于分析，修改
:: 增加大量中文注解
:: 将原版的批量自动测量，改为手动单幅测量，便于观测效果
:: 多处节点，增加图像文件输出，便于理解，观测运行效果

注意A点，这个是中文增强版，增加的单步多节点截图，可以清楚看到相关细节。

http:www.cnblogs.com/ziwang/
《zw版·Halcon-delphi系列原创教程》

--------------
全部源码如下

unit zw_match;
//
// HALCON/Delphi pattern matching and measure example
//
// 2016 zw中文增强版（delph2007，HALCON 11.01）
//
// 主要改动之处：
// :: 将位于窗口class的私有变量，改为全局变量，便于分析，修改
// :: 增加大量中文注解
// :: 将原版的批量自动测量，改为手动单幅测量，便于观测效果
// :: 多处节点，增加图像文件输出，便于理解，观测运行效果
// ::
// ::
//
// http://www.cnblogs.com/ziwang/
//《zw版·Halcon-delphi系列原创教程》
//

interface

uses
HALCONXLib_TLB,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, StdCtrls, sMemo, ExtCtrls;

type
Tmwin = class(TForm)
HXCtrl: THWindowXCtrl;
CopyrightLabel: TLabel;
msg: TsMemo;
Panel1: TPanel;
CreateBtn: TButton;
StartBtn: TButton;
MatchingScoreLabel: TLabel;
MatchingTimeLabel: TLabel;
MatchingLabel: TLabel;
MeasureDistLabel: TLabel;
MeasureNumLabel: TLabel;
MeasureTimeLabel: TLabel;
MeasureLabel: TLabel;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure InitBtnClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure CreateBtnClick(Sender: TObject);
procedure StartBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
mwin: Tmwin;
xwin: HWindowX;
Framegrabber: HFramegrabberX;
Img, ImgReduced, ModelImage: HImageX;
RectangleRegion, ModelRegion, ModelRegionTrans: HRegionX;
Rectangle1, Rectangle2: HRegionX;
ShapeModel: HShapeModelX;
Matrix: HHomMat2DX;
Tuple: HTupleX;
Sys: HSystemX;
Measure1, Measure2: HMeasureX;
ImgWidth, ImgHeight: OleVariant;
Row, Column, Area: OleVariant;
Rect1Row, Rect1Col, Rect2Row, Rect2Col: Double;
RectPhi, RectLength1, RectLength2: Double;

implementation

{$R *.dfm}

//------------------
procedure initData();
var dss:string;
begin
with mwin do begin

//--------------
xwin.SetPart(0,0,491,645);//设置图像窗口尺寸
Img := Framegrabber.GrabImage();//从输入图像系列，加载图像
Img.DispObj(xwin);//显示图像
Img.WriteImage('png',0,'tmpImgSr');
//---------检测图像尺寸
ImgWidth:=Img.GetImageSize(ImgHeight);
dss:='pic wid,hei:'+VarToStr(ImgWidth)+','+VarToStr(ImgHeight);msg.Lines.Add(dss);msg.Lines.Add('');
//---------

RectangleRegion.GenRectangle1(188,182,298,412);//设置检测区坐标（Row,Column,wid,hei）//??
xwin.SetColor('red');//设置矩形颜色
xwin.SetDraw('margin');//设置填充方式，margin，为边框模式，fill，为填充模式
xwin.SetLineWidth(3);//设置笔画粗细
RectangleRegion.DispObj(xwin);;//显示矩形box
//--------------
Area :=RectangleRegion.AreaCenter(Row,Column);//获取box区域面积，中心位置
dss:='Row,Column : 188,182';msg.Lines.Add(dss);
dss:='Row2,Column2 : 298,412';msg.Lines.Add(dss);
dss:='box区域面积area : '+VarToStr(area);msg.Lines.Add(dss);
dss:='box区域大小wid,hei : '+VarToStr(412-182+1)+','+VarToStr(298-188+1);msg.Lines.Add(dss);
dss:='box区域中心位置Row,Column : '+VarToStr(Row)+','+VarToStr(Column);msg.Lines.Add(dss);
//-------- 设置加工区参数
Rect1Row := Row - 102;
Rect1Col := Column + 5;
Rect2Row := Row + 107;
Rect2Col := Column + 5;
RectPhi := 0;
RectLength1 := 170;
RectLength2 := 5;
end;
end;


procedure createShapeModel(); //创建加工模型 ShapeModel
begin
with mwin do begin
//----设置显示窗口参数
xwin.SetColor('red');xwin.SetDraw('margin');xwin.SetLineWidth(3);
RectangleRegion.DispObj(xwin);
//----设置model图像
ImgReduced := Img.ReduceDomain(RectangleRegion);
ModelImage := ImgReduced.InspectShapeModel(ModelRegion,1,30);
//ImgReduced.WriteImage('png',0,'tmpImgReduced');
//ModelImage.WriteImage('png',0,'tmpModelImage');
xwin.DumpWindow('png','tmpxwin_Shape01');
//------------建立辅助区域
Rectangle1.GenRectangle2(Rect1Row,Rect1Col,RectPhi,RectLength1,RectLength2);
Rectangle2.GenRectangle2(Rect2Row,Rect2Col,RectPhi,RectLength1,RectLength2);
//------------创建模型 ShapeModel
ShapeModel.CreateShapeModel(ImgReduced,4,0,Tuple.TupleRad(360),
Tuple.TupleRad(1),'none','use_polarity',30,10);
//----设置显示窗口参数
xwin.SetColor('green');xwin.SetDraw('fill');
ModelRegion.DispObj(xwin);
xwin.DumpWindow('png','tmpxwin_Shape02');
xwin.SetColor('blue'); xwin.SetDraw('margin');
Rectangle1.DispObj(xwin);Rectangle2.DispObj(xwin);
xwin.DumpWindow('png','tmpxwin_Shape03');
end;
end;

procedure DoMeasurement;
var
S1, S2: Double;
RowCheck, ColumnCheck, AngleCheck, Score: OleVariant;
Rect1RowCheck, Rect1ColCheck, Rect2RowCheck, Rect2ColCheck: OleVariant;
RowEdgeFirst1, ColumnEdgeFirst1: OleVariant;
AmplitudeFirst1, RowEdgeSecond1: OleVariant;
ColumnEdgeSecond1, AmplitudeSecond1: OleVariant;
IntraDistance1, InterDistance1: OleVariant;
RowEdgeFirst2, ColumnEdgeFirst2: OleVariant;
AmplitudeFirst2, RowEdgeSecond2: OleVariant;
ColumnEdgeSecond2, AmplitudeSecond2: OleVariant;
IntraDistance2, InterDistance2: OleVariant;
MinDistance: OleVariant;
NumLeads: Longint;
dss:string;
begin
// 本demo，演示的是如何测量IC针脚间的距离
with mwin do begin
Sys.SetSystem('flush_graphic','false');//曲线系统图像自动刷新
Img := Framegrabber.GrabImage();//设置新图像
Img.Dispobj(xwin);//显示加工图像
//----注意，Mea00sr.png与 ImgSr.png的不同，旋转了一个角度
//----Framegrabber图像源是系列图片，通过旋转模拟加工现场，
//----每次调用GrabImage，会自动更新
xwin.DumpWindow('png','tmpMea00sr');
// Find the IC in the current image. 匹配模型
S1 := Sys.CountSeconds;
RowCheck := ShapeModel.FindShapeModel(Img,0,Tuple.TupleRad(360),0.7,1,0.5,
'least_squares',4,0.7,ColumnCheck,
AngleCheck,Score);
S2 := Sys.CountSeconds;
MatchingTimeLabel.Caption := Format('Time: %4.2f',[(S2-S1)*1000]);
MatchingScoreLabel.Caption := 'Score: ';
xwin.DumpWindow('png','tmpMea01');
//dss:=VarToStr(High(RowCheck));msg.lines.Add(dss);
//-----找到模型，开始测量
if not VarIsEmpty(RowCheck) and not VarIsArray(RowCheck) then begin
MatchingScoreLabel.Caption := Format('Score: %7.5f',[double(Score)]);
// Rotate the model for visualization purposes.旋转模型
Matrix.VectorAngleToRigid(Row,Column,0,RowCheck,ColumnCheck,AngleCheck);
ModelRegionTrans := ModelRegion.AffineTransRegion(Matrix,'false');
xwin.SetColor('green');xwin.SetDraw('fill');
ModelRegionTrans.DispObj(xwin);
xwin.DumpWindow('png','tmpMea02');
// Compute the parameters of the measurement rectangles.
Rect1RowCheck := Matrix.AffineTransPixel(Rect1Row,Rect1Col,Rect1ColCheck);
Rect2RowCheck := Matrix.AffineTransPixel(Rect2Row,Rect2Col,Rect2ColCheck);
// For visualization purposes, generate the two rectangles as regions and
// display them.
Rectangle1.GenRectangle2(Rect1RowCheck,Rect1ColCheck,RectPhi+AngleCheck,
RectLength1,RectLength2);
Rectangle2.GenRectangle2(Rect2RowCheck,Rect2ColCheck,RectPhi+AngleCheck,
RectLength1,RectLength2);
xwin.SetColor('blue');xwin.SetDraw('margin');
Rectangle1.DispObj(xwin);Rectangle2.DispObj(xwin);
xwin.DumpWindow('png','tmpMea03');
// Do the actual measurements.开始测量
S1 := Sys.CountSeconds;
Measure1.GenMeasureRectangle2(Rect1RowCheck,Rect1ColCheck,
RectPhi+AngleCheck,RectLength1,RectLength2,
ImgWidth,ImgHeight,'bilinear');
Measure2.GenMeasureRectangle2(Rect2RowCheck,Rect2ColCheck,
RectPhi+AngleCheck,RectLength1,RectLength2,
ImgWidth,ImgHeight,'bilinear');
RowEdgeFirst1 := Measure1.MeasurePairs(Img,2,90,'positive','all',
ColumnEdgeFirst1,AmplitudeFirst1,
RowEdgeSecond1,ColumnEdgeSecond1,
AmplitudeSecond1,IntraDistance1,
InterDistance1);
RowEdgeFirst2 := Measure2.MeasurePairs(Img,2,90,'positive','all',
ColumnEdgeFirst2,AmplitudeFirst2,
RowEdgeSecond2,ColumnEdgeSecond2,
AmplitudeSecond2,IntraDistance2,
InterDistance2);
S2 := Sys.CountSeconds;
MeasureTimeLabel.Caption := Format('Time: %4.2f',[(S2-S1)*1000]);
xwin.SetColor('red');
xwin.DispLine(Tuple.TupleSub(RowEdgeFirst1,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleSub(ColumnEdgeFirst1,Tuple.TupleMult(RectLength2,Sin(AngleCheck))),
Tuple.TupleAdd(RowEdgeFirst1,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleAdd(ColumnEdgeFirst1,Tuple.TupleMult(RectLength2,Sin(AngleCheck))));
xwin.DumpWindow('png','tmpMea041');
xwin.DispLine(Tuple.TupleSub(RowEdgeSecond1,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleSub(ColumnEdgeSecond1,Tuple.TupleMult(RectLength2,Sin(AngleCheck))),
Tuple.TupleAdd(RowEdgeSecond1,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleAdd(ColumnEdgeSecond1,Tuple.TupleMult(RectLength2,Sin(AngleCheck))));
xwin.DumpWindow('png','tmpMea042');
xwin.DispLine(Tuple.TupleSub(RowEdgeFirst2,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleSub(ColumnEdgeFirst2,Tuple.TupleMult(RectLength2,Sin(AngleCheck))),
Tuple.TupleAdd(RowEdgeFirst2,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleAdd(ColumnEdgeFirst2,Tuple.TupleMult(RectLength2,Sin(AngleCheck))));
xwin.DumpWindow('png','tmpMea043');
xwin.DispLine(Tuple.TupleSub(RowEdgeSecond2,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleSub(ColumnEdgeSecond2,Tuple.TupleMult(RectLength2,Sin(AngleCheck))),
Tuple.TupleAdd(RowEdgeSecond2,Tuple.TupleMult(RectLength2,Cos(AngleCheck))),
Tuple.TupleAdd(ColumnEdgeSecond2,Tuple.TupleMult(RectLength2,Sin(AngleCheck))));
xwin.DumpWindow('png','tmpMea044');
NumLeads := (Tuple.TupleLength(IntraDistance1)+Tuple.TupleLength(IntraDistance2));
MeasureNumLabel.Caption := Format('Number of leads: %2d',[NumLeads]);
MinDistance := Tuple.TupleMin(Tuple.TupleConcat(InterDistance1,InterDistance2));
MeasureDistLabel.Caption := Format('Minimum lead distance: %6.3f',[double(MinDistance)]);
end;
xwin.DumpWindow('png','tmpMea09');
end;
Sys.SetSystem('flush_graphic','true');
// Force the graphics window to be updated by displaying an empty circle.
xwin.DispCircle(-1,-1,0);
end;

//------------------

procedure Tmwin.FormCreate(Sender: TObject);
begin
Set8087CW($27f);//设置FPU浮点计算参数，一般很少见
HXCtrl.ControlInterface.QueryInterface(IID_IHWindowX,xwin);//设置Halcon控件接口
Framegrabber := CoHFramegrabberX.Create;//设置图像输入，文件或相机
ShapeModel := CoHShapeModelX.Create;//创建匹配模型变量
//---------------
RectangleRegion := CoHRegionX.Create;//建立一个矩形，作为检测区
Rectangle1 := CoHRegionX.Create;//建立辅助测区
Rectangle2 := CoHRegionX.Create;//建立辅助测区

Matrix := CoHHomMat2DX.Create;//建立 矩阵变量，用于传递模型参数
Tuple := CoHTupleX.Create;//建立 Tuple元组变量，用于传递模型参数
Sys := CoHSystemX.Create;//建立sys系统变量，修改系统设置
Measure1 := CoHMeasureX.Create;//建立检测变量
Measure2 := CoHMeasureX.Create;//建立检测变量
//--------------
msg.Clear;
//--------------
{
OpenFramegrabber函数声明
变量Device：输入图像列表文件名，其他变量，一般采用默认参数
procedure OpenFramegrabber(Name:OleVariant; HorizontalResolution:OleVariant;
VerticalResolution:OleVariant; ImageWidth:OleVariant; ImageHeight:OleVariant;
StartRow:OleVariant; StartColumn:OleVariant; Field:OleVariant;
BitsPerChannel:OleVariant; ColorSpace:OleVariant; Generic:OleVariant;
ExternalTrigger:OleVariant; CameraType:OleVariant;
Device:OleVariant;
Port:OleVariant; LineIn:OleVariant; out AcqHandle:OleVariant);
}

Framegrabber.OpenFramegrabber('File',1,1,0,0,0,0,'default',-1,'default',
-1,'default','pic/board.seq','default',1,-1);
msg.Lines.Add('pic from : '+'pic/board.seq');msg.Lines.Add('');
//-------------


end;

procedure Tmwin.FormDestroy(Sender: TObject);
begin
FreeAndNil(HXCtrl);
// Framegrabber:=nil;ShapeModel:=nil; xwin:=nil;img:=nil;box:=nil;
end;

procedure Tmwin.FormShow(Sender: TObject);
begin
initData;
//-----
CreateBtn.Enabled := True;
StartBtn.Enabled := False;
end;

procedure Tmwin.InitBtnClick(Sender: TObject);
begin
initData;
end;


procedure Tmwin.StartBtnClick(Sender: TObject);
begin
DoMeasurement;
end;

procedure Tmwin.CreateBtnClick(Sender: TObject);
begin
createShapeModel();
StartBtn.Enabled :=true;
end;

end.

【《zw版·delphi与halcon系列原创教程》,网址，cnblogs.com/ziwang/】