Sub make_pic(ByVal str_filename As String) ' str_filename 是文件的名称
Try
Dim image, aNewImage As System.Drawing.Image
Dim callb As System.Drawing.Image.GetThumbnailImageAbort
Dim width, height, newwidth, newheight As Int32
image = System.Drawing.Image.FromFile(Server.MapPath("image/person/" & str_filename))
' image = System.Drawing.Image.FromStream(imgstream)
width = image.Width ' image.Width
height = image.Height 'image.Height
Response.Write("<br>原始图片高为:" & height)
Response.Write("<br>原始图片宽为:" & width)
aNewImage = image.GetThumbnailImage(150, 150, callb, New IntPtr)
aNewImage.Save(Server.MapPath("image/person/aaaaaa.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)
image.Dispose()
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
1.
aNewImage.Save(Server.MapPath("image/person/aaaaaa.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)中的Server.MapPath("image/person/aaaaaa.jpg") 是保存图象。如果原始图象和保存图像是一样的文件名的话，会有错误发生的（注意）
2.
Sub make_pic(ByVal str_filename As String) 的参数也可以是对象类型，
定义成 sub make_pic(byval Imgstream)
那image就应该写成 image = System.Drawing.Image.FromStream(imgstream)
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。