wsImage組件使用方法
一:獲得圖片大小(這裏是用象素值表示的.)
<%
set obj=server.CreateObject("wsImage.Resize") ''''調用組件
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
%>
''''----------------------------------------------------------------''''
二:添加文字水印
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''''裝載圖片
obj.Quality=75
obj.TxtMarkFont = "華文彩雲" ''''設置水印文字字體
obj.TxtMarkBond = false ''''設置水印文字的粗細
obj.MarkRotate = 0 ''''水印文字的旋轉角度
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
%>
''''----------------------------------------------------------------''''
三:添加圖片水印
<%
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組件的另外兩個主要用法.包括:
剪裁圖片,生成圖片的縮略圖.
還是以我得習慣,用代碼加註釋說明:
剪裁圖片:
<%
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 ''''定義裁減大小和生成圖片名字
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
詳細註釋:裁減圖片用到了WsImage的CropImage方法.其中定義生成圖片時候,100,10是左上角的裁減點,即離圖片左邊是100象素,頂端10象素.後兩個200代表的是裁減的寬帶和高和高度.
''''----------------------------------------------------------------''''
生成圖片縮略圖:
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''''加載圖片
obj.Quality=75
obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3 ''''定義縮略圖的名字即大小
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
詳細說明:
產生縮略圖共有四種導出方式:
(1) obj.OutputSpic server.mappath("25_s.jpg"),200,150,0
200爲輸出寬,150爲輸出高,這種輸出形式爲強制輸出寬高,可能引起圖片變形。
(2) obj.OutputSpic server.mappath("25_s.jpg"),200,0,1
以200爲輸出寬,輸出高將隨比列縮放。
(3) obj.OutputSpic server.mappath("25_s.jpg"),0,200,2
以200爲輸出高,輸出寬將隨比列縮放。
(4) obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3
第一個0.5表示生成的縮略圖是原圖寬的一半,即表示寬縮小比例。
第二個0.5表示生成的縮略圖是原圖高的一半,即表示高縮小比例。
寬高的縮小比例一致意味着將對原圖進行比例縮小。寬高的縮放比例如果大於1,則對原圖進行放大。
<%
set obj=server.CreateObject("wsImage.Resize") ''''調用組件
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
%>
''''----------------------------------------------------------------''''
二:添加文字水印
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''''裝載圖片
obj.Quality=75
obj.TxtMarkFont = "華文彩雲" ''''設置水印文字字體
obj.TxtMarkBond = false ''''設置水印文字的粗細
obj.MarkRotate = 0 ''''水印文字的旋轉角度
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
%>
''''----------------------------------------------------------------''''
三:添加圖片水印
<%
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組件的另外兩個主要用法.包括:
剪裁圖片,生成圖片的縮略圖.
還是以我得習慣,用代碼加註釋說明:
剪裁圖片:
<%
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 ''''定義裁減大小和生成圖片名字
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
詳細註釋:裁減圖片用到了WsImage的CropImage方法.其中定義生成圖片時候,100,10是左上角的裁減點,即離圖片左邊是100象素,頂端10象素.後兩個200代表的是裁減的寬帶和高和高度.
''''----------------------------------------------------------------''''
生成圖片縮略圖:
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg") ''''加載圖片
obj.Quality=75
obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3 ''''定義縮略圖的名字即大小
strError=obj.errorinfo
if strError<>"" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>
詳細說明:
產生縮略圖共有四種導出方式:
(1) obj.OutputSpic server.mappath("25_s.jpg"),200,150,0
200爲輸出寬,150爲輸出高,這種輸出形式爲強制輸出寬高,可能引起圖片變形。
(2) obj.OutputSpic server.mappath("25_s.jpg"),200,0,1
以200爲輸出寬,輸出高將隨比列縮放。
(3) obj.OutputSpic server.mappath("25_s.jpg"),0,200,2
以200爲輸出高,輸出寬將隨比列縮放。
(4) obj.OutputSpic server.mappath("25_s.jpg"),0.5,0.5,3
第一個0.5表示生成的縮略圖是原圖寬的一半,即表示寬縮小比例。
第二個0.5表示生成的縮略圖是原圖高的一半,即表示高縮小比例。
寬高的縮小比例一致意味着將對原圖進行比例縮小。寬高的縮放比例如果大於1,則對原圖進行放大。
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.