将图像转换为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

 

示例工程下载地址：http://files.cnblogs.com/Imageshop/BmpToJpgStream.rar

界面预览：