Imports Leadtools
Imports Leadtools.Twain
Public Sub SetJpegCompressionExample(ByVal parent As IntPtr)
   Dim session As TwainSession = New TwainSession()
   session.Startup(parent, "manufacturer", "productFamily", "version", "application", TwainStartupFlags.None)
   Try
      Dim myJpeg As TwainJpegCompression = session.GetJpegCompression(False)
      Dim data As TwainMemoryData() = New TwainMemoryData(0) {}
      myJpeg.ColorScheme = TwainColorScheme.Gray
      myJpeg.SubSampling = &H10001000
      myJpeg.ColorComponentCount = 1
      myJpeg.RestartFrequency = 0
      Dim quantMap As Integer() = New Integer(0) {}
      quantMap(0) = 0
      myJpeg.SetQuantizationMap(quantMap)
      Dim haffmanMap As Integer() = New Integer(0) {}
      haffmanMap(0) = 0
      myJpeg.SetHuffmanMap(haffmanMap)
      myJpeg.SetQuantizationTable(data)
      myJpeg.SetHuffmanDC(data)
      myJpeg.SetHuffmanAC(data)
      session.SetJpegCompression(myJpeg, False)
      MessageBox.Show("Set JPEG compression options is success")
   Catch ex As Exception
      MessageBox.Show(ex.Message)
   End Try
   session.Shutdown()
End Sub
             
   
     
            using Leadtools;
using Leadtools.Twain;
public void SetJpegCompressionExample(IntPtr parent)
{
   TwainSession session = new TwainSession();
   session.Startup(parent, "manufacturer", "productFamily", "version", "application", TwainStartupFlags.None);
   try
   {
      TwainJpegCompression myJpeg = session.GetJpegCompression(false);
      TwainMemoryData[] data = new TwainMemoryData[1];
      myJpeg.ColorScheme = TwainColorScheme.Gray;
      myJpeg.SubSampling = 0x10001000;
      myJpeg.ColorComponentCount = 1;
      myJpeg.RestartFrequency = 0;
      int[] quantMap = new int[1];
      quantMap[0] = 0;
      myJpeg.SetQuantizationMap(quantMap);
      int[] haffmanMap = new int[1];
      haffmanMap[0] = 0;
      myJpeg.SetHuffmanMap(haffmanMap);
      myJpeg.SetQuantizationTable(data);
      myJpeg.SetHuffmanDC(data);
      myJpeg.SetHuffmanAC(data);
      session.SetJpegCompression(myJpeg, false);
      MessageBox.Show("Set JPEG compression options is success");
   }
   catch (Exception ex)
   {
      MessageBox.Show(ex.Message);
   }
   session.Shutdown();
}