with the UserDataVect delphi example it's not possible to save a Tif file. I have Zstream format error.
I have made this modification for test with Tiff File, the Annotation is Save and Load but not the ObjUserData:
// Open procedure TMainForm.Button1Click(Sender: TObject); var filename:string; begin if OpenDialog1.Execute then begin filename:=OpenDialog1.FileName; if IsKnownFormat(filename) then begin ImageEnVect1.IO.LoadFromFile(filename); ImageEnvect1.Fit; // load annotations ImageEnVect1.RemoveAllObjects; ImageEnVect1.IO.Params.ImagingAnnot.CopyToTImageEnVect(ImageEnVect1); end else ImageEnVect1.LoadFromFileAll(filename); end; end;
// Save procedure TMainForm.Button2Click(Sender: TObject); begin if SaveDialog1.Execute then begin ImageEnVect1.IO.Params.ImagingAnnot.CopyFromTImageEnVect(ImageEnVect1); ImageEnVect1.IO.SaveToFile(SaveDialog1.FileName); ImageEnVect1.SaveObjectsToTIFF(SaveDialog1.FileName); end; end;
Search
UserData and UserDataVect example
Posted - Nov 16 2012 : 02:45:38
