J2KCompressionRatio Example for Delphi

var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject(CLASS_LEADRasterIO) as LEADRasterIO;
// Compress a JPEG2000 file using 100:1 comp ratio
   RasterIO.J2KSetDefaults ();
   RasterIO.J2KCompressionControl:= J2K_COMP_RATIO;
   RasterIO.J2KCompressionRatio:= 100;
   RasterIO.Save (LEADRasterView1.Raster, WideString ('c:\temp\100_to_1.j2k'), FILE_J2K, 0, 0, SAVE_OVERWRITE);
end;