zw版【转发·台湾nvp系列Delphi例程】HALCON Roberts1-优快云博客

本文介绍使用Delphi结合HALCON库进行图像边缘检测的方法。通过Roberts算子的不同选项（如roberts_max、gradient_max和gradient_sum），演示了如何读取图像、应用边缘检测算法并显示结果。此外，还展示了如何设置窗口、颜色和文字注释来清晰展示不同处理步骤的效果。

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

procedure TForm1.Button1Click(Sender: TObject);
var
img, img1: HImageX;
w, h: OleVariant;
rg: HRegionX;
begin
img := CoHImageX.Create;
img.ReadImage('clip');
w := img.GetImageSize(h);
HWindowX1.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowX1);
img1 := img.Roberts('roberts_max');
rg := img1.Threshold(50, 150);
HWindowX2.SetPart(0, 0, h - 1, w - 1);
HWindowX2.SetColor('white');
HWindowX2.SetDraw('margin');
img1.DispObj(HWindowX2);
rg.DispObj(HWindowX2);
HWindowX2.SetColor('red');
HWindowX2.SetTposition(10, 10);
HWindowX2.WriteString('roberts_max');
img1 := img.Roberts('gradient_max');
rg := img1.Threshold(50, 150);
HWindowX3.SetPart(0, 0, h - 1, w - 1);
HWindowX3.SetColor('white');
HWindowX3.SetDraw('margin');
img1.DispObj(HWindowX3);
rg.DispObj(HWindowX3);
HWindowX3.SetColor('red');
HWindowX3.SetTposition(10, 10);
HWindowX3.WriteString('gradient_max');
img1 := img.Roberts('gradient_sum');
rg := img1.Threshold(50, 150);
HWindowX4.SetPart(0, 0, h - 1, w - 1);
HWindowX4.SetColor('white');
HWindowX4.SetDraw('margin');
img1.DispObj(HWindowX4);
rg.DispObj(HWindowX4);
HWindowX4.SetColor('red');
HWindowX4.SetTposition(10, 10);
HWindowX4.WriteString('gradient_sum');
end;