zw版【转发·台湾nvp系列Delphi例程】HALCON HSerializedItem
procedure TForm1.FormShow(Sender: TObject);var img, img1 : HImageX; w, h : OleVariant; mySerializedItem : HSerializedItemX;begin img := CoHImageX.Create; img.ReadImage('ic0'); w := img.GetImageSize(h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); HWindowXCtrl1.HalconWindow.DispImage(img); mySerializedItem := img.SerializeImage; img1 := CoHImageX.Create; img1.DeserializeImage(mySerializedItem); w := img1.GetImageSize(h); HWindowXCtrl2.HalconWindow.SetPart(0, 0, h - 1, w - 1); HWindowXCtrl2.HalconWindow.DispImage(img1);end;
精彩内容
发表评论