主题：图片压缩

想把一些平面设计导出的jpg图片放到图片浏览器里面查看，但是一般情况下图片都比较大，可能达到几十M

本地使用，不需要ftp网络什么的

mark 压缩图片

 

Dim img As image = getimage("g:\aaa.jpg")
Dim bmp As new bitmap(img.width, img.height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(img, 0, 0, img.Width, img.Height)
Dim jpgEncoder As ImageCodecInfo
Dim codecs() As ImageCodecInfo = ImageCodecInfo.GetImageDecoders
For Each codec As ImageCodecInfo In codecs
    If (codec.FormatID = ImageFormat.Jpeg.Guid) Then
        jpgEncoder = codec
        Exit For
    End If
Next
 Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality
Dim myEncoderParameters As EncoderParameters = New EncoderParameters(1)
Dim myEncoderParameter As EncoderParameter = New EncoderParameter(myEncoder, 30) ' 质量级别 0 对应于最大压缩，而质量级别 100 对应于最小压缩
myEncoderParameters.Param(0) = myEncoderParameter

bmp.Save("g:\压缩图aaa.jpg", jpgEncoder, myEncoderParameters)
bmp.dispose

g.dispose

色版好强大！测试成功！不过有时候会提示内存不足，请问一下是foxtable设置了占用内存的比值还是我自己电脑内存不足了？

跟Foxtable和电脑的内存都没有关系。是图片文件处理时分配的内存不足，这个和。net处理图片的方式有关。

Dim myEncoderParameter As EncoderParameter = New EncoderParameter(myEncoder, 30) ' 质量级别 0 对应于最大压缩，而质量级别 100 对应于最小压缩

 0 对应于最大压缩， 100 对应于最小压缩

是不是数值越小，图片压缩后也越小

是的