Foxtable(狐表) → 用户栏目 → 专家坐堂 → 压缩图片问题请教


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

主题：压缩图片问题请教
帅哥哟，离线，有人找我吗？
lxhmax
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：5699 威望：0 精华：0 注册：2012/8/2 19:04:00 		压缩图片问题请教  发帖心情 Post By：2018/4/6 2:09:00 [只看该作者]

请问老师，这样的代码压缩图片之后图片反而变大了，还能怎么处理下？
   
  If dlg.ShowDialog = DialogResult.OK Then
            Dim fpath As String =  "/Attachments/产品图/"
            If ftp1.DirExists(fpath) = False Then ftp1.MakeDir(fpath)
            For Each fl As String In dlg.FileNames
                Dim fileInfo As new FileInfo(fl)
                Dim file As String = fl
                Dim img As image = getImage(file)
                Dim bmp As bitmap
                bmp = new bitmap(img, 320, 320 * (img.height / img.width))
                bmp.save(ProjectPath & "\Attachments\产品图\" & e.Row("产品名称") & ".jpg" )
                bmp.Dispose
                fl = ProjectPath & "\Attachments\产品图\" & e.Row("产品名称") & ".jpg"
                If Ftp1.Upload(fl,fpath & filesys.GetName(fl)) = True Then
                End If
                e.Row("产品图") = "产品图\" & e.Row("产品名称") & ".jpg"
            Next
        End If


图片点击可在新窗口打开查看此主题相关图片如下：位深度.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/6 9:43:00 [只看该作者]

 

bmp.Save(ProjectPath & "\Attachments\产品图\" & e.Row("产品名称") & ".jpg", ImageFormat.Jpeg)

 
 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：5699 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2018/4/12 15:52:00 [只看该作者]

老师，我按照这个方式把图片上传到服务器之后，服务器的程序字段会更新，但是图片不会自动关联起来，就是要手动添加图片网页才能正常显示，请问这个要怎么处理才能本地上传之后，服务器会自动关联起来？

    Case "产品图"
        If dlg.ShowDialog = DialogResult.OK Then
            Dim fpath As String =  "/Attachments/产品图/"
            If ftp1.DirExists(fpath) = False Then ftp1.MakeDir(fpath)
            For Each fl As String In dlg.FileNames
                Dim fileInfo As new FileInfo(fl)
                Dim file As String = fl
                Dim img As image = getImage(file)
                Dim bmp As bitmap
                bmp = new bitmap(img, 320, 320 * (img.height / img.width))
                bmp.save(ProjectPath & "\Attachments\产品图\" & e.Row("产品名称") & ".jpg", ImageFormat.Jpeg)
                bmp.Dispose
                fl = ProjectPath & "\Attachments\产品图\" & e.Row("产品名称") & ".jpg"
                If Ftp1.Upload(fl,fpath & filesys.GetName(fl)) = True Then
                End If
                e.Row("产品图") = "产品图\" & e.Row("产品名称") & ".jpg"
            Next
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/12 16:30:00 [只看该作者]

回复3楼，你是说产品图列有多张图片？看看 http://www.foxtable.com/webhelp/scr/2717.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
chen37280600
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1279 积分：7953 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2018/4/13 9:31:00 [只看该作者]

如果我不知道客户上传的图片是jpg还是png，还是bmp，我能用这个 ImageFormat.Jpeg 后缀压缩吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/13 9:32:00 [只看该作者]

以下是引用chen37280600在2018/4/13 9:31:00的发言：

如果我不知道客户上传的图片是jpg还是png，还是bmp，我能用这个 ImageFormat.Jpeg 后缀压缩吗？

 

不是可以判断后缀名，然后再决定用何种方式压缩的吗？
 回到顶部
帅哥哟，离线，有人找我吗？
lxhmax
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：636 积分：5699 威望：0 精华：0 注册：2012/8/2 19:04:00 		  发帖心情 Post By：2018/4/13 9:34:00 [只看该作者]

不是这个意思，每一列都只有一张图片
我意思是，我在本地选择图片，然后上传到服务器，图片列填入图片的路径，这样之后，本地可以正常看到图片
但是在服务器的客户端上，图片正常上传在对应的文件夹上，图片列也有地址，可实际上图片列并没有跟图片关联起来，在服务器上还要重新选择该张图片才能正常关联起来
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/13 9:41:00 [只看该作者]

以下是引用lxhmax在2018/4/13 9:34:00的发言：
不是这个意思，每一列都只有一张图片
我意思是，我在本地选择图片，然后上传到服务器，图片列填入图片的路径，这样之后，本地可以正常看到图片
但是在服务器的客户端上，图片正常上传在对应的文件夹上，图片列也有地址，可实际上图片列并没有跟图片关联起来，在服务器上还要重新选择该张图片才能正常关联起来

 

1、对比重新选择的路径和之前的路径有什么不同；

 

2、如果路径前后是相同的，说明你的列属性【存放目录】没有设置正确。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询