请问下老师,下面这段后台处理图片的代码要怎么修改?
原本是蓝色那段代码直接保存上传的文件的,可是由于上传的文件太大了,我想进行压缩,就把图片压缩的代码放进来使用,结果出现下面红色的错误提示.
老师,这个压缩的代码要怎么修改?或者说有其他办法进行压缩吗?
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”。