ASP wsImage組件添加水印的實用代碼
2024-05-04 10:59:41
供稿：網(wǎng)友
ASP給圖片加水印是需要組件的...常用的有aspjpeg軟件和中國人自己開發(fā)的wsImage軟件，可以上網(wǎng)搜索下載這兩個軟件，推薦使用咱們中國人自己開發(fā)的wsImage，畢竟是中文版，容易操作．
注冊組件的方法:
命令提示符下輸入"regsvr32 [Dll路徑]" 就可以了．
圖片添加水印無非就是獲得圖片大小,然后把水印寫上去..ASP代碼只是起個控制組件的作用.用代碼來說明一切吧.
一:獲得圖片大小(這里是用象素值表示的.學(xué)PhotoShop的朋友都應(yīng)該明白)
復(fù)制代碼 代碼如下:
<%
set obj=server.CreateObject("wsImage.Resize") ''調(diào)用組件
obj.LoadSoucePic server.mappath("25.jpg") ''打開圖片,圖片名字是25.jpg
obj.GetSourceInfo iWidth,iHeight
response.write "圖片寬度:" & iWidth & "<br>" ''獲得圖片寬度
response.write "圖片高度:" & iHeight & "<br>" ''獲得圖片高度
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
''----------------------------------------------------------------''
二:添加文字水印
復(fù)制代碼 代碼如下:
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''裝載圖片
obj.Quality=75
obj.TxtMarkFont = "華文彩云" ''設(shè)置水印文字字體
obj.TxtMarkBond = false ''設(shè)置水印文字的粗細(xì)
obj.MarkRotate = 0 ''水印文字的旋轉(zhuǎn)角度
obj.TxtMarkHeight = 25 ''水印文字的高度
obj.AddTxtMark server.mappath("txtMark.jpg"), "帶你離境", &H00FF00&, 10, 70
strError=obj.errorinfo ''生成圖片名字,文字顏色即水印在圖片的位置
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
''----------------------------------------------------------------''
三:添加圖片水印
復(fù)制代碼 代碼如下:
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''裝載圖片
obj.LoadImgMarkPic server.mappath("blend.bmp") ''裝載水印圖片
obj.Quality=75
obj.AddImgMark server.mappath("imgMark.jpg"), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo ''生成圖片名字,文字顏色即水印在圖片的位置
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
''----------------------------------------------------------------''
其實給圖片添加水印就這么簡單.然后我在說下WsImage.dll組件的另外兩個主要用法.包括:
剪裁圖片,生成圖片的縮略圖.
還是以我得習(xí)慣,用代碼加注釋說明:
剪裁圖片:
復(fù)制代碼 代碼如下:
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.Quality=75
obj.cropImage server.mappath("25_crop.jpg"),100,10,200,200 ''定義裁減大小和生成圖片名字
