zw版【转发·台湾nvp系列Delphi例程】CheckDifference1
2015-10-01 19:37
495 查看
zw版【转发·台湾nvp系列Delphi例程】CheckDifference1
procedure TForm1.Button1Click(Sender: TObject);
var
img, img1 : HImageX;
img2 : IHRegionX;
w , h : OleVariant;
mtype : OleVariant;
begin
img := CoHImageX.Create;
img.ReadImage('razors1');
img.GetImagePointer1(mtype, w, h);
HWindowX1.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowX1);
img1 := CoHImageX.Create;
img1.ReadImage('razors2');
HWindowX2.SetPart(0, 0, h - 1, w - 1);
img1.DispObj(HWindowX2);
img2 := img.CheckDifference(img1, 'diff_inside', 0, 0, 0, 0, 0);
HWindowX3.SetPart(0, 0, h - 1, w - 1);
img2.DispObj(HWindowX3);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
op.CloseWindow(HWindowX1.HalconID);
op.CloseWindow(HWindowX2.HalconID);
op.CloseWindow(HWindowX3.HalconID);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage('Delphi '+ IntToStr(Sizeof(Pointer)*8));
op := CoHOperatorSetX.Create;
op.SetCheck('~father');
HWindowX1 := CoHWindowX.Create();
HWindowX2 := CoHWindowX.Create();
HWindowX3 := CoHWindowX.Create();
HWindowX1.OpenWindow(0,0,Panel1.ClientWidth,Panel1.ClientHeight,Int64(Panel1.Handle),'visible','');
HWindowX2.OpenWindow(0,0,Panel2.ClientWidth,Panel2.ClientHeight,Int64(Panel2.Handle),'visible','');
HWindowX3.OpenWindow(0,0,Panel3.ClientWidth,Panel3.ClientHeight,Int64(Panel3.Handle),'visible','');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
img, img1 : HImageX;
img2 : IHRegionX;
w , h : OleVariant;
mtype : OleVariant;
begin
img := CoHImageX.Create;
img.ReadImage('razors1');
img.GetImagePointer1(mtype, w, h);
HWindowX1.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowX1);
img1 := CoHImageX.Create;
img1.ReadImage('razors2');
HWindowX2.SetPart(0, 0, h - 1, w - 1);
img1.DispObj(HWindowX2);
img2 := img.CheckDifference(img1, 'diff_inside', 0, 0, 0, 0, 0);
HWindowX3.SetPart(0, 0, h - 1, w - 1);
img2.DispObj(HWindowX3);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
op.CloseWindow(HWindowX1.HalconID);
op.CloseWindow(HWindowX2.HalconID);
op.CloseWindow(HWindowX3.HalconID);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ShowMessage('Delphi '+ IntToStr(Sizeof(Pointer)*8));
op := CoHOperatorSetX.Create;
op.SetCheck('~father');
HWindowX1 := CoHWindowX.Create();
HWindowX2 := CoHWindowX.Create();
HWindowX3 := CoHWindowX.Create();
HWindowX1.OpenWindow(0,0,Panel1.ClientWidth,Panel1.ClientHeight,Int64(Panel1.Handle),'visible','');
HWindowX2.OpenWindow(0,0,Panel2.ClientWidth,Panel2.ClientHeight,Int64(Panel2.Handle),'visible','');
HWindowX3.OpenWindow(0,0,Panel3.ClientWidth,Panel3.ClientHeight,Int64(Panel3.Handle),'visible','');
end;
相关文章推荐
- zw版【转发·台湾nvp系列Delphi例程】HALCON InpaintingCt2
- zw版【转发·台湾nvp系列Delphi例程】HALCON InpaintingCt1
- zw版【转发·台湾nvp系列Delphi例程】HALCON CropPart
- zw版【转发·台湾nvp系列Delphi例程】HALCON ObjToInteger1-4
- zw版【转发·台湾nvp系列Delphi例程】HALCON TestObjDef
- zw版【转发·台湾nvp系列Delphi例程】HALCON DispCross
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle2
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle1
- zw版【转发·台湾nvp系列Delphi例程】HALCON GenGridRegion
- zw版【转发·台湾nvp系列Delphi例程】HALCON AffineTransRegion
- zw版【转发·台湾nvp系列Delphi例程】HALCON AffineTransImage
- zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion2
- zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion1
- zw版【转发·台湾nvp系列Delphi例程】HALCON RegionToBin2
- zw版【转发·台湾nvp系列Delphi例程】HALCON RegionToBin1
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetGray
- zw版【转发·台湾nvp系列Delphi例程】HALCON color_fuses2
- zw版【转发·台湾nvp系列Delphi例程】HALCON color_fuses1
- zw版【转发·台湾nvp系列Delphi例程】HALCON EdgesImage
- zw版【转发·台湾nvp系列Delphi例程】HALCON 3D Position Of Circles