将图像转换为JPG或GIF字节流。

      其实这个东西真的没有什么可谈的，完全都是一堆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

界面预览：