利用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
%>
- 相關閱讀
- 性感的CSS菜單(Menus)
- jquery實現移動端下拉加載刷新更多信息
- asp文章內容自定義分頁
- 正則的常表達式
- 你們負責對網站的后期推廣嗎？
- 利用javascript高亮關鍵詞并且加上鏈接系列 2
- 深山留言板教師節效果
- 來自網易空間排行寬度可以變化的選項卡
- 共有0條關于《利用aspJpeg組件生成多圖片水印組合時給加上透明水印圖片》的評論
- 發表評論
蘇公網安備 32070502010230號