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();
}