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
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
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)