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

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

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

(Delphi XE)
procedure TForm1.Button1Click(Sender: TObject);
var
img: HImageX;
w, h: OleVariant;
ht: HTupleX;
mode: OleVariant;
begin
ht := CoHTupleX.Create;
img := CoHImageX.Create;
img.ReadImage('pellets');
w := img.GetImageSize(h);
mode := ht.TupleConcat(ht.TupleConcat(ht.TupleConcat('histogram', h), w), 1);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl1.HalconWindow);
HWindowXCtrl2.HalconWindow.SetPart(0, 0, Integer(1.5 * h) - 1, Integer(1.2 * w) - 1);
HWindowXCtrl2.HalconWindow.SetPaint(mode);
img.DispObj(HWindowXCtrl2.HalconWindow);
img := img.EquHistoImage;
HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl3.HalconWindow);
HWindowXCtrl4.HalconWindow.SetPart(0, 0, Integer(1.5 * h) - 1, Integer(1.2 * w) - 1);
HWindowXCtrl4.HalconWindow.SetPaint(mode);
img.DispObj(HWindowXCtrl4.HalconWindow);
img := nil;
ht := nil;
end;

--------------
(Delphi )
procedure TForm1.Button1Click(Sender: TObject);
var
img : HImageX;
w, h : OleVariant;
ht : HTupleX;
mode : OleVariant;
begin
ht := CoHTupleX.Create;
img := CoHImageX.Create;
img.ReadImage('pellets');
w := img.GetImageSize(h);

mode := ht.TupleConcat(ht.TupleConcat(ht.TupleConcat('histogram', h), w), 1);
HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl1.HalconWindow);

HWindowXCtrl2.HalconWindow.SetPart(0, 0, 1.5 * h - 1, 1.2 * w - 1);
HWindowXCtrl2.HalconWindow.SetPaint(mode);
img.DispObj(HWindowXCtrl2.HalconWindow);
img := img.EquHistoImage;

HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);
img.DispObj(HWindowXCtrl3.HalconWindow);
HWindowXCtrl4.HalconWindow.SetPart(0, 0, 1.5 * h - 1, 1.2 * w - 1);
HWindowXCtrl4.HalconWindow.SetPaint(mode);
img.DispObj(HWindowXCtrl4.HalconWindow);
end;