以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  上传图片压缩问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162380)

--  作者:lxhmax
--  发布时间:2021/4/13 11:16:00
--  上传图片压缩问题
请问下老师,下面这段后台处理图片的代码要怎么修改?
原本是蓝色那段代码直接保存上传的文件的,可是由于上传的文件太大了,我想进行压缩,就把图片压缩的代码放进来使用,结果出现下面红色的错误提示.
老师,这个压缩的代码要怎么修改?或者说有其他办法进行压缩吗?

For Each key As String In e.Files.Keys
If key = "front" Then
lj = ProjectPath & "web\\realname\\" & yhbh & "正面.jpg"
For Each fln As String In e.Files(key)
\'e.SaveFile(key,fln,lj) \'保存接收到的文件
Dim img As image = getImage(fln)
Dim bmp As bitmap
Dim ifo As New FileInfo(key)
If ifo.Length > 300000 Then
bmp = New bitmap(img, 600, 600 * (img.height / img.width))
bmp.save(lj,ImageFormat.Jpeg)
Else
bmp = img
bmp.save(lj)
End If
bmp.Dispose
                               next
                        end if
               next


.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.4.10.8
错误所在事件:自定义函数realname
详细错误信息:
调用的目标发生了异常。
未能找到文件“front”。

--  作者:有点蓝
--  发布时间:2021/4/13 11:34:00
--  
在这里压缩没有意义,已经接收到文件了。要在前端压缩:http://www.foxtable.com/mobilehelp/topics/0251.htm