利用aspJpeg組件生成多圖片水印組合時給加上透明水印圖片
網絡 2018/3/16 17:00:02 深山工作室 字體:
大 中 小 瀏覽 4481
<%
'建立實例
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Set Jpeg1 = Server.CreateObject("Persits.Jpeg")
'打開要加水印的圖片
Jpeg.Open Server.mappath(路徑)
'透明圖片水印圖
Jpeg1.Open Server.mappath("../Images/sy.gif")
'合并圖
Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF '這句是可以起到加的gif或者png8圖片的背景透明，png24的格式會顯示有毛邊
' 保存文件
Jpeg.Save Server.mappath(路徑)
' 注銷對象
Set Jpeg = Nothing
Set Jpeg1 = Nothing
%>
加透明圖片水印，實際上就是將兩個圖合并，最關鍵的就是這一句：
Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF
其中0.6是透明度，1是不透明，值越小，透明越大，0就什么也看不見了。&HFFFFFF這個參數是最關鍵的，這是透明圖片水印圖的背景色，這個參數必須與透明圖片水印圖的背景一樣，不然的話就實現不了透明了。就是我們不想看到的那一部分色。
以下是我們的實例
<%
On Error Resume Next
'先加載原始圖片
Set yuan_jpeg = Server.CreateObject("Persits.Jpeg")
yuan_jpeg.RegKey="48958-77556-02411"
yuan_jpeg.open server.MapPath("yunshi/yuantu.jpg") '加載要加水印的圖片
'加載頭像水印圖片
set shuiying_jpeg = Server.CreateObject("Persits.Jpeg")
shuiying_jpeg.RegKey="48958-77556-02411"
shuiying_jpeg.open server.MapPath("touixiang.jpg") '加載頭像圖片 '做為水印加上
shuiying_jpeg.Width = 150
shuiying_jpeg.Height = 150
'在原圖上加上頭像圖片
yuan_jpeg.DrawImage 210, 320, shuiying_jpeg
yuan_jpeg.Quality=65 '0 (default), 1 (draft), 2 (proof), 3 (non-antialiased), 4 (antialiased) 生成圖片的品質
shuiying_jpeg.close
set shuiying_jpeg = nothing
'注銷加頭像的過程
'姓名
yuan_jpeg.Canvas.Font.Color = &Hd11f03 'red 顏色
yuan_jpeg.Canvas.Font.Family = "黑體" '字體
yuan_jpeg.Canvas.Font.size = 56 '字體
yuan_jpeg.Canvas.Font.Bold = true '是否加粗
yuan_jpeg.Canvas.Print 530, 365, "深山工作室"'打印坐標x 打印坐標y 需要打印的字符
'位置
yuan_jpeg.Canvas.Font.Color = &H2508fd 'red 顏色
yuan_jpeg.Canvas.Font.Family = "黑體" '字體
yuan_jpeg.Canvas.Font.size = 36 '字體
yuan_jpeg.Canvas.Font.Bold = true '是否加粗
yuan_jpeg.Canvas.Print 390, 890, "中國" '打印坐標x 打印坐標y 需要打印的字符
'加載汽車水印圖片
set car_jpeg = Server.CreateObject("Persits.Jpeg")
car_jpeg.RegKey="48958-77556-02411"
car_jpeg.open server.MapPath("yunshi/car/che.jpg")
yuan_jpeg.Canvas.DrawImage 685,740,car_jpeg,1,&HFFFFFF
yuan_jpeg.Quality=20 '生成20品質的成品圖片
car_jpeg.close
set car_jpeg=nothing
newimg_src = "/UploadFiles/down_touxiang/tupian.jpg" '要保存的新的圖片地址
yuan_jpeg.save server.MapPath(".." & newimg_src) '保存到文件夾
yuan_jpeg.close
set yuan_jpeg=nothing
%>
- 相關閱讀
- 留言板(釣魚島模板)V5.3
- 游戲-QQ穿越火線留言板模板
- 北京青年旅行社股份有限公司
- div中設置文字垂直居中
- asp金額數字轉換為大小寫漢字
- 從數據庫管理下手提升網站安全
- 用于深山在線投票的一個javascript統計checkbox現在選中的個數一邊點復選框一邊驗證并計算現在選了多少個復選框
- 詳細的百度蜘蛛爬行檢測代碼詮釋
- 共有0條關于《利用aspJpeg組件生成多圖片水印組合時給加上透明水印圖片》的評論
- 發表評論
蘇公網安備 32070502010230號