急求BMP压缩成JPG格式程序算法~~~！！！！！！！！

Question

一定要用VB ~`将16位BMP
转成JPG格式
大家一定要帮帮小妹阿~~！！大恩不言谢~~

Answer 1

將BMP保存為JPG'要用到GDI庫將gdiplus.dll放在工程目錄下
Private cmdchange_click()
  'pic          圖片控件名
  'str_filename 要存儲jpg的文件名
  'Rate         質量比率
  SaveJPG pic, str_filename, Rate
End SubPrivate Type GUID
  Data1         As Long
  Data2         As Integer
  Data3         As Integer
  Data4(0 To 7) As Byte
End TypePrivate Type GdiplusStartupInput
  GdiplusVersion           As Long
  DebugEventCallback       As Long
  SuppressBackgroundThread As Long
  SuppressExternalCodecs   As Long
End Type
 
Private Type EncoderParameter
  GUID           As GUID
  NumberOfvalues As Long
  type           As Long
  value          As Long
End Type
 
Private Type EncoderParameters
  Count     As Long
  Parameter As EncoderParameter
End Type
 
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, _
                         inputbuf As GdiplusStartupInput, _
                         Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" ( _
                         ByVal hbm As Long, ByVal hpal As Long, Bitmap As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, _
                         ByVal filename As Long, clsidEncoder As GUID, _
                         encoderParams As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
 
Public Sub SaveJPG(ByVal pict As StdPicture, _
                   ByVal filename As String, _
                   Optional ByVal quality As Byte = 80)
Dim tSI     As GdiplusStartupInput
Dim lRes    As Long
Dim lGDIP   As Long
Dim lBitmap As Long
 
'Initialize  GDI+
tSI.GdiplusVersion = 1
lRes = GdiplusStartup(lGDIP, tSI)
   
If lRes = 0 Then
   'Create the GDI+ bitmap
   'from the image handle
   lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap)
   If lRes = 0 Then
      Dim tJpgEncoder As GUID
      Dim tParams     As EncoderParameters
      'Initialize the encoder GUID
      CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder
      'Initialize  the  encoder  parameters
      tParams.Count = 1
      With tParams.Parameter   'Quality
           'Set the Quality GUID
           CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB3505E7EB}"), .GUID
           .NumberOfvalues = 1
           .type = 1
           .value = VarPtr(quality)
      End With
      'Save the image
      lRes = GdipSaveImageToFile(lBitmap, StrPtr(filename), tJpgEncoder, tParams)
                                                        
      'Destroy the bitmap
      GdipDisposeImage lBitmap
   End If
   'Shutdown GDI+
   GdiplusShutdown lGDIP
End If
If lRes Then Err.Raise 5, , "Cannot save the image.GDI+Error:" & lRes
End Sub

Answer 2

那我想在内存中转换而不另存为文件,怎样用GdipSaveImageTostream()转换呢?