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

最新推荐文章于 2023-11-25 21:01:49 发布

weixin_34168880

最新推荐文章于 2023-11-25 21:01:49 发布

阅读量105

点赞数

CC 4.0 BY-SA版权

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

本文介绍了台湾nvp系列Delphi例程中的HALCONFillUp2过程，详细展示了如何使用Delphi进行图像处理，包括读取图像、获取图像尺寸、显示图像、阈值处理、填充操作等关键步骤。

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

procedure TForm1.Button1Click(Sender: TObject);
var
op : HOperatorSetX;
img : HUntypedObjectX;
rg, rg1 : HUntypedObjectX;
w, h : OleVariant;
begin
op := CoHOperatorSetX.Create;
op.ReadImage(img, 'progres');
op.GetImageSize(img, w, h);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
op.DispObj(img, HWindowXCtrl1.HalconWindow.HalconID);
op.Threshold(img, rg, 150, 255);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);
op.DispObj(rg, HWindowXCtrl2.HalconWindow.HalconID);
op.FillUp(rg, rg1);
HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);
op.DispObj(rg1, HWindowXCtrl3.HalconWindow.HalconID);
end;