縮圖浮水印組件wsImage2.0

來源:互聯網
上載者:User
縮圖 功能特點:
1、匯入多種圖片格式,目前支援BMP,JPG,GIF等。
2、輸出JPG格式縮圖,自訂輸出壓縮參數
3、高效率產生縮圖,4種匯出方式,方便靈活。
4、圖片裁減功能,自訂裁減地區。
5、能購擷取圖片尺寸。
6、支援文字浮水印,可自訂字型、顏色、旋轉角度等。
7、支援圖片浮水印,圖片水引支援透明度。
8、效能更穩定,消耗系統資源少。

範例程式碼(以ASP為例)
•擷取圖片大小資訊
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("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.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
%>

原圖25.jpg 寬:400 高:298 大小:77K

產生的縮圖25_s.jpg 寬:200 高:149 大小:6K
說明:
產生縮圖共有四種匯出方式:
(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")
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
%>

原圖cropSource.jpg 寬:400 高:298 大小:77K

產生的裁減圖25_crop.jpg 寬:200 高:200 大小:7K
說明:
cropImage方法中參數100表示開始裁減的起點離原圖左邊的距離,10表示開始裁減的起點離原圖頂邊的距離,後兩個參數表示要裁減的寬度和高度。

•添加文字浮水印
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSoucePic server.mappath("25.jpg")
obj.Quality=75
obj.TxtMarkFont = "華文彩雲"
obj.TxtMarkBond = false
obj.MarkRotate = 25
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
%>

產生的文字浮水印圖txtMark.jpg 大小:7K
說明:
LoadSoucePic 裝載源圖
obj.TxtMarkFont 設定浮水印文字字型
obj.TxtMarkBond 設定浮水印文字的粗細
obj.MarkRotate = 25 水引文字的旋轉角度
obj.TxtMarkHeight = 25 水引文字的高度
obj.AddTxtMark方法中,參數&H00FF00&為浮水印文字的顏色代碼,&H表示十六進位, 10,70為輸出文字相對於圖片左上方的座標位置

•添加圖片浮水印
<%
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
%>

產生的圖片浮水印圖imgMark.jpg 大小:7K
說明:
obj.LoadSoucePic 裝載源圖
obj.LoadImgMarkPic 裝載浮水印圖片
obj.AddImgMark 315, 220為浮水印圖片在源圖的座標位置(相對於左上方) ,參數70為不透明度。

•擷取著作權資訊
<%
set obj=server.CreateObject("wsImage.Resize")
response.write obj.CopyRight
obj.free
set obj=nothing
%>

使用方法:
下載DLL到本地,運用 regsvr32 dll路徑,註冊,如果你的機器上上裝載有本組件的低版本,請先禦載,然後註冊最新版本。

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。