zw版【转发·台湾nvp系列Delphi例程】HALCON Cast 使用方式

zw版【转发·台湾nvp系列Delphi例程】HALCON Cast 使用方式

procedure TForm1.Button1Click(Sender: TObject);
var
img, img1 : HImageX;
img2, img3 : IHUntypedObjectX;
w , h : OleVariant;
mtype : OleVariant;
begin
img := CoHImageX.Create;
img.ReadImage('fabrik');
img.GetImagePointer1(mtype, w, h);
op.SetPart(WindowHandle1, 0, 0, h - 1, w - 1);
op.GenEmptyObj(img2);
img2.Cast(img as IHObjectX);
op.DispObj(img2, WindowHandle1);
img1 := img.AddNoiseWhite(90);
op.SetPart(WindowHandle2, 0, 0, h - 1, w - 1);
op.GenEmptyObj(img3);
img3.Cast(img1 as IHObjectX);
op.DispObj(img3, WindowHandle2);
op.ClearObj(img2);
op.ClearObj(img3);
end;