GetJPEGCompression Example for Visual Basic

Private Sub TestGetJPEGCompression()
   Dim nRet As Integer

   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
End Sub