将图像转换为JPG或GIF字节流。
将图像转换为JPG或GIF字节流。
abcijkxyz 发表于1年前
将图像转换为JPG或GIF字节流。
  • 发表于 1年前
  • 阅读 6
  • 收藏 0
  • 点赞 0
  • 评论 0

【腾讯云】买域名送云解析+SSL证书+建站!>>>   

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

界面预览:

 

 

 

  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 59
博文 6195
码字总数 1876
×
abcijkxyz
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: