J2KTargetFileSize Example for Delphi

   LEADRasterIO * pRasterIO = NULL;

   CoCreateInstance (CLSID_LEADRasterIO, NULL, CLSCTX_ALL,
                  IID_ILEADRasterIO, (void**)&pRasterIO);
   //compress a 30K JPEG2000 file
   pRasterIO->J2KSetDefaults ();
   pRasterIO->J2KCompressionControl_= J2K_COMP_TARGETSIZE;
   pRasterIO->J2KTargetFileSize = 30 * 1024;
   pRasterIO->Save (LEADRasterView1->Raster, AnsiToOLESTR ("c:\\temp\\30k.j2k"), FILE_J2K, 0, (QFactorConstants) 0, SAVE_OVERWRITE);
   pRasterIO->Release ();