高分求 VB 下的有效率的将图片存为JPG 格式的代码，注意，要有效率，没效率的不要来，我自己都有一个

来源：百度知道 编辑：UC知道 时间：2024/06/16 20:22:09
高分求 VB 下的有效率的将图片存为JPG 格式的代码
注意，要有效率，没效率的不要来，我自己都有一个，就是太慢了，最好能将5000×5000象素左右的图片 在1～2秒内存为jpg格式，
要源代码，试了可行之后给高分。
首先感谢 gujin170 - 高级经理 七级
感谢 湘湖泛舟 - 高级经理 七级

可能我没有把自己的意思准确的表达出来,以上两位的代码是能够正确的运行的.不过我是想不要借助其他的动态连接库或工具,只用vb生成jpg的代码,麻烦大家再费心了

网上多的是~
自己找找吧~

这个你要是有的话，当我没说~留给后面的人看~~

你要知道，写算法是很难的事！不是说什么人都可以做出来的！

Option Explicit
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type

Private 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, ByVal outputbuf As Long) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As L