zw版【转发·台湾nvp系列Delphi例程】HALCON Cast 使用方式
2015-10-01 19:38
323 查看
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;
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;
相关文章推荐
- zw版【转发·台湾nvp系列Delphi例程】CheckDifference1
- zw版【转发·台湾nvp系列Delphi例程】HALCON InpaintingCt2
- zw版【转发·台湾nvp系列Delphi例程】HALCON InpaintingCt1
- zw版【转发·台湾nvp系列Delphi例程】HALCON CropPart
- zw版【转发·台湾nvp系列Delphi例程】HALCON ObjToInteger1-4
- zw版【转发·台湾nvp系列Delphi例程】HALCON TestObjDef
- zw版【转发·台湾nvp系列Delphi例程】HALCON DispCross
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle2
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetLineStyle1
- zw版【转发·台湾nvp系列Delphi例程】HALCON GenGridRegion
- zw版【转发·台湾nvp系列Delphi例程】HALCON AffineTransRegion
- zw版【转发·台湾nvp系列Delphi例程】HALCON AffineTransImage
- zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion2
- zw版【转发·台湾nvp系列Delphi例程】HALCON OverpaintRegion1
- zw版【转发·台湾nvp系列Delphi例程】HALCON RegionToBin2
- zw版【转发·台湾nvp系列Delphi例程】HALCON RegionToBin1
- zw版【转发·台湾nvp系列Delphi例程】HALCON SetGray
- zw版【转发·台湾nvp系列Delphi例程】HALCON color_fuses2
- zw版【转发·台湾nvp系列Delphi例程】HALCON color_fuses1
- zw版【转发·台湾nvp系列Delphi例程】HALCON EdgesImage