J2KSetDefaults Example for Delphi

var
   RasterIO: LEADRasterIO;
   csmsg: String;
   cstemp: String;
begin
   RasterIO:= CreateComObject(CLASS_LEADRasterIO) as LEADRasterIO;
   LEADRasterView1.Raster.UnlockSupport (L_SUPPORT_J2K, L_KEY_J2K);

   // Display all the default JPEG2000 advanced options
   RasterIO.J2KSetDefaults ();
   csmsg:= '';
   if ( RasterIO.J2KUseColorTransform ) then
      cstemp:= 'J2KUseColorTransform = True' + Chr(13)
   else
      cstemp:= 'J2KUseColorTransform = False' + Chr(13);

   csmsg:= csmsg + cstemp;
   if ( RasterIO.J2KDerivedQuantization ) then
      cstemp:= 'J2KDerivedQuantization = True' + Chr(13)
   else
      cstemp:= 'J2KDerivedQuantization = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KXOsiz = ' + IntToStr(RasterIO.J2KXOsiz) + Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KYOsiz = ' + IntToStr(RasterIO.J2KYOsiz) + Chr(13);
   csmsg:= csmsg + cstemp;
   cstemp:= 'J2KXTsiz = '+ IntToStr(RasterIO.J2KXTsiz) + Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KYTsiz = '+ IntToStr(RasterIO.J2KYTsiz)+ Chr(13);
   csmsg:= csmsg + cstemp;
   cstemp:= 'J2KXTOsiz = ' + IntToStr(RasterIO.J2KXTOsiz) + Chr(13);
   csmsg:= csmsg + cstemp;
   cstemp:= 'J2KYTOsiz = ' + IntToStr(RasterIO.J2KYTOsiz) + Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KDecompLevel = '+ IntToStr(RasterIO.J2KDecompLevel)+ Chr(13);
  csmsg:= csmsg + cstemp;

   cstemp:= 'J2KProgressOrder = ' + IntToStr(RasterIO.J2KProgressOrder) + Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KCodBlockWidth = ' + IntToStr(RasterIO.J2KCodBlockWidth) + Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KCodBlockHeight = ' + IntToStr(RasterIO.J2KCodBlockHeight) + Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KCBS_SelectiveACBypass ) then
      cstemp:= 'J2KCBS_SelectiveACBypass = True' + Chr(13)
   else
      cstemp:= 'J2KCBS_SelectiveACBypass = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KCBS_ResetContextOnBoundaries ) then
      cstemp:= 'J2KCBS_ResetContextOnBoundaries = True' + Chr(13)
   else
      cstemp:= 'J2KCBS_ResetContextOnBoundaries = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KCBS_TerminationOnEachPass ) then
      cstemp:= 'J2KCBS_TerminationOnEachPass = True' + Chr(13)
   else
      cstemp:= 'J2KCBS_TerminationOnEachPass = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KCBS_VerticallyCausalContext ) then
      cstemp:= 'J2KCBS_VerticallyCausalContext = True' + Chr(13)
   else
      cstemp:= 'J2KCBS_VerticallyCausalContext = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KCBS_PredictableTermination ) then
      cstemp:= 'J2KCBS_PredictableTermination = True' + Chr(13)
   else
      cstemp:= 'J2KCBS_PredictableTermination = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KCBS_ErrorResilienceSymbol ) then
      cstemp:= 'J2KCBS_ErrorResilienceSymbol = True' + Chr(13)
   else
      cstemp:= 'J2KCBS_ErrorResilienceSymbol = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KGuardBits = ' + IntToStr(RasterIO.J2KGuardBits)+ Chr(13);
   csmsg:= csmsg + cstemp;

   cstemp:= 'J2KDerivedBaseMantissa = ' + IntToStr(RasterIO.J2KDerivedBaseMantissa)+ Chr(13);
   csmsg:= csmsg + cstemp;
   cstemp:= 'J2KDerivedBaseExponent = ' + IntToStr(RasterIO.J2KDerivedBaseExponent)+ Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KUseSOPMarker ) then
      cstemp:= 'J2KUseSOPMarker = True' + Chr(13)
   else
      cstemp:= 'J2KUseSOPMarker = False' + Chr(13);
   csmsg:= csmsg + cstemp;

   if ( RasterIO.J2KUseEPHMarker ) then
      cstemp:= 'J2KUseEPHMarker = True' + Chr (13)
   else
      cstemp:= 'J2KUseEPHMarker = False' + Chr (13);
   csmsg:= csmsg + cstemp;

   ShowMessage (csmsg);
end;