- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 压缩图片问题请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117083)
-- 发布时间：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
-- 发布时间：2018/4/6 9:43:00
--
bmp.Save(ProjectPath & "\\Attachments\\产品图\\" & e.Row("产品名称") & ".jpg", ImageFormat.Jpeg)
-- 发布时间：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
-- 发布时间：2018/4/12 16:30:00
--
回复3楼，你是说产品图列有多张图片？看看 http://www.foxtable.com/webhelp/scr/2717.htm
-- 发布时间：2018/4/13 9:31:00
--
如果我不知道客户上传的图片是jpg还是png，还是bmp，我能用这个 ImageFormat.Jpeg 后缀压缩吗？
-- 发布时间：2018/4/13 9:32:00
--
以下是引用chen37280600在2018/4/13 9:31:00的发言：
如果我不知道客户上传的图片是jpg还是png，还是bmp，我能用这个 ImageFormat.Jpeg 后缀压缩吗？
不是可以判断后缀名，然后再决定用何种方式压缩的吗？
-- 发布时间：2018/4/13 9:34:00
--
不是这个意思，每一列都只有一张图片
我意思是，我在本地选择图片，然后上传到服务器，图片列填入图片的路径，这样之后，本地可以正常看到图片
但是在服务器的客户端上，图片正常上传在对应的文件夹上，图片列也有地址，可实际上图片列并没有跟图片关联起来，在服务器上还要重新选择该张图片才能正常关联起来
-- 发布时间：2018/4/13 9:41:00
--
以下是引用lxhmax在2018/4/13 9:34:00的发言：
不是这个意思，每一列都只有一张图片
不是这个意思，每一列都只有一张图片
我意思是，我在本地选择图片，然后上传到服务器，图片列填入图片的路径，这样之后，本地可以正常看到图片
但是在服务器的客户端上，图片正常上传在对应的文件夹上，图片列也有地址，可实际上图片列并没有跟图片关联起来，在服务器上还要重新选择该张图片才能正常关联起来
1、对比重新选择的路径和之前的路径有什么不同；
2、如果路径前后是相同的，说明你的列属性【存放目录】没有设置正确。