从我个人的理解来看，有这种需求的人无非可能想做两件事，第一种是想搞类似屏幕传输活远程控制方面的东西，这个至少占了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
示例工程下载地址：
https://files.cnblogs.com/Imageshop/BmpToJpgStream.rar
界面预览：
