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

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

 

procedure TForm1.Button1Click(Sender: TObject);
var
img, img1 : THImageX;
value : OleVariant;
//tuple : THTupleX;
w, h : OleVariant;
begin
//tuple := THTupleX.Create(nil);
img := THImageX.Create(nil);
img.ReadImage('ic0');
w := img.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0,0,h-1,w-1);
img.DispObj(HWindowXCtrl1.HalconWindow);
value := img.ObjToInteger(1,-1);
//ShowMessage(tuple.TupleSelect(value,0));
img1 := THImageX.Create(nil);
img1.IntegerToObj(value);
w := img1.GetImageSize(h);
HWindowXCtrl2.HalconWindow.SetPart(0,0,h-1,w-1);
img1.DispObj(HWindowXCtrl2.HalconWindow);
//ShowMessage(IntToStr(img.TestEqualObj(img1.DefaultInterface)));
img1.Free;
img.Free;
//tuple.Destroy;
end;

----------------

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

 

procedure TForm1.Button1Click(Sender: TObject);
var
img, img1 : THImageX;
value : OleVariant;
//tuple : THTupleX;
w, h : OleVariant;
begin
//tuple := THTupleX.Create(nil);
img := THImageX.Create(nil);
img.ReadImage('ic0');
w := img.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0,0,h-1,w-1);
img.DispObj(HWindowXCtrl1.HalconWindow);
value := img.ObjToInteger(1,-1);
//ShowMessage(tuple.TupleSelect(value,0));
img1 := THImageX.Create(nil);
img1.IntegerToObj(value);
w := img1.GetImageSize(h);
HWindowXCtrl2.HalconWindow.SetPart(0,0,h-1,w-1);
img1.DispObj(HWindowXCtrl2.HalconWindow);
//ShowMessage(IntToStr(img.TestEqualObj(img1.DefaultInterface)));
img1.Free;
img.Free;
//tuple.Destroy;
end;

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

 

procedure TForm1.Button1Click(Sender: TObject);
var
img, img1 : HImageX;
value : OleVariant;
w, h : OleVariant;
filename : OleVariant;
tuple : HTupleX;
begin
tuple := CoHTupleX.Create;
img := CoHImageX.Create;
filename := VarArrayOf(['ic0', 'keypad', 'ic_pin', 'pcb']);
img.ReadImage(filename);
value := img.ObjToInteger(1,-1);
img1 := CoHImageX.Create();
img1.IntegerToObj(value);
w := img1.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,0)-1,tuple.TupleSelect(w,0)-1);
img1.SelectObj(1).DispObj(HWindowXCtrl1.HalconWindow);
HWindowXCtrl2.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,1)-1,tuple.TupleSelect(w,1)-1);
img1.SelectObj(2).DispObj(HWindowXCtrl2.HalconWindow);
HWindowXCtrl3.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,2)-1,tuple.TupleSelect(w,2)-1);
img1.SelectObj(3).DispObj(HWindowXCtrl3.HalconWindow);
HWindowXCtrl4.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,3)-1,tuple.TupleSelect(w,3)-1);
img1.SelectObj(4).DispObj(HWindowXCtrl4.HalconWindow);
img1 := nil;
img := nil;
tuple := nil;
end;

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

 

procedure TForm1.Button1Click(Sender: TObject);
var
img, img1 : HImageX;
value : OleVariant;
w, h : OleVariant;
filename : OleVariant;
tuple : HTupleX;
ho_Region, ho_Region1 : HRegionX;
begin
tuple := CoHTupleX.Create;
img := CoHImageX.Create;
filename := VarArrayOf(['ic0', 'ic_pin', 'pcb', 'pcb_layout']);
img.ReadImage(filename);
ho_Region := img.BinThreshold();
value := img.ObjToInteger(1,-1);
img1 := CoHImageX.Create();
img1.IntegerToObj(value);
value := ho_Region.ObjToInteger(1, -1);
ho_Region1 := CoHRegionX.Create;
ho_Region1.IntegerToObj(value);
w := img1.GetImageSize(h);
HWindowXCtrl1.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,0)-1,tuple.TupleSelect(w,0)-1);
HWindowXCtrl1.HalconWindow.SetDraw('margin');
HWindowXCtrl1.HalconWindow.SetColor('red');
img1.SelectObj(1).DispObj(HWindowXCtrl1.HalconWindow);
ho_Region1.SelectObj(1).DispObj(HWindowXCtrl1.HalconWindow);
HWindowXCtrl2.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,1)-1,tuple.TupleSelect(w,1)-1);
HWindowXCtrl2.HalconWindow.SetDraw('margin');
HWindowXCtrl2.HalconWindow.SetColor('red');
img1.SelectObj(2).DispObj(HWindowXCtrl2.HalconWindow);
ho_Region1.SelectObj(2).DispObj(HWindowXCtrl2.HalconWindow);
HWindowXCtrl3.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,2)-1,tuple.TupleSelect(w,2)-1);
HWindowXCtrl3.HalconWindow.SetDraw('margin');
HWindowXCtrl3.HalconWindow.SetColor('red');
img1.SelectObj(3).DispObj(HWindowXCtrl3.HalconWindow);
ho_Region1.SelectObj(3).DispObj(HWindowXCtrl3.HalconWindow);
HWindowXCtrl4.HalconWindow.SetPart(0,0,tuple.TupleSelect(h,3)-1,tuple.TupleSelect(w,3)-1);
HWindowXCtrl4.HalconWindow.SetDraw('margin');
HWindowXCtrl4.HalconWindow.SetColor('red');
img1.SelectObj(4).DispObj(HWindowXCtrl4.HalconWindow);
ho_Region1.SelectObj(4).DispObj(HWindowXCtrl4.HalconWindow);
img1 := nil;
img := nil;
tuple := nil;
ho_Region := nil;
ho_Region1 := nil;
end;