Asp組件進階入門與精通系列之三

來源:互聯網
上載者:User
進階  

asp中測試

  <%
'產生縮減
On Error resume next
set obj=server.CreateObject("flysoft.image")
obj.LoadFromFile=server.MapPath("./love.bmp") '原始圖片
obj.Rate =0.5 '縮放比率 其中<1為縮小,>1為放大
obj.OutputImgFile  server.MapPath("./lovethumbmail_bmp.jpg") '產生結果圖片
if err.number<>0 then
response.write Err.Description
end if

%>

'產生浮水印
  <%
'產生文字浮水印
On Error resume next
set obj=server.CreateObject("flysoft.image")
obj.Rate = 0.5 '縮放比率 其中<1為縮小,>1為放大
obj.MarkRotate = 25 '旋轉角度
obj.MaskText = "浪漫的情人節  祝天下有情人終成眷屬" '要顯示的文字
obj.MaskTextFontName = "華文彩雲" '字型設定
obj.LoadFromFile =server.MapPath("./rose.bmp") '原始圖片
obj.OutputTxtImgFile server.MapPath("./rose_txtimg.jpg") , vbBlack, 20, 50, 0, 400 '參數分別代表:產生的圖片,字型的顏色,字型的寬度,字型的高度,最後兩個參數指文字相對於原始圖片左上方的座標位置
if err.number<>0 then
response.write Err.Description
end if
%>

 <%
'產生圖片浮水印
On Error resume next
set obj=server.CreateObject("flysoft.image")
obj.Rate = 0.5 '縮放比率 其中<1為縮小,>1為放大
obj.LoadFromFile = server.MapPath("./love.JPG") '原始圖片
obj.LoadFromMaskImgFile = server.MapPath("./rose_mark.bmp")  '浮水印圖片
obj.OutputMarkImgFile server.MapPath("./lovemark.jpg"), 350, 350, 100  '產生結果圖片 500,500為浮水印圖片相對於原始圖片左上方的座標位置 最後的100是透明度 (0最透明,100不透明)
if err.number<>0 then
response.write Err.Description
end if
%>

同時還作了效能測試

作者的機器配置是賽揚850,記憶體512機器上產生50張圖片(縮減,文字浮水印,圖片浮水印)用了7秒
機器配置是p4 2.4,記憶體1G 機器上產生50張圖片(縮減,文字浮水印,圖片浮水印)用了2秒



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

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 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。