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

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


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, HALCONXLib_TLB;
type
TForm1 = class(TForm)
HWindowXCtrl1: THWindowXCtrl;
Button1: TButton;
HWindowXCtrl2: THWindowXCtrl;
HWindowXCtrl3: THWindowXCtrl;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ho_Image : HImageX;
hv_Width, hv_Height : OleVariant;
ho_Region : HRegionX;
ho_InpaintedImage : HImageX;
begin
ho_Image := CoHImageX.Create();
ho_Image.ReadImage('lynx');
hv_Width := ho_Image.GetImageSize(hv_Height);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, hv_Height - 1, hv_Width - 1);
ho_Image.DispObj(HWindowXCtrl1.HalconWindow);
ho_Region := coHRegionX.Create();
ho_Region.ReadRegion('lynx_mask');
HWindowXCtrl2.HalconWindow.SetColor('blue');
HWindowXCtrl2.HalconWindow.SetPart(0, 0, hv_Height - 1, hv_Width- 1);
ho_Region.DispObj(HWindowXCtrl2.HalconWindow);
ho_InpaintedImage := ho_Image.InpaintingCt(ho_Region, 13, 70, 1.2, 4, 1);
HWindowXCtrl3.HalconWindow.SetPart(0, 0, hv_Height - 1, hv_Width- 1);
ho_InpaintedImage.DispObj(HWindowXCtrl3.HalconWindow);
end;
end.

转载于:https://www.cnblogs.com/ziwang/p/4851235.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值