网络编程
位置:首页>> 网络编程>> Asp编程>> AspJpeg 2.0组件使用教程(GIF篇)

AspJpeg 2.0组件使用教程(GIF篇)

作者:蓝雨 来源:勃客蓝雨 发布时间:2008-12-16 19:37:00 

标签:AspJpeg,2.0,组件,教程,gif

前一段时间就安装了AspJpeg 2.0,一直没有时间去测试,直到昨天晚上因为服务器无法访问才在本机测试下,特分享下测试结果,只针对GIF图片测试,JPEG的网上一大堆就没有必要重复了!

AspJpeg 2.0提供了以下新的特点:

  1. 修复以前版本(1.0-1.8)可能被攻击的严重漏洞,建议更新为此版本。

  2. Gif的输出。 aspjpeg不再局限于的JPEG输出。创造的Gif动画和透明度,支持现已以及。

  3. 修复以前版本可能被攻击的严重漏洞,建议更新为此版本。

  4. 元数据编辑。以前的版本只可检索,但不能进行编辑元数据。

  5. 与aspjpeg 2.0的IPTC标签也可以补充和修改。

  6. 新的绘画方法。加强绘图功能,画布对象,现在提供了新的方法drawpie , drawroundrect和drawquad 。

2.0最新新特性就是支持Gif动态图像。


这是原始图片

<%  
'直接输出  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
    Set Gif = Jpeg.Gif  
        Gif.Open Server.MapPath("demo.gif")  
        Gif.SendBinary  
    Set Gif=Nothing  
Set Jpeg=Nothing  
%> 

 

这是加了水印的

<%  
'加文字水印  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
    Set Gif = Jpeg.Gif  
        Gif.Open Server.MapPath("demo.gif")  
        Gif.PenColor = 201  
        Gif.FontSize = 13  
        Gif.FontFamily = "Tahoma"  
        Gif.PrintText Gif.Width-80,Jpeg.Gif.Height-16, "FJ126.NET 蓝雨"  
        Gif.SendBinary  
    Set Gif=Nothing  
Set Jpeg=Nothing  
%>

 

这是缩略图效果,可以等比例缩略也可以按指定大小缩略,当然,也可以放大。

100*100

100*200

200*200

250*100

<%  
'动态图片缩小放大  
Dim Jpeg,Gif  
Set Jpeg = Server.CreateObject("Persits.Jpeg")  
    Set Gif = Jpeg.Gif  
        Gif.Open Server.MapPath("demo.gif")  
        Gif.Resize Gif.Width \2  
        Gif.SendBinary  
    Set Gif=Nothing  
Set Jpeg=Nothing  
%>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com