以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  Foxtable 中如何在上传照片前 对照片先进行压缩，控制在600*800的像素内，避免服务器存照片存爆掉。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=89637)
--  作者：PowerBook
--  发布时间：2016/8/25 22:07:00
--  Foxtable 中如何在上传照片前 对照片先进行压缩，控制在600*800的像素内，避免服务器存照片存爆掉。
Foxtable 中如何在上传照片前 对照片先进行压缩，控制在600*800的像素内，避免服务器存照片存爆掉。
--  作者：大红袍
--  发布时间：2016/8/26 0:26:00
--  

mark 缩放图片

 

Dim file As String = "d:\\test.jpg"
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.width > 800 Then
    If 800 * (img.height / img.width) > 600 Then
        bmp = new bitmap(img, 800*(600/(800*(img.height/img.width))), 600)
    Else
        bmp = new bitmap(img, 800, 800 * (img.height / img.width))
    End If
End If
bmp.save("d:\\缩略图.jpg")
bmp.Dispose
--  作者：zhy400137
--  发布时间：2016/8/26 6:56:00
--  
学习
--  作者：kylin
--  发布时间：2016/8/26 10:23:00
--  
收藏，谢谢大红袍兄！