Public Class CodecsJbigOptions 

Dim instance As CodecsJbigOptions

public class CodecsJbigOptions 

public ref class CodecsJbigOptions 

Public Sub CodecsJbigOptionsExample()
      Dim codecs As RasterCodecs = New RasterCodecs()

      Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
      Dim srcImage As RasterImage = codecs.Load(srcFileName)

      ' Ex: If the file contains the image 
      ' at the following dimensions: 800X600, 
      ' 400X 300 and 200X150 and the user requests 
      ' an image with width equal to 180 for example, 
      ' then LEADTOOLS will automatically know that the 
      ' proper width is 200 and load the image at the (200X150) resolution.         
      codecs.Options.Jbig.Load.Resolution = New LeadSize(180, 0)
      Dim sizes As LeadSize() = New LeadSize(2) {}
      sizes(0) = New LeadSize(800, 600)
      sizes(1) = New LeadSize(400, 300)
      sizes(2) = New LeadSize(200, 150)
      codecs.Options.Save.SetResolutions(sizes)
      codecs.Save(srcImage, Path.Combine(LEAD_VARS.ImagesDir, "Image1_test.jbg"), RasterImageFormat.Jbig, 8)
      srcImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Image1_test.jbg"))

      codecs.Save(srcImage, Path.Combine(LEAD_VARS.ImagesDir, "jbg.bmp"), RasterImageFormat.Bmp, 1)

      ' Clean up
      srcImage.Dispose()
      codecs.Dispose()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void CodecsJbigOptionsExample()
   {
      RasterCodecs codecs = new RasterCodecs();

      string srcFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp");
      RasterImage srcImage = codecs.Load(srcFileName);

      // Ex: If the file contains the image 
      // at the following dimensions: 800X600, 
      // 400X 300 and 200X150 and the user requests 
      // an image with width equal to 180 for example, 
      // then LEADTOOLS will automatically know that the 
      // proper width is 200 and load the image at the (200X150) resolution.         
      codecs.Options.Jbig.Load.Resolution = new LeadSize(180, 0);
      LeadSize[] sizes = new LeadSize[3];
      sizes[0] = new LeadSize(800,600);
      sizes[1] = new LeadSize(400, 300);
      sizes[2] = new LeadSize(200, 150);
      codecs.Options.Save.SetResolutions(sizes);
      codecs.Save(srcImage,  Path.Combine(LEAD_VARS.ImagesDir, "Image1_test.jbg"), RasterImageFormat.Jbig, 8);
      srcImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Image1_test.jbg"));

      codecs.Save(srcImage,  Path.Combine(LEAD_VARS.ImagesDir,"jbg.bmp"), RasterImageFormat.Bmp, 1);

      // Clean up
      srcImage.Dispose();
      codecs.Dispose();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}

public void CodecsJbigOptionsExample(Stream inStream, Stream outStreamJbig, Stream outStreamBmp)
{
   RasterCodecs codecs = new RasterCodecs();
   RasterImage srcImage = codecs.Load(inStream);

   // Ex: If the file contains the image 
   // at the following dimensions: 800X600, 
   // 400X 300 and 200X150 and the user requests 
   // an image with width equal to 180 for example, 
   // then LEADTOOLS will automatically know that the 
   // proper width is 200 and load the image at the (200X150) resolution.         
   codecs.Options.Jbig.Load.Resolution = new LeadSize(180, 0);
   LeadSize[] sizes = new LeadSize[3];
   sizes[0] = new LeadSize(800, 600);
   sizes[1] = new LeadSize(400, 300);
   sizes[2] = new LeadSize(200, 150);
   codecs.Options.Save.SetResolutions(sizes);
   codecs.Save(srcImage, outStreamJbig, RasterImageFormat.Jbig, 8);

   srcImage = codecs.Load(outStreamJbig);
   codecs.Save(srcImage, outStreamBmp, RasterImageFormat.Bmp, 1);

   // Clean up
   srcImage.Dispose();
}

Public Sub CodecsJbigOptionsExample(ByVal inStream As Stream, ByVal outStreamJbig As Stream, ByVal outStreamBmp As Stream)
   Dim codecs As RasterCodecs = New RasterCodecs()
   Dim srcImage As RasterImage = codecs.Load(inStream)

   ' Ex: If the file contains the image 
   ' at the following dimensions: 800X600, 
   ' 400X 300 and 200X150 and the user requests 
   ' an image with width equal to 180 for example, 
   ' then LEADTOOLS will automatically know that the 
   ' proper width is 200 and load the image at the (200X150) resolution.         
   codecs.Options.Jbig.Load.Resolution = New LeadSize(180, 0)
   Dim sizes As LeadSize() = New LeadSize(2){}
   sizes(0) = New LeadSize(800, 600)
   sizes(1) = New LeadSize(400, 300)
   sizes(2) = New LeadSize(200, 150)
   codecs.Options.Save.SetResolutions(sizes)
   codecs.Save(srcImage, outStreamJbig, RasterImageFormat.Jbig, 8)

   srcImage = codecs.Load(outStreamJbig)
   codecs.Save(srcImage, outStreamBmp, RasterImageFormat.Bmp, 1)

   ' Clean up
   srcImage.Dispose()
End Sub