ASPJPEG水印使用简略说明 -- 77家的会客厅 3rgb.com

ASPJPEG水印使用简略说明: Weather:阵雨,南风４－５级,最高气温26 ℃; 2005-09-01; 一、ASPJPEG文字水印对图片描边：

程序代码：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 创建组件
Jpeg.Open Server.MapPath("images.jpg")
' 打开图片
'也可以用OpenBinary读取二进制数据
' 以下是写入水印文字
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "宋体" 'family设置字体
Jpeg.Canvas.Font.Bold = True '是否设置成粗体
Jpeg.Canvas.Font.Size = 12 '字体大小
Jpeg.Canvas.Print 100, 100, "www.863171.com" '在相应的位置打印文字，如果靠右可以用Jpeg.Canvas.Print Jpeg.width-160, Jpeg.height-30, "863171.COM"
Jpeg.Save Server.MapPath("images.jpg") 'OK,大功告成,输入保存!
%>

二、ASPJPEG对图片描边

程序代码：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 创建组件
Jpeg.Open Server.MapPath("images.jpg")
' 打开图片
'也可以用OpenBinary读取二进制数据

'下面是对图片进行描边处理
Jpeg.Canvas.Pen.Color = &H000000 ' 颜色
Jpeg.Canvas.Pen.Width = 2 '描边像素:单位pix
Jpeg.Canvas.Brush.Solid = False ' 如果要描边,这里不能设成"真",否则整个区域会被填充为上面的颜色
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height '描边的位置及对应宽度

Jpeg.Save Server.MapPath("images.jpg") 'OK,大功告成,输入保存!
%>

三、ASPJPEG改变图片大小，即缩略图功能：

程序代码：
<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("images") & "\clock.jpg"
Jpeg.Open Path

Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
'改变成原来的50%,Jpeg.Width,Jpeg.Height也可以给他准确的数值，比如Jpeg.Width=120

Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"
%>; Views(4723) | Comments(2) | In: web develop |