用AspJpeg调整文字水印透明,生成图片水印的效果
2007-01-15 14:14
399 查看
公司做了个客户,需要图片生成像alibaba的效果。原来开发的系统都是用Aspjpeg进行缩小图的,现在需要处理图片,当然又想到这个组件。但后来发现,用Aspjpeg进行水印的时候效果总是不理想,特别是图片效果,而文字水印不能调整透明度同样不能满足客户。
![](http://web008.net/UserFiles/2006-8/15/2006815122658773.jpg)
技术支持:
1、aspjpeg能对图片水印进行透明度调整,不能对文字水印调整,
2、aspjpeg支持Binary,可以Jpeg.OpenBinary读取,可以Jpeg.sendBinary,也可Jpeg.Binary赋值
思路:
1、把原始的图片数据二进制度赋值给aa,
2、将文字水印处理后的图片数据二进制赋值给bb,
3、以bb作为"图片水印",附加在aa上,调整透明度,输出就ok了
思路很简单,代码也很简单:
<%
LocalFile="d:/mytest.jpg"
TargetFile="d:mytest_Text.jpg"
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件,请安装!" ’检查是否安装AspJpeg组件
Response.End()
End If
Jpeg.Open (LocalFile) ’打开图片
If err.number then
Response.write"打开图片失败,请检查路径!"
Response.End()
End if
Dim aa
aa=Jpeg.Binary ’将原始数据赋给aa
’=========加文字水印=================
Jpeg.Canvas.Font.Color = &Hfffffff ’水印文字颜色
Jpeg.Canvas.Font.Family = Arial ’字体
Jpeg.Canvas.Font.Bold = True ’是否加粗
Jpeg.Canvas.Font.Size = 35 ’字体大小
Jpeg.Canvas.Font.ShadowColor = &H000000 ’阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = True
Jpeg.Canvas.Font.Quality = 4 ’ ’输出质量
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-100,Jpeg.OriginalHeight/2+20,"www.sotuku.com" ’水印位置及文字
bb=Jpeg.Binary ’将文字水印处理后的值赋给bb,这时,文字水印没有不透明度
’============调整文字透明度================
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 0.2 ’0.3是透明度
cc=MyJpeg.Binary ’将最终结果赋值给cc,这时也可以生成目标图片了
response.BinaryWrite cc ’将二进输出给浏览器
MyJpeg.Save (TargetFile)
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close
MyJpeg.Close
Logo.Close
%>
效果图:
![](http://web008.net/UserFiles/2006-8/15/2006815122658864.jpg)
from http://web008.net/ 作者:[傻小子灵月]
google_ad_client = "pub-2416224910262877";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_channel = "";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
其他文章:
用ASPJPEG组件***图片的缩略图和加水印
在VC中使用 Flash 美化你的程序
获得WebBrowser控件中的HTML源码
使用IE控件的一些有趣方法
为Pocket PC上的IE创建ActiveX控件
ASP服务器端组件编程实例1
aspjpeg组件高级使用方法介绍
![](http://web008.net/UserFiles/2006-8/15/2006815122658773.jpg)
技术支持:
1、aspjpeg能对图片水印进行透明度调整,不能对文字水印调整,
2、aspjpeg支持Binary,可以Jpeg.OpenBinary读取,可以Jpeg.sendBinary,也可Jpeg.Binary赋值
思路:
1、把原始的图片数据二进制度赋值给aa,
2、将文字水印处理后的图片数据二进制赋值给bb,
3、以bb作为"图片水印",附加在aa上,调整透明度,输出就ok了
思路很简单,代码也很简单:
<%
LocalFile="d:/mytest.jpg"
TargetFile="d:mytest_Text.jpg"
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err then
Response.write "没有这个组件,请安装!" ’检查是否安装AspJpeg组件
Response.End()
End If
Jpeg.Open (LocalFile) ’打开图片
If err.number then
Response.write"打开图片失败,请检查路径!"
Response.End()
End if
Dim aa
aa=Jpeg.Binary ’将原始数据赋给aa
’=========加文字水印=================
Jpeg.Canvas.Font.Color = &Hfffffff ’水印文字颜色
Jpeg.Canvas.Font.Family = Arial ’字体
Jpeg.Canvas.Font.Bold = True ’是否加粗
Jpeg.Canvas.Font.Size = 35 ’字体大小
Jpeg.Canvas.Font.ShadowColor = &H000000 ’阴影色彩
Jpeg.Canvas.Font.ShadowYOffset = 1
Jpeg.Canvas.Font.ShadowXOffset = 1
Jpeg.Canvas.Brush.Solid = True
Jpeg.Canvas.Font.Quality = 4 ’ ’输出质量
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-100,Jpeg.OriginalHeight/2+20,"www.sotuku.com" ’水印位置及文字
bb=Jpeg.Binary ’将文字水印处理后的值赋给bb,这时,文字水印没有不透明度
’============调整文字透明度================
Set MyJpeg = Server.CreateObject("Persits.Jpeg")
MyJpeg.OpenBinary aa
Set Logo = Server.CreateObject("Persits.Jpeg")
Logo.OpenBinary bb
MyJpeg.DrawImage 0,0, Logo, 0.2 ’0.3是透明度
cc=MyJpeg.Binary ’将最终结果赋值给cc,这时也可以生成目标图片了
response.BinaryWrite cc ’将二进输出给浏览器
MyJpeg.Save (TargetFile)
set aa=nothing
set bb=nothing
set cc=nothing
Jpeg.close
MyJpeg.Close
Logo.Close
%>
效果图:
![](http://web008.net/UserFiles/2006-8/15/2006815122658864.jpg)
from http://web008.net/ 作者:[傻小子灵月]
google_ad_client = "pub-2416224910262877";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_channel = "";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
其他文章:
用ASPJPEG组件***图片的缩略图和加水印
在VC中使用 Flash 美化你的程序
获得WebBrowser控件中的HTML源码
使用IE控件的一些有趣方法
为Pocket PC上的IE创建ActiveX控件
ASP服务器端组件编程实例1
aspjpeg组件高级使用方法介绍
相关文章推荐
- 用AspJpeg调整文字水印透明,生成图片水印的效果
- 生成高清缩略图; 添加图片、文字水印; 图片、文字水印透明
- 生成高清缩略图; 添加图片、文字水印; 图片、文字水印透明
- asp.net 上传图片,生成缩略图,生成图片水印,文字水印
- [转]使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字和图片的水印图
- 使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字和图片的水印图
- Java调整图片大小合并PNG图片生成ICON(保持背景透明)
- Asp.net上传图片同时生成文字水印图,图片水印图,缩略图
- 使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字和图片的水印图
- ASP.NET 2.0 调用ASPJpeg组件生成文字水印
- asp.net 生成缩略图、为图片添加文字水印、图片水印等功能
- 利用PIL生成水印图片或文字
- 使用ASP.net(C#)批量上传图片并自动生成缩略图,文字水印图,图片水印图
- ThinkPHP水印功能实现修复PNG透明水印并增加JPEG图片质量可调整
- asp.net 上传图片,生成缩略图,生成图片水印,文字水印
- 如何实现文字加透明背景显示在一张图片的底部的效果
- 简单文字图片水印效果 - C#WinForm
- [转]使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字和图片的水印图
- 使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字和图片的水印图
- 使用FileUpload控件上传图片并自动生成缩略图、自动生成带文字和图片的水印图