前一段时间就安装了，一直没有时间去测试，直到昨天晚上因为服务器无法访问才在本机测试下，特分享下测试结果，只针对GIF图片测试，JPEG的网上一大堆就没有必要重复了！
注：昨天晚上服务器无法访问原因归功于本博客一篇日志，日志内容为转载的一篇幽默搞笑的短文，内容为夫妻强悍对话(你能吗?) (你发现哪里不妥了吗，该文章已被我删除，现在的网监真和谐
）
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
- %>
最新的图片合并为动态图片功能
合并后效果
代码如下：
- <%
- '多图动画输出
- Dim Jpeg,Gif
- Set Jpeg = Server.CreateObject("Persits.Jpeg")
- Set Gif = Jpeg.Gif
- Dim FileNames(3)
- FileNames(0) = "1.jpg"
- FileNames(1) = "2.jpg"
- FileNames(2) = "3.jpg"
- Gif.Width = 100
- Gif.Height = 100
- For i = 0 To 2
- Jpeg.Open Server.MapPath(FileNames(i))
- Jpeg.PreserveAspectRatio = True
- if Jpeg.OriginalWidth > 100 or Jpeg.OriginalHeight > 100 Then
- if Jpeg.OriginalWidth > Jpeg.OriginalHeight Then
- Jpeg.Width = 100
- Else
- Jpeg.Height = 100
- End If
- End If
- Gif.AddImage Jpeg, (100 - Jpeg.Width) / 2, (100 - Jpeg.Height) / 2
- Gif.DisposalMethod =2
- Next
- Gif.SendBinary
- Set Gif=Nothing
- Set Jpeg=Nothing
- %>
最实用的莫过于Gif图片生成
代码比较复杂，需要花点时间去适应
- <%
- '生成动态图片
- Dim Jpeg,Gif
- Set Jpeg = Server.CreateObject("Persits.Jpeg")
- Set Gif = Jpeg.Gif
- Dim MarketShare
- MarketShare = 6
- For i = 1 to 5
- Gif.AddFrame 300, 200, 0, 0
- Gif.PenColor = 10
- Gif.BrushColor = 10
- Gif.DrawBar 0, 0, 300, 200
- Gif.PenColor = 201
- Gif.FontFamily = "Tahoma"
- Gif.FontSize = 13
- Gif.PrintText 60,13, "AspJpeg 2.0 生成动态图像测试"
- Gif.PrintText Gif.Width-85,Jpeg.Gif.Height-16, "FJ126.NET 蓝雨"
- Gif.PrintText 120, 50, 2003 + i
- Gif.PenColor = 0
- Gif.BrushColor = 30
- Gif.DrawPie 150, 130, 50, 0, MarketShare * 360 / 100
- Gif.BrushColor = 20
- Gif.DrawPie 150, 130, 50, MarketShare * 360 / 100, 360
- Gif.PenColor = 210
- Gif.PrintText 200, 100, MarketShare & "%"
- MarketShare = MarketShare * 2 - 3
- if i = 5 then Gif.Delay = 300
- Next
- Gif.SendBinary
- Set Gif=Nothing
- Set Jpeg=Nothing
- %>
上面的实例代码全部都是直接输出，如果需要保存处理后的图片，直接把代码里面Gif.SendBinary换成Gif.Save Server.MapPath("rotation.gif")即可！
提供下AspJpeg2.0的注册版下载：http://fj126.net/down/html/17.html
PS：安装后没用是因为你没给ASPJPEG组件目录权限，请给于目录于Everyone读取的权限。
加载中...
7
-
1 | 1 |引用 主页 第1楼 浩南的博客_广东省广州市海珠区 电信 发表于 2008-8-1 16:13:30
夫妻强悍对话。我之前转了你的文章，也被和谐了！