扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:喻凯 来源:DotNET中文技术网 2007年10月25日
关键字:
<% ' 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 response.contenttype="image/gif" else response.contenttype="image/jpeg" end if imgOutput.save(response.outputstream, thisformat) g.dispose() imgOutput.dispose() end sub Sub sendError() dim imgOutput as New bitmap(120, 120, pixelformat.format24bpprgb) dim g as graphics = graphics.fromimage(imgOutput) g.clear(color.yellow) g.drawString("错误!", New font("黑体",14,fontstyle.bold),systembrushes.windowtext, New pointF(2,2)) response.contenttype="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(currentwidth, currentheight) dim tempMultiplier as Double if currentheight > currentwidth then tempMultiplier = 200 / currentheight Else tempMultiplier = 200 / currentwidth end if dim NewSize as New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier)) return NewSize End Function |
以上程序是增加的一个函数NewthumbSize,该函数专门处理改变一会的图片大小,这个图片的长宽和原图片的长宽保持相同比例。其他部分请参考上文程序代码。
三、画图特效
如果只是将图片显示在网页上,这样未免显得简单。现在,我们来进一步感受ASP.NET的强大功能。我们将学习图象处理中常用的图象反转、图象切割、图象拉伸等技巧。
先来看看程序效果:
仔细看,我们可以找到各种图象处理效果。现在,我们来看看程序代码:
<%@ Page Language="vb" Debug="True" %> <%@ import namespace="system.drawing" %> <%@ import namespace="system.drawing.imaging" %> <%@ import namespace="system.drawing.drawing2d" %> <% dim strFilename as string dim i as System.Drawing.Image strFilename = server.mappath("./chris-fsck.jpg") i = System.Drawing.Image.FromFile(strFilename) dim b as New system.drawing.bitmap(i.width, i.height, pixelformat.format24bpprgb) dim g as graphics = graphics.fromimage(b) g.clear(color.blue) '旋转图片 i.RotateFlip(System.Drawing.RotateFlipType.Rotate90FlipX) g.drawimage(i,New point(0,0)) i.RotateFlip(System.Drawing.RotateFlipType.Rotate270FlipY) g.RotateTransform(10) g.drawimage(i,New point(0,0)) g.RotateTransform(10) g.drawimage(i,New point(20,20)) g.RotateTransform(10) g.drawimage(i,New point(40,40)) g.RotateTransform(10) g.drawimage(i,New point(40,40)) g.RotateTransform(-40) g.RotateTransform(90) g.drawimage(i,New rectangle(100,-400,100,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel) g.RotateTransform(-90) ' 拉伸图片 g.drawimage(i,New rectangle(10,10,50,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel) g.drawimage(i,New rectangle(50,10,90,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel) g.drawimage(i,New rectangle(110,10,150,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel) '切割图片 g.drawimage(i,50,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel) g.drawimage(i,140,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel) '旋转图片 i.RotateFlip(System.Drawing.RotateFlipType.Rotate180FlipX) g.drawimage(i,230,100,New rectangle(180,110,60,110),GraphicsUnit.Pixel) response.contenttype="image/jpeg" b.save(response.outputstream, imageformat.jpeg) b.dispose() %> |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者