Foxtable(狐表)用户栏目专家坐堂 → [求助]图片压缩


  共有2020人关注过本帖树形打印复制链接

主题:[求助]图片压缩

帅哥哟,离线,有人找我吗?
wldhj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3904 威望:0 精华:0 注册:2013/12/26 18:44:00
[求助]图片压缩  发帖心情 Post By:2020/6/28 16:52:00 [只看该作者]

主要实现通过图片管理器上传图片时,将照片自动压缩到200k以内(大于200K压缩至200k,小于200k不用压缩)

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105492 积分:536451 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/28 17:23:00 [只看该作者]

没有办法。自己做个按钮,手工上传,上传前先压缩:http://www.foxtable.com/webhelp/topics/1410.htm

压缩图片参考:
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",img.RawFormat)
bmp.Dispose

 回到顶部