zw版【转发·台湾nvp系列Delphi例程】HALCON CropPart

最新推荐文章于 2024-12-08 09:00:00 发布

转载最新推荐文章于 2024-12-08 09:00:00 发布 · 171 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ziwang/p/4851229.html

本文提供了一个使用HALCON进行图像处理的Delphi示例代码。通过BinThreshold和CropPart等函数实现图像的二值化及特定区域的裁剪，并在HalconWindow中展示原始图像、二值化结果及裁剪后的图像。

zw版【转发·台湾nvp系列Delphi例程】HALCON CropPart

procedure TForm1.Button1Click(Sender: TObject);
var
ho_Egypt1 : HImageX;
ho_Egypt2 : HImageX;
ho_Region : IHRegionX;
w, h : OleVariant;
Rows, Columns: OleVariant;
ht : HTupleX;
begin
ho_Egypt1 := CoHImageX.Create;
ho_Egypt1.ReadImage('screw_thread');
w := ho_Egypt1.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
ho_Egypt1.DispObj(HWindowXCtrl1.HalconWindow);
ho_Region := ho_Egypt1.BinThreshold;
ho_Egypt1 := ho_Egypt1.ChangeDomain(ho_Region);
w := ho_Egypt1.GetImageSize(h);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);
HWindowXCtrl2.HalconWindow.SetColor('red');
HWindowXCtrl2.HalconWindow.SetDraw('margin');
HWindowXCtrl2.HalconWindow.ClearWindow;
ho_Egypt1.DispObj(HWindowXCtrl2.HalconWindow);
ho_Region.DispObj(HWindowXCtrl2.HalconWindow);

Rows := ho_Region.GetRegionPoints(Columns);
ht := CoHTupleX.Create;
ho_Egypt2 := ho_Egypt1.CropPart(ht.TupleMin(Rows), ht.TupleMin(Columns), ht.TupleMax(Columns) - ht.TupleMin(Columns) + 1, ht.TupleMax(Rows) - ht.TupleMin(Rows) + 1);
w := ho_Egypt2.GetImageSize(h);
HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);
HWindowXCtrl3.HalconWindow.SetColor('red');
HWindowXCtrl3.HalconWindow.SetDraw('margin');
HWindowXCtrl3.HalconWindow.ClearWindow;
ho_Egypt2.DispObj(HWindowXCtrl3.HalconWindow);

ho_Egypt1 := ho_Egypt1.FullDomain;
ho_Egypt2 := ho_Egypt1.CropPart(ht.TupleMin(Rows), ht.TupleMin(Columns), ht.TupleMax(Columns) - ht.TupleMin(Columns) + 1, ht.TupleMax(Rows) - ht.TupleMin(Rows) + 1);
w := ho_Egypt2.GetImageSize(h);
HWindowXCtrl4.HalconWindow.SetPart(0, 0, h - 1, w - 1);
HWindowXCtrl4.HalconWindow.SetColor('red');
HWindowXCtrl4.HalconWindow.SetDraw('margin');
HWindowXCtrl4.HalconWindow.ClearWindow;
ho_Egypt2.DispObj(HWindowXCtrl4.HalconWindow);
end;