从我个人的理解来看，有这种需求的人无非可能想做两件事，第一种是想搞类似屏幕传输活远程控制方面的东西，这个至少占了90%以上，而可以明确的告诉这部分朋友，JPG流实现远程控制是条死路。第二种是想实现保存JPG图像是压缩质量的预览。
其实这个东西真的没有什么可谈的，完全都是一堆API函数的调用，不过呢，隔那么一段时间就有人在那里问，而且一般也得不到正确的答案，因此，我还是画蛇添足，共享一下这些调用的苦力活吧。
从我个人的理解来看，有这种需求的人无非可能想做两件事，第一种是想搞类似屏幕传输或远程控制方面的东西，这个至少占了90%以上，而可以明确的告诉这部分朋友，JPG流实现远程控制是条死路。第二种是想实现保存JPG图像是压缩质量的预览，这个我在示例代码中做了一个简单的工程，大家可以参考。
很多朋友都会用GDI+的GdipSaveImageToFile函数将图像保存为JPG文件，要获得对应的JPG字节流，一些折中的办法就是保存为文件后再通过二进制读取他，这实在是个弯路，在GDI+中还有一个函数GdipSaveImageToStream可将图像数据直接压缩为你指定格式的流对象。
使用VB6或者VC6的朋友常常在程序中使用的是一些GDI的对象，比如Hbitmap或者Stdpicture，为了能调用GDI+的相关函数，必须先将他们转换为GDI+可识别的对象，这些转换函数有很多，例如GdipCreateBitmapFromScan0、GdipCreateBitmapFromHBITMAP、GdipCreateBitmapFromGdiDib、GdipCreateBitmapFromResource、GdipCreateBitmapFromHICON等等。
同GdipLoadImageFromFile一样，对应也有GdipLoadImageFromStream函数，将流对象转换为Bitmap。
列举转换为JPG字节流的部分代码如下：
1 Public Function GetJpgArrayForm24Dib(Img As StdPicture, Optional Quality As Long = 80) As Byte()
2 Dim Image As Long
3 Dim IIStream As IUnknown
4 Dim uEncCLSID(3) As Long
5 Dim aEncParams() As Byte
6 Dim uEncParams As EncoderParameters
7 Dim Data() As Byte
8 Dim Memory As Long
9 Dim OldMemory As Long
10 Dim MemorySize As Long
11 GdipCreateBitmapFromHBITMAP Img.Handle, 0, Image
12 GetEncoderClsID "Image/jpeg", uEncCLSID
13 uEncParams.Count = 1
14 ReDim aEncParams(1 To Len(uEncParams))
15 With uEncParams.Parameter
16 .NumberOfValues = 1
17 .Type = [EncoderParameterValueTypeLong]
18 Call CLSIDFromString(StrPtr(EncoderQuality), .GUID(0))
19 If Quality < 0 Then
20 Quality = 0
21 ElseIf Quality > 100 Then
22 Quality = 100
23 End If
24 .Value = VarPtr(Quality)
25 End With
26 Call CopyMemory(aEncParams(1), uEncParams, Len(uEncParams))
27
28 CreateStreamOnHGlobal 0, 1, IIStream
29 GdipSaveImageToStream Image, IIStream, uEncCLSID(0&), aEncParams(1)
30 GetHGlobalFromStream ByVal ObjPtr(IIStream), Memory
31 MemorySize = GlobalSize(Memory)
32 OldMemory = GlobalLock(Memory)
33 ReDim Data(0 To MemorySize - 1)
34 CopyMemory Data(0), ByVal OldMemory, MemorySize
35 GlobalUnlock Memory
36 GdipDisposeImage Image
37 GetJpgArrayForm24Dib = Data
38 End Function
示例工程下载地址：
javascript:void(0)
界面预览：
