Asp组件高级入门与精通系列之三

王朝c#·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

Asp组件高级入门与精通系列之三

Asp组件高级入门与精通系列之三 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秒

可以下载www.applevb.com/flysoft.rar和http://www.5ivb.net/

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航