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

procedure TForm1.Button1Click(Sender: TObject);

var

image0, image1, result : HUntypedObjectX;

w, h : OleVariant;

op : HOperatorSetX;

begin

op := CoHOperatorSetX.Create;

op.ReadImage(image0, 'ic0');

op.GetImageSize(image0, w, h);

HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1);

op.DispObj(image0, HWindowXCtrl1.HalconWindow.HalconID);

op.ReadImage(image1, 'ic1');

HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1);

op.DispObj(image1, HWindowXCtrl2.HalconWindow.HalconID);

op.MaxImage(image0, image1, result);

HWindowXCtrl3.HalconWindow.SetPart(0, 0, h - 1, w - 1);

op.DispObj(result, HWindowXCtrl3.HalconWindow.HalconID);

op.ClearObj(image0);

op.ClearObj(image1);

end;