利用aspJpeg組件生成多圖片水印組合時給加上透明水印圖片
網(wǎng)絡(luò) 2018/3/16 17:00:02 深山工作室 字體:
大 中 小 瀏覽 4370
<%
'建立實(shí)例
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
%>
加透明圖片水印，實(shí)際上就是將兩個圖合并，最關(guān)鍵的就是這一句：
Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF
其中0.6是透明度，1是不透明，值越小，透明越大，0就什么也看不見了。&HFFFFFF這個參數(shù)是最關(guān)鍵的，這是透明圖片水印圖的背景色，這個參數(shù)必須與透明圖片水印圖的背景一樣，不然的話就實(shí)現(xiàn)不了透明了。就是我們不想看到的那一部分色。
以下是我們的實(shí)例
<%
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) 生成圖片的品質(zhì)
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, "深山工作室"'打印坐標(biāo)x 打印坐標(biāo)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, "中國" '打印坐標(biāo)x 打印坐標(biāo)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品質(zhì)的成品圖片
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
%>
- 相關(guān)閱讀
- 中南國際旅游公司
- 廣西亞太國際旅行社有限公司
- Div+CSS布局應(yīng)該注重語義、注重代碼的重用性
- 安卓版微信中播放視頻不自動全屏
- 如果你每天上網(wǎng)超過4個小時請按照以下方法做。
- 深山行者個人網(wǎng)站程序V0.2 效果圖
- 連云港華夏國際旅行社有限公司
- 收集的javascript客戶端驗(yàn)證函數(shù)大全
- 共有0條關(guān)于《利用aspJpeg組件生成多圖片水印組合時給加上透明水印圖片》的評論
- 發(fā)表評論
蘇公網(wǎng)安備 32070502010230號