GetJPEGCompression Example for Visual Basic

Dim RasterTwain As New LEADRasterTwain_U
Dim nRet As Integer

RasterTwain.InitSession hWnd
RasterTwain.SelectSource

nRet = RasterTwain.GetJPEGCompression(L_LTWAIN_GET_JPEG_COMPRESSION)
If nRet = 0 Then
	Dim strJpegData As String

	strJpegData = "Color Space = " + CStr(RasterTwain.JPEGCompressionData.ColorSpace) + Chr(13) + _
			"QuantMap = " + CStr(RasterTwain.JPEGCompressionData.QuantMap(0)) + Chr(13) + _
			"GetHuffmanMap = " + CStr(RasterTwain.JPEGCompressionData.HuffmanMap(0)) + Chr(13) + _
			"GetQuantTable Flags = " + CStr(RasterTwain.JPEGCompressionData.QuantTable(0).Flags) + Chr(13) + _
			"GetQuantTable Length = " + CStr(RasterTwain.JPEGCompressionData.QuantTable(0).Length) + Chr(13) + _
			"GetQuantTable Data = " + CStr(RasterTwain.JPEGCompressionData.QuantTable(0).Data) + Chr(13) + _
			"GetHuffmanDC Flags = " + CStr(RasterTwain.JPEGCompressionData.HuffmanDC(0).Flags) + Chr(13) + _
			"GetHuffmanDC Data = " + CStr(RasterTwain.JPEGCompressionData.HuffmanDC(0).Data) + Chr(13) + _
			"GetHuffmanAC Flags = " + CStr(RasterTwain.JPEGCompressionData.HuffmanAC(0).Flags) + Chr(13) + _
			"GetHuffmanAC Data = " + CStr(RasterTwain.JPEGCompressionData.HuffmanAC(0).Data)

	MsgBox strJpegData
End If