今天在月光的博客上看到一个关于ASPJPEG这个组件的使用方法。
刚接触水印那会，就知道这个组件，但是貌似是要付费，而且说明文件是英文的。(汗，虽然读了那么多年的英文，现在估计也就是当初初中的水平，蛮对不住那么多位英文老师得-_-!)
也就没有使用，但是工作中还是会用到水印这个东西，而且很多的客户都指明要水印，现在的处理方法是让人工处理，效率低下，客户的抱怨比较多， 如果用程序来处理，虽然效果上可能没有人工处理那么精确，但是效率是得到不可限量的提高啊。
目前这个组件可以在Oblog的下载页面处下载AspJpeg v1.5.0.0，然后执行下载得到的文件，安装该组件。

以下为原版引用：

然后在ASP代码里增加一点点代码即可，增加的位置可以放在上传图片完成后，取得图片地址，进行修改。对于Z-Blog的使用者，直接将下面代码复制到c_system_lib.asp文件的TUpLoadFile类中的Upload函数的结尾即可实现水印功能。
1、为图片加入水印功能

Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName  ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑 
Jpeg.Canvas.Font.Family = "方正隶变简体"  ' 设置字体 
Jpeg.Canvas.Font.Bold = False '是否设置成粗体 
Jpeg.Canvas.Font.Size = 26 '字体大小 
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "WWW.WILLIAMLONG.INFO"   '水印文字
Jpeg.Save BlogPath & "/upload/" & FileName  ' 保存文件
Set Jpeg = Nothing

2、为图片制作缩略图

Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName  ' 图片所在位置
Jpeg.Width = Jpeg.OriginalWidth / 2 
Jpeg.Height = Jpeg.OriginalHeight / 2 
' 设置缩略图大小（这里比例设定为50%），也可以给他准确的数值，比如Jpeg.Width=120 
Jpeg.Save BlogPath & "/upload/" & FileName  ' 保存文件
Set Jpeg = Nothing

另外，也在网上找到一些aspjepg的使用方法

aspjpeg高级使用方法
这里的技术主要包括：
图片缩略
图片水印
安全码技术
图片切割
图片合并
数据库支持
更多不常用的方法介绍
以及相关的一些实用技术
aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。
一、图片缩略
<％
Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件
Path = Server.MapPath("images") & "clock.jpg" 待处理图片路径
Jpeg.Open Path 打开图片
高与宽为原图片的1/2
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
保存图片
Jpeg.Save Server.MapPath("images") & "clock_small.jpg"
％>

二、图片水印
<％
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
开始写文字
Jpeg.Canvas.Font.Color = &HFF0000' red 颜色
Jpeg.Canvas.Font.Family = "Courier New" 字体
Jpeg.Canvas.Font.Bold = True 是否加粗
Jpeg.Canvas.Print 10, 10, "Copyright (c) XYZ, Inc."
打印坐标x 打印坐标y 需要打印的字符
以下是对图片进行边框处理
Jpeg.Canvas.Pen.Color = &H000000' black 颜色
Jpeg.Canvas.Pen.Width = 2 画笔宽度
Jpeg.Canvas.Brush.Solid = False 是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
起始X坐标 起始Y坐标 输入长度 输入高度
Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg") 保存
％>
三、安全码
安全玛的道理和加水印差不多，

<％
生成安全码的函数
function make_randomize(max_len,w_n) max_len 生成长度，w_n：0 可能包含字母，1：只为数字
randomize
for intcounter=1 to max_len
whatnext=int((1-0+1)*rnd+w_n)
if whatnext=0 then
upper=122
lower=97
else
upper=57
lower=48
end if
strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)
next
make_randomize=strnewpass
end function
％>
生成安全码的图片。当然你要预先准备一张背景图哦
<％random_num=make_randomize(4,1) 生成4位数字的安全码
session("random_num")=random_num 为什么调用session，没有session的安全码是完全没有意义的。呵呵
Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件
Jpeg.Open Server.MapPath("infos/random_pic/random_index.gif") 打开准备的图片
Jpeg.Canvas.Font.Color = &H006699
Jpeg.Canvas.Font.Family = "Arial Black"
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath("infos/random_pic/random_index.bmp") 保存
％>
自己做做看。呵呵。
不想做背景图片的。去http://comapny.windowscar.com/infos/random_pic/random_index.gif下载吧
四、图片切割
一直以来，对aspjpeg不了解的人以为是无法用它来进行切割的。
其实有这样的一个方法的
crop x1,y1,x2,y2
切割长方型左上角x坐标，y坐标 右下角x坐标 y坐标
下面我就做一个演示哈
Set Jpeg = Server.CreateObject("Persits.Jpeg")
jpeg.open server.MapPath("/pic/1.gif")
jpeg.width=70
Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth
jpeg.crop 0,0,70,52 开始切割其实是把超过52象素的下部分去掉
jpeg.save server.MapPath("/temp_pic/small_1.gif") 保存
怎么样，很简单吧
五、图片合并
我们这里是要把logo图片加到dodge_viper.jpg图片上去
其实，图片合并的方法也可以用来动态打水印哦
Set Photo = Server.CreateObject("Persits.Jpeg")
PhotoPath = Server.MapPath("images") & "dodge_viper.jpg"
Photo.Open PhotoPath
Set Logo = Server.CreateObject("Persits.Jpeg")
LogoPath = Server.MapPath("images") & "clock.jpg"
Logo.Open LogoPath

Logo.Width = 70
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth

Photo.DrawImage 0, 0, Logo

Photo.SendBinary 这里用了sendBinary的输出方法。当然，你也可以先保存更改后的dodge_viper.jpg，再输入也可以。我个人不大喜欢用sendBinary方法，在网速慢的时候容易出错。在速度方面也不怎样。呵呵。
六、数据库支持
这里不多说了。其实就是Binary方法，大家知道图片存进数据库只能存为二进制的文件的。所以代码就懒的写了。
七、更多方法介绍
Canvas.Line(Left, Top, Right, Bottom)
画一条直线
Canvas.Ellipse(Left, Top, Right, Bottom)
画出一个椭圆
Canvas.Circle(X, Y, Radius)
画出一个圆
Canvas.Bar(Left, Top, Right, Bottom)
画出一个长方形，上面有代码介绍了
Canvas.Font.ShadowColor
文字阴影颜色
Canvas.Font.ShadowXOffset As Long
阴影X坐标设定
Canvas.Font.ShadowYOffset As Long
Y坐标设定
Canvas.Font.BkMode As String
文字背景


使用实例: 添加有透明度的水印文字

  Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
  Jpeg.Open Server.Mappath(sUploadDir & sSaveFileName) ' 图片所在位置
  Dim TempA '原始图片的二进制数据
  Dim TempB '加了不透明文字水印的图片
  Dim TempC '最终效果
  TempA=Jpeg.Binary'将原始数据赋给TempA 
  Jpeg.Canvas.Font.Color = &hffffff ' 颜色,这里是设置成:黑 
  Jpeg.Canvas.Font.Family = "宋体"  ' 设置字体 
  Jpeg.Canvas.Font.Bold = True '是否设置成粗体 
  Jpeg.Canvas.Font.Size = 28 '字体大小 
  Jpeg.Canvas.Font.Quality = 5 ' 文字清晰度
  Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight/2-30, "www.ImFei.com"   '水印文字
  '=========加文字水印================= 
  TempB=Jpeg.Binary'将文字水印处理后的值赋给TempB，这时，文字水印没有不透明度 
  Set MyJpeg = Server.CreateObject("Persits.Jpeg") 
  MyJpeg.OpenBinary TempA 
  Set Logo = Server.CreateObject("Persits.Jpeg") 
  Logo.OpenBinary TempB 
  MyJpeg.DrawImage 0,0, Logo, 0.4'0.3是透明度 
  TempC=MyJpeg.Binary'将最终结果赋值给TempC,这时也可以生成目标图片了 
  MyJpeg.Save Server.Mappath(sUploadDir & sSaveFileName)  ' 保存文件
  set TempA=nothing 
  set TempB=nothing 
  set TempC=nothing 
  Jpeg.close 
  MyJpeg.Close 
  Logo.Close 

发布:飞飞 | 分类:web编程 | 评论:2 | 浏览: | 字号:大 中 小