AspJpeg组件的完全应用 (aspnet) 2006-12-08 15:02:03 【留言】 三峡博客sxblog.cn 　　1、为图片制作缩略图三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　Dim Jpeg,Path三峡博客sxblog.cn 　　sjpgpath = Server.mappath(wzPath&sname&"_"&wzfilename&".jpg")三峡博客sxblog.cn 　　Jpeg.Open sjpgPath三峡博客sxblog.cn 　　Jpeg.Width = 520三峡博客sxblog.cn 　　Jpeg.Height = int(Jpeg.OriginalHeight*520/Jpeg.OriginalWidth)三峡博客sxblog.cn 　　Jpeg.Interpolation = 1三峡博客sxblog.cn 　　Jpeg.Quality = 88三峡博客sxblog.cn 　　Jpeg.Save sjpgpath三峡博客sxblog.cn 　　Set Jpeg = Nothing三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　2、为图片加入水印功能三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　思路很简单，代码也很简单：三峡博客sxblog.cn 　　LocalFile="d:\mytest.jpg" 三峡博客sxblog.cn 　　TargetFile="d:mytest_Text.jpg" 三峡博客sxblog.cn 　　Dim Jpeg 三峡博客sxblog.cn 　　Set Jpeg = Server.CreateObject("Persits.Jpeg") 三峡博客sxblog.cn 　　Jpeg.Open (LocalFile) ’打开图片 三峡博客sxblog.cn 　　If err.number then 三峡博客sxblog.cn 　　Response.write"打开图片失败,请检查路径！" 三峡博客sxblog.cn 　　Response.End() 三峡博客sxblog.cn 　　End if 三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　Dim aa 三峡博客sxblog.cn 　　aa=Jpeg.Binary ’将原始数据赋给aa 三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　’=========加文字水印================= 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Color = &Hfffffff ’水印文字颜色 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Family = Arial ’字体 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Bold = True ’是否加粗 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Size = 35 ’字体大小 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.ShadowColor = &H000000 ’阴影色彩 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.ShadowYOffset = 1 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.ShadowXOffset = 1 三峡博客sxblog.cn 　　Jpeg.Canvas.Brush.Solid = True 三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Quality = 4 ’ ’输出质量 三峡博客sxblog.cn 　　Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-100,Jpeg.OriginalHeight/2+20,"www.sotuku.com" ’水印位置及文字 三峡博客sxblog.cn 　　bb=Jpeg.Binary ’将文字水印处理后的值赋给bb，这时，文字水印没有不透明度三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　’============调整文字透明度================ 三峡博客sxblog.cn 　　Set MyJpeg = Server.CreateObject("Persits.Jpeg") 三峡博客sxblog.cn 　　MyJpeg.OpenBinary aa 三峡博客sxblog.cn 　　Set Logo = Server.CreateObject("Persits.Jpeg") 三峡博客sxblog.cn 　　Logo.OpenBinary bb 三峡博客sxblog.cn 　　MyJpeg.DrawImage 0,0, Logo, 0.2 ’0.3是透明度 三峡博客sxblog.cn 　　cc=MyJpeg.Binary ’将最终结果赋值给cc,这时也可以生成目标图片了 三峡博客sxblog.cn 　　response.BinaryWrite cc ’将二进输出给浏览器 三峡博客sxblog.cn 　　MyJpeg.Save (TargetFile) 三峡博客sxblog.cn 　　set aa=nothing 三峡博客sxblog.cn 　　set bb=nothing 三峡博客sxblog.cn 　　set cc=nothing 三峡博客sxblog.cn 　　Jpeg.close 三峡博客sxblog.cn 　　MyJpeg.Close 三峡博客sxblog.cn 　　Logo.Close 三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　<%三峡博客sxblog.cn 　　Dim Jpeg' 建立实例三峡博客sxblog.cn 　　Set Jpeg = Server.CreateObject("Persits.Jpeg")' 打开目标图片三峡博客sxblog.cn 　　Jpeg.Open Server.MapPath("images/dodge_viper.jpg")三峡博客sxblog.cn 　　' 添加文字水印三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Color = &HFF0000' 红色三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Family = "宋体"三峡博客sxblog.cn 　　Jpeg.Canvas.Font.Bold = True 三峡博客sxblog.cn 　　Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"三峡博客sxblog.cn 　　Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")三峡博客sxblog.cn 　　Set Jpeg = Nothing%> 三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　' 获取源图片路径三峡博客sxblog.cn 　　Path = Server.MapPath("uploadimages/")&"/"&FileName三峡博客sxblog.cn 　　Jpeg.Open Path三峡博客sxblog.cn 　　' 设定生成缩略图细节 这里有很多种设定方法 下面的方法是先判断宽高比 然后按比例缩放三峡博客sxblog.cn 　　If Jpeg.OriginalWidth / Jpeg.OriginalHeight > 1 then三峡博客sxblog.cn 　　Jpeg.Width = 98 三峡博客sxblog.cn 　　Jpeg.Height = int((98/Jpeg.OriginalWidth)*Jpeg.OriginalHeight)三峡博客sxblog.cn 　　elseif Jpeg.OriginalWidth / Jpeg.OriginalHeight < 1 then三峡博客sxblog.cn 　　Jpeg.Width = 98三峡博客sxblog.cn 　　Jpeg.Height= int((98/Jpeg.OriginalWidth)*Jpeg.Height)三峡博客sxblog.cn 　　end if三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲调用组件三峡博客sxblog.cn 　　Set Jpeg = Server.CreateObject("Persits.Jpeg")三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲检查组件安装三峡博客sxblog.cn 　　If -2147221005=Err then 三峡博客sxblog.cn 　　Response.write "不支持这个组件!" 三峡博客sxblog.cn 　　Response.End() 三峡博客sxblog.cn 　　End If 三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲读取源文件三峡博客sxblog.cn 　　Jpeg.Open Server.mappath(wzPath&sname&"_"&wzfilename&".jpg")三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲设定图像质量三峡博客sxblog.cn 　　Jpeg.Quality = 85(默认值为80，最佳为100)三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲设定压缩方式 image resizing algorithm三峡博客sxblog.cn 　　Jpeg.Interpolation = 1(2最慢，默认值为1，最快为0)三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲设定锐化效果(供选择，如果必要的话)三峡博客sxblog.cn 　　Jpeg.Sharpen 1,120三峡博客sxblog.cn 　　第一个阐述为半径（1或2），第二个为数量（百分比，大于100）三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲设定剪切范围 >Version 1.1三峡博客sxblog.cn 　　Jpeg.Crop(x0, y0, x1, y1)三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲设定图片旋转 >Version 1.1三峡博客sxblog.cn 　　Jpeg.FlipH()（FlipV）三峡博客sxblog.cn 　　三峡博客sxblog.cn 　　▲向指定路径生成缩略图三峡博客sxblog.cn 　　Jpeg.Save Server.MapPath("uploadimages/")&"/small"&FileName三峡博客sxblog.cn 　　 ■ 楼主 - 爱网(aspnet)：爱，不一定有未来，但无爱，必定没有未来~ 【收藏】 【打印】 【关闭】 用户： 符号 ★ ▲ ■ ● ◆ ※ ◎ □ ◇ △ ☆ 〖〗 【】 × √ ← → 使用帮助 留言： *1000字以内     以上网友发言只代表其个人观点，不代表本站及“三峡博客”的观点或立场

精华日志列表 　　　日志人气排行