用AspJpeg调整文字水印透明，生成图片水印的效果

ゞ浴缸里的玫瑰 2022-09-18 05:51 273阅读 0赞

公司做了个客户，需要图片生成像alibaba的效果。原来开发的系统都是用Aspjpeg进行缩小图的，现在需要处理图片，当然又想到这个组件。但后来发现，用Aspjpeg进行水印的时候效果总是不理想，特别是图片效果，而文字水印不能调整透明度同样不能满足客户。

![用AspJpeg调整文字水印透明，生成图片水印的效果][AspJpeg]

**技术支持：**  
　　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  
%>

效果图：

![用AspJpeg调整文字水印透明，生成图片水印的效果][AspJpeg 1]

from [http://web008.net/][http_web008.net] 作者：\[[傻小子灵月][Link 1]\]

**其他文章：**

[用ASPJPEG组件制作图片的缩略图和加水印][ASPJPEG]

[在VC中使用 Flash 美化你的程序][VC_ Flash]

[获得WebBrowser控件中的HTML源码][WebBrowser_HTML]

[使用IE控件的一些有趣方法][IE]

[为Pocket PC上的IE创建ActiveX控件][Pocket PC_IE_ActiveX]

[ASP服务器端组件编程实例1][ASP_1]

[aspjpeg组件高级使用方法介绍][aspjpeg]

[AspJpeg]: /images/20220828/085a5caaefaf4757994ee4de0efbadfe.png
[AspJpeg 1]: /images/20220828/c585b37c994343e4882bf7a671751a9b.png
[http_web008.net]: http://web008.net/
[Link 1]: http://web008.net/florilegium.asp?a_name=傻小子灵月&a_id=0
[ASPJPEG]: http://blog.csdn.net/suprman/archive/2007/01/05/1474628.aspx
[VC_ Flash]: http://blog.csdn.net/suprman/archive/2007/01/04/1473607.aspx
[WebBrowser_HTML]: http://blog.csdn.net/suprman/archive/2007/01/04/1473579.aspx
[IE]: http://blog.csdn.net/suprman/archive/2007/01/04/1473582.aspx
[Pocket PC_IE_ActiveX]: http://blog.csdn.net/suprman/archive/2007/01/04/1473575.aspx
[ASP_1]: http://blog.csdn.net/suprman/archive/2006/10/23/1346201.aspx
[aspjpeg]: http://blog.csdn.net/suprman/archive/2007/01/05/1474632.aspx