表6：DQT（定义量化表）

--------------------------------------------------------------------------
名称    字节数   值    说明
--------------------------------------------------------------------------
段标识    1      FF
段类型    1      DB
段长度    2      43    其值＝3＋n（当只有一个QT时）
　　（以下为段内容）
QT信息    1            0－3位：QT号
                       4－7位：QT精度（0＝8bit，1字节；否则＝16bit，2字节）
QT        n            n＝64×QT精度的字节数
--------------------------------------------------------------------------
　　说明：
①JPEG文件一般有２个DQT段，为Y值（亮度）定义１个, 为C值（色度）定义１个。 
②一个DQT段可以包含多个QT, 每个都有自己的信息字节


表7：SOF0（图像基本信息）
--------------------------------------------------------------------------
名称  字节数   值    说明
--------------------------------------------------------------------------
段标识   1     FF
段类型   1     C0
段长度   2           其值＝8＋组件数量×3
　　（以下为段内容）
样本精度  1    8     每个样本位数（大多数软件不支持12和16）
图片高度  2
图片宽度  2
组件数量  1    3     1＝灰度图，3＝YCbCr/YIQ 彩色图，4＝CMYK 彩色图
　　（以下每个组件占用３字节）
组件 ID   1          1＝Y, 2＝Cb, 3＝Cr, 4＝I, 5＝Q
采样系数  1          0－3位：垂直采样系数
                     4－7位：水平采样系数
量化表号  1
---------------------------------------------------------------------------
　　说明：
①JPEG大都采用yCrCb色彩模型（y表示亮度，Cr红色分量，Cb表示蓝色分量），所以组件数量一般＝3
②样本就是单个像素的颜色分量，也可理解为一个样本就是一个组件
③采样系数是实际采样方式与最高采样系数之比，而最高采样系数一般＝0.5（分数表示为1/2）。比如说，垂直采样系数＝2，那么2×0.5＝1，表示实际采样方式是每个点采一个样，也就是逐点采样；如果垂直采样系数＝1，那么：1×0.5＝0.5（分数表示为1/2），表示每２个点采一个样


表8：DHT（定义Huffman表）
--------------------------------------------------------------------------
名称    字节数   值    说明
--------------------------------------------------------------------------
段标识    1      FF
段类型    1      C4
段长度    2            其值＝19＋n（当只有一个HT表时）
　　（以下为段内容）
HT信息    1            0－3位：HT号
                       4位：   HT类型, 0＝DC表，1＝AC表
　　　　　　　　　　　 5－7位：必须＝0
HT位表    16           这16个数的和应该≤256
HT值表    n            n＝表头16个数的和
--------------------------------------------------------------------------
　　说明：
①JPEG文件里有２类Haffman 表：一类用于DC（直流量），一类用于AC（交流量）。一般有４个表：亮度的DC和AC，色度的DC和AC。最多可有６个。
②一个DHT 段可以包含多个HT表, 每个都有自己的信息字节
③HT表是一个按递增次序代码长度排列的符号表。


表9：DRI（定义重新开始间隔）
--------------------------------------------------------------------------
名称    字节数   值    说明
--------------------------------------------------------------------------
段标识    1      FF
段类型    1      DD
段长度    2      4 
　　（以下为段内容）
开始间隔  2      n   　复位标记的间隔距离
---------------------------------------------------------------------------
　　说明：
①开始间隔表示在压缩数据流中，每隔ｎ个MCU 块就有一个RST标记，RST标记将Huffman 的解码数据流复位，DC也重新从０开始，因此，RST标记是一种复位标记
②RST 标记是一种特殊的段，它只具有段标识和段类型（长度＝２字节），但它不是独立的段，只能穿插在数据流中（文件头和文件尾段也只有段标识和段类型，却都是独立的段）。
③RST标记共有８个（RST0－RST7），从RST0起开始使用，然后是RST1....直至RST7，再从RST0重复。
④RST标记的标识码是 FFD0－FFD7，对应 RST0－RST7
⑤笔者查看了许多自己电脑上的JPG文件的数据，未发现DRI段和RST标记，所以无法进行详尽的考察


表10：SOS（扫描行开始）
--------------------------------------------------------------------------
名称          字节数   值    说明
--------------------------------------------------------------------------
段标识           1     FF
段类型           1     DA
段长度           2     000C  其值＝6＋2×扫描行内组件数量
　　（以下为段内容）
扫描行内组件数量 1     3     必须≥1，≤4（否则错误），通常＝3
　　（以下每个组件占用２字节）
组件ID           1           1 = Y, 2 = Cb, 3 = Cr, 4 = I, 5 = Q
Huffman表号      1           0－3位：AC表号 (其值＝0...3)
                             4－7位：DC表号(其值＝0...3)

                 3           最后３个字节用途不明，忽略
--------------------------------------------------------------------------
　　说明：紧接SOS段后的是压缩的图像数据（一个个扫描行），数据存放顺序是从左到右、从上到下。


表11：EOI（文件尾）
------------------
名称  字节数   值
------------------
段标识   1     FF
段类型   1     D9 
------------------
　　说明：这两个字节构成了JPEG文件尾。

三、实例分析
　　用系统自带的画图程序画一个32×24的红色方块，另存为JPG文件，这个文件的全部数据如下：

0000: FF D8 FF E0 00 10 4A 46 49 46 00 01 01 01 00 60
0010: 00 60 00 00 FF DB 00 43 00 08 06 06 07 06 05 08
0020: 07 07 07 09 09 08 0A 0C 14 0D 0C 0B 0B 0C 19 12
0030: 13 0F 14 1D 1A 1F 1E 1D 1A 1C 1C 20 24 2E 27 20
0040: 22 2C 23 1C 1C 28 37 29 2C 30 31 34 34 34 1F 27
0050: 39 3D 38 32 3C 2E 33 34 32 FF DB 00 43 01 09 09
0060: 09 0C 0B 0C 18 0D 0D 18 32 21 1C 21 32 32 32 32
0070: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
0080: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
0090: 32 32 32 32 32 32 32 32 32 32 32 32 32 32 FF C0
00A0: 00 11 08 00 18 00 20 03 01 22 00 02 11 01 03 11
00B0: 01 FF C4 00 1F 00 00 01 05 01 01 01 01 01 01 00
00C0: 00 00 00 00 00 00 00 01 02 03 04 05 06 07 08 09
00D0: 0A 0B FF C4 00 B5 10 00 02 01 03 03 02 04 03 05
00E0: 05 04 04 00 00 01 7D 01 02 03 00 04 11 05 12 21
00F0: 31 41 06 13 51 61 07 22 71 14 32 81 91 A1 08 23
0100: 42 B1 C1 15 52 D1 F0 24 33 62 72 82 09 0A 16 17
0110: 18 19 1A 25 26 27 28 29 2A 34 35 36 37 38 39 3A
0120: 43 44 45 46 47 48 49 4A 53 54 55 56 57 58 59 5A
0130: 63 64 65 66 67 68 69 6A 73 74 75 76 77 78 79 7A
0140: 83 84 85 86 87 88 89 8A 92 93 94 95 96 97 98 99
0150: 9A A2 A3 A4 A5 A6 A7 A8 A9 AA B2 B3 B4 B5 B6 B7
0160: B8 B9 BA C2 C3 C4 C5 C6 C7 C8 C9 CA D2 D3 D4 D5
0170: D6 D7 D8 D9 DA E1 E2 E3 E4 E5 E6 E7 E8 E9 EA F1
0180: F2 F3 F4 F5 F6 F7 F8 F9 FA FF C4 00 1F 01 00 03
0190: 01 01 01 01 01 01 01 01 01 00 00 00 00 00 00 01
01A0: 02 03 04 05 06 07 08 09 0A 0B FF C4 00 B5 11 00
01B0: 02 01 02 04 04 03 04 07 05 04 04 00 01 02 77 00
01C0: 01 02 03 11 04 05 21 31 06 12 41 51 07 61 71 13
01D0: 22 32 81 08 14 42 91 A1 B1 C1 09 23 33 52 F0 15
01E0: 62 72 D1 0A 16 24 34 E1 25 F1 17 18 19 1A 26 27
01F0: 28 29 2A 35 36 37 38 39 3A 43 44 45 46 47 48 49
0200: 4A 53 54 55 56 57 58 59 5A 63 64 65 66 67 68 69
0210: 6A 73 74 75 76 77 78 79 7A 82 83 84 85 86 87 88
0220: 89 8A 92 93 94 95 96 97 98 99 9A A2 A3 A4 A5 A6
0230: A7 A8 A9 AA B2 B3 B4 B5 B6 B7 B8 B9 BA C2 C3 C4
0240: C5 C6 C7 C8 C9 CA D2 D3 D4 D5 D6 D7 D8 D9 DA E2
0250: E3 E4 E5 E6 E7 E8 E9 EA F2 F3 F4 F5 F6 F7 F8 F9
0260: FA FF DA 00 0C 03 01 00 02 11 03 11 00 3F 00 E2
0270: E8 A2 8A F9 93 F7 10 A2 8A 28 00 A2 8A 28 00 A2
0280: 8A 28 03 FF D9

分析：
0000-0001：FF D8（文件头）
0002-0013：APP0段，其中：
　　0002-0003：FF E0（段标记）
　　0004-0005：00 10（段长度＝16字节）
　　0006-000A：4A 46 49 46 00（“JFIF”的ASCII码）
　　000B-000C：01 01（主次版本号＝1.01）
　　000D     ：01（密度单位为 点数/英寸）
　　000E-0011：00 60 00 60（水平和垂直的密度均为每英寸96像素）
　　0012-0013：00 00（没有缩略图）
0014-0058：DQT段，其中：
　　0014-0015：FF DB（段标记）
　　0016-0017：00 43（段长度＝67字节）
　　0018     ：00（QT号＝0，QT精度＝8bit）
　　0019-0058：QT
0059-009D：DQT段，其中：
　　0059-005A：FF DB（段标记）
　　005B-005C：00 43（段长度＝67字节）
　　005D     ：01（QT号＝1，QT精度＝8bit）
　　005E-009D：QT
009E-00B0：SOF0段，其中：
　　009E-009F：FF C0（段标记）
　　00A0-00A1：00 11（段长度＝17字节）
　　00A2     ：08（样本精度＝8bit）
　　00A3-00A6：00 18 00 20（图像高＝24，图像宽＝32）
　　00A7     ：03（组件数量＝3，YCbCr彩色图）
　　00A8     ：01（ID号＝1，这是亮度Y组件）
　　00A9     ：22（化为二进制＝00100010，表明垂直和水平采样系数均＝2）
　　00AA     ：00（使用QT号＝0的量化表）
　　00AB     ：02（ID号＝2，这是色度Cb组件）
　　00AC     ：11（化为二进制＝00010001，表明垂直和水平采样系数均＝1）
　　00AD     ：01（使用QT号＝1的量化表）
　　00AE     ：03（ID号＝3，这是色度Cr组件）
　　00AF     ：11（化为二进制＝00010001，表明垂直和水平采样系数均＝1）
　　00B0     ：01（使用QT号＝1的量化表）
00B1-00D1：DHT段，其中：
　　00B1-00B2：FF C4（段标记）
　　00B3-00B4：00 1F（段长度＝31字节）
　　00B5     ：00（HT号＝0，DC表）
　　00B6-00C5：这16个数字之和＝12，说明下面的HT值表的长度＝12字节）
　　00C6-00D1：HT值表
00D2-0188：DHT段，这是HT号＝0的AC表，参照上面分析
0189-01A9：DHT段，这是HT号＝1的DC表，参照上面分析
01AA-0260：DHT段，这是HT号＝1的AC表，参照上面分析
0261-026E：SOS段，其中：
　　0261-0262：FF DA（段标记）
　　0263-0264：00 0C（段长度＝12字节）
　　0265     ：03（组件数量＝3）
　　0266-0267：01 00（组件ID＝1，Y组件，使用HT表号＝0的AC表）
　　0268-0269：02 11（组件ID＝2，Cb组件，使用HT表号＝1的DC表）
　　026A-026B：03 11（组件ID＝3，Cr组件，使用HT表号＝1的DC表）
　　026C-026E：00 3F 00（几乎每个JPG文件中这３个字节的值都相同，但用途不明）
026F-0282：图像压缩数据
0283-0284：FF D9（文件尾）

四、计算jpg图片尺寸的代码：

Private Sub Command1_Click()
On Error GoTo 100
Dim fLen As Single, k As Long
Dim H1 As Byte, H2 As Byte, W1 As Byte, W2 As Byte
Dim OpenName As String
Dim w As Long, h As Long

OpenName = "J:\一江秋水的文档\图片收藏\风筝西施.jpg" '这里是全路径jpg图片文件名
fLen = FileLen(OpenName) '获取文件长度
Open OpenName For Binary As #1
Get #1, 1, H1
Get #1, , H2

If H1 = 255 And H2 = 216 Then 'jpg：FF D8
  k = 3
  Do
    Get #1, k, H1
    Get #1, , H2
    Get #1, , W1
    Get #1, , W2
    k = k + 2 + W2 + W1 * 256: If k >= fLen Then GoTo 100
  Loop Until H1 = 255 And H2 = 192 'FFC0
  Get #1, , H1 '每个样本位数,舍弃
  Get #1, , H1 '图片高度
  Get #1, , H2
  Get #1, , W1 '图片宽度
  Get #1, , W2
  w = W1 * 256 + W2
  h = H1 * 256 + H2
  MsgBox "图片宽：" & w & "像素，高：" & h & "像素"
End If
Close
Exit Sub
100
Close
MsgBox "非 jpg 图片"
End Sub


五、将位图保存为JPG的函数代码：

Option Explicit

Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "gdiplus" (ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long
Private Declare Function GdiplusStartup Lib "gdiplus.dll" (ByRef token As Long, ByRef inputX As GdiplusStartupInput, ByVal Output As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "gdiplus" (ByVal Image As Long, ByVal Filename As Long, clsidEncoder As GUID, encoderParams As Any) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image As Long) As Long
Private Declare Function GdiplusShutdown Lib "gdiplus.dll" (ByVal token As Long) As Long

Private Type GUID
  Data1  As Long
  Data2  As Integer
  Data3  As Integer
  Data4(0 To 7) As Byte
End Type
Private Type GdiplusStartupInput
  GdiplusVersion As Long
  DebugEventCallback As Long
  SuppressBackgroundThread As Long
  SuppressExternalCodecs As Long
End Type
Private Type EncoderParameter
  GUID As GUID
  NumberOfvalues  As Long
  type As Long
  Value As Long
End Type
Private Type EncoderParameters
  Count As Long
  Parameter As EncoderParameter
End Type

'输入参数：必需的：1.对象；2.要保存的全路径文件名；可选的：3.jpg品质因素
Private Function SaveJpg(ByVal pict As StdPicture, ByVal Filename As String, Optional ByVal JPG_Quality As Byte = 80) As Boolean
On Error GoTo 100
Dim lGDIP As Long
Dim lBitmap As Long
Dim aEncParams() As Byte
Dim udtData As GdiplusStartupInput

udtData.GdiplusVersion = 1 'GDI+初始化
If GdiplusStartup(lGDIP, udtData, 0) = 0 Then
  If GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap) = 0 Then '从句柄创建 GDI+ 图像
    Dim tJpgEncoder As GUID
    Dim tParams As EncoderParameters
    CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder '初始化解码器的GUID标识
    tParams.Count = 1      '设置解码器参数
    With tParams.Parameter '设置品质因数
      CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID '获取JPG_Quality参数的GUID标识
      .NumberOfvalues = 1
      .type = 4
      .Value = VarPtr(JPG_Quality)
    End With
    ReDim aEncParams(1 To Len(tParams))
    Call CopyMemory(aEncParams(1), tParams, Len(tParams))
    GdipSaveImageToFile lBitmap, StrPtr(Filename), tJpgEncoder, aEncParams(1) '保存图像
    GdipDisposeImage lBitmap '销毁GDI+图像
    GdiplusShutdown lGDIP
    Erase aEncParams
    SavePic = True
  End If
End If
Exit Function
100
End Function

虽然前面的jpg数据结构部分和后面的实现代码（用Gdi+保存图片）没有多大关系，但还是顶一下。

作者对JPG了解得很深呀，没有接解触到这方面，学习了……