知识大全 ASP.NET图象处理详解(2)

Posted 2022-07-17 函数

篇首语：仓廪实则知礼节，衣食足则知荣辱。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP.NET图象处理详解(2)相关的知识，希望对你有一定的参考价值。

ASP.NET图象处理详解(2) 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

二读取和改变图象文件大小　　读取图片？直接使用HTML不就可以了？当然可以我们这里只是提供一种选择和方法来实现这一功能具体这一功能的使用我们可能需要在实践中更多的学习先来看程序源代码　　＜% import all relevant namespaces %＞　　＜%@ import namespace= System %＞　　＜%@ import namespace= System Drawing %＞　　＜%@ import namespace= System Drawing Imaging %＞　　＜%@ import namespace= System IO %＞　　＜script runat= server ＞　　 Sub sendFile()　　 dim g as System Drawing Image = System Drawing Image FromFile(server mappath(request( src )))　　 dim thisFormat=g rawformat　　 dim imgOutput as New Bitmap(g cint(request( width )) cint(request( height )))　　 if thisformat equals(system drawing imaging imageformat Gif) then　　 ntenttype= image/gif 　　 else　　 ntenttype= image/jpeg 　　 end if　　 imgOutput save(response outputstream thisformat)　　 g dispose()　　 imgOutput dispose()　　 end sub　　Sub sendError()　　 dim imgOutput as New bitmap( pixelformat format bpprgb)　　 dim g as graphics = graphics fromimage(imgOutput)　　 g clear(color yellow)　　 g drawString( 错误！ New font( 黑体 fontstyle bold) systembrushes windowtext New pointF( ))　　 ntenttype= image/gif 　　 imgOutput save(response outputstream imageformat gif)　　 g dispose()　　 imgOutput dispose()　　 end sub　　＜/script＞　　＜%　　 response clear　　 if request( src )= or request( height )= or request( width )= then　　 call sendError()　　 else　　 if file exists(server mappath(request( src ))) then　　 call sendFile()　　 else　　 call sendError()　　 end if　　 end if　　 response end　　 %＞　　在以上的程序中我们看到两个函数一个是SendFile 这一函数主要功能为显示服务器上的图片该图片的大小通过Width和Height设置同时程序会自动检测图片类型另外一个是SendError 这一函数的主要功能为服务器上的图片文件不存在时显示错误信息这里很有趣错误信息也是通过图片给出的（如图）　　　　以上的程序显示图片并且改变图片大小现在我们将这个程序进一步显示图片并且保持图片的长宽比例这样和实际应用可能比较接近特别是需要制作电子相册或者是图片网站的时候比较实用我们先来看主要函数　　Function NewthumbSize(currenidth currentheight)　　 dim tempMultiplier as Double　　 if currentheight ＞ currenidth then　　 tempMultiplier = / currentheight　　 Else　　 tempMultiplier = / currenidth　　 end if　　 dim NewSize as New Size(CInt(currenidth * tempMultiplier) CInt(currentheight * tempMultiplier))　　 return NewSize　　 End Function　　以上程序是增加的一个函数NewthumbSize 该函数专门处理改变一会的图片大小这个图片的长宽和原图片的长宽保持相同比例其他部分请参考上文程序代码 cha138/Article/program/net/201311/11732