ASp使用AspJpeg組件製作透明文字浮水印
來源：互聯網
上載者：User
aspjpeg|透明 支援人員：
1、aspjpeg能對圖片浮水印進行透明度調整，不能對文字浮水印調整，
2、aspjpeg支援Binary，可以Jpeg.OpenBinary讀取，可以Jpeg.sendBinary,也可Jpeg.Binary賦值
思路：
1、把原始的圖片資料二進位度賦值給TempA，
2、將文字浮水印處理後的圖片資料二進位賦值給TempB，
3、以TempB作為"圖片浮水印"，附加在TempA上，調整透明度，輸出就ok了
思路很簡單，代碼也很簡單：
<%
LocalFile="d:\apple.jpg"
TargetFile="d:\myapple.jpg"
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If Err.Number=-2147221005 then
Response.write "沒有這個組件，請安裝!"'檢查是否安裝AspJpeg組件
Response.End()
End If
Jpeg.Open (LocalFile)'開啟圖片
If err.number then
Response.write"開啟圖片失敗,請檢查路徑！"
Response.End()
End if
Dim TempA '原始圖片的位元據
Dim TempB '加了不透明文字浮水印的圖片
Dim TempC '最終效果
TempA=Jpeg.Binary'將未經處理資料賦給TempA
'=========加文字浮水印=================
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 = 5'輸出品質
Jpeg.Canvas.PrintText Jpeg.OriginalWidth/2-150,Jpeg.OriginalHeight/2,"www.Tsingfeng.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.2'0.3是透明度
TempC=MyJpeg.Binary'將最終結果賦值給TempC,這時也可以產生靶心圖表片了
response.BinaryWrite TempC'將二進輸出給瀏覽器
MyJpeg.Save (TargetFile)
set TempA=nothing
set TempB=nothing
set TempC=nothing
Jpeg.close
MyJpeg.Close
Logo.Close
%>
