注册

功能介绍:
  • 导入多种图片格式,目前支持BMP,JPG,GIF等。
  • 输出JPG格式缩略图,自定义输出压缩参数
  • 高效率生成缩略图,4种导出方式,方便灵活。
  • 图片裁减功能,自定义裁减区域。
  • 能够获取图片尺寸。
  • 支持文字水印透明度、文字阴影及阴影模糊,自定义字体、颜色、旋转角度等。
  • 支持图片水印,图片水印支持透明度。
  • 支持图片任意角度旋转。
  • 清晰的文字水印边缘。
  • 纯代码实现,无须任何运行库,无须GDI+库,发布和布署方便。
  • 在WIN98,WIN2000,WIN2003,WIN7, WIN8, WIN10等操作系统上均测试通过。
  • 性能更稳定,消耗系统资源少。
  • 文字水印和图片水印支持Alpha模糊和阴影,达到photoshop等专业级效果。
  • 组件是WINDOWS平台COM组件,可以被VB,ASP,DELPHI,ASP.NET,VC++,C#等语言调用。
应用范围:
  • 生成图片的缩略图
  本组件的主要功能之一。生成的缩略图效果好,生成效率高,4种生成缩略图的方式灵活,适用于各种需要。
asp代码:
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSourceImage server.mappath("25.jpg")
obj.Quality=75
obj.MakeThumbImage server.mappath("25_s.jpg"),0.35,0.35,3
obj.GetErrorInfo(strError)
if strError<>"" then
response.write strError
end if
set obj=nothing
%>  

原图25.jpg 宽:500 高:380 大小:83162字节


产生的缩略图25_s.jpg 宽:175 高:133 大小:10494字节

说明:
产生缩略图共有四种导出方式:
(1).
obj.MakeThumbImage server.mappath("25_s.jpg"),200,150,0
200为输出宽,150为输出高,这种输出形式为强制输出宽高,可能引起图片变形。
(2).
obj.MakeThumbImage server.mappath("25_s.jpg"),200,0,1
以200为输出宽,输出高将随比列缩放。
(3).
obj.MakeThumbImage server.mappath("25_s.jpg"),0,200,2
以200为输出高,输出宽将随比列缩放。
(4).
obj.MakeThumbImage server.mappath("25_s.jpg"),0.5,0.5,3
第一个0.5表示生成的缩略图是原图宽的一半,即表示宽缩小比例。
第二个0.5表示生成的缩略图是原图高的一半,即表示高缩小比例。
宽高的缩小比例一致意味着将对原图进行比例缩小。宽高的缩放比例如果大于1,则对原图进行放大。

从上面四种产生缩略图的方式可以看出最后一个参数为第几种输出形式。


  • 添加文字水印
  本组件的主要功能之一。添加文字水印的效果好,支持透明度,支持阴影(含3D阴影),支持旋转角度,支持字体、颜色、大小等属性,支持文字水印外轮廓效果,支持自动定位文字水印到图片四个角落或图片正中间,输出水印图片效率高。
asp代码:
<body>
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSourceImage server.mappath("25.jpg")
obj.TextMarkFontName = "隶书" 
obj.MarkTransparent = 30
obj.TextMarkRotate = 30
obj.TextMarkColor = RGB(0, 55, 120)
obj.TextMarkShadowVisible = true
obj.TextMarkShadowColor = RGB(255, 155, 155)
obj.TextMarkShadowDistance = 2
obj.TextMarkShadowSize = 5
obj.TextMarkBold = true
obj.TextMarkHeight = 40
obj.MarkPos = 4
obj.AddTextMark "文字水印", 10, 10
obj.MakeMarkImage server.mappath("25_txtMark.jpg")

'参数说明:
' server.mappath("25_txtMark.jpg")----生成的带文字水印的图片路径
' TextMarkColor=RGB(0, 55, 120) ----文字水印的颜色,可以用RGB(0,255,0)的形式表示
' 10, 10----文字水印的坐标位置,相对于原图左上角
' MarkTransparent=30----文字水印的透明度,同时影响阴影
' TextMarkShadowColor = RGB(255, 155, 155) ----文字阴影的颜色
' TextMarkShadowSize = 5 ----文字阴影的大小
' 45----文字阴影的光照角度
' TextMarkShadowDistance = 2----文字阴影距离原文字的距离

obj.GetErrorInfo(strError)
if strError<>"" then
response.write strError
end if
set obj=nothing
%>
原图:<br><img src="<%=server.mappath("25.jpg")%>"><br>
生成的缩略图:<br><img src="<%=server.mappath("25_txtMark.jpg")%>">
</body>

产生的文字水印图25_txtMark.jpg 大小:42K

说明:
LoadSoucePic 装载源图
obj.TxtMarkFont 设置水印文字字体
obj.TxtMarkBond 设置水印文字的粗细
obj.MarkRotate = 20 水引文字的旋转角度
obj.TxtMarkHeight = 10 水引文字的高度
obj.MarkPos = 4 '自动定位到图片右下角,5.0以上版本支持
obj.AddTxtMark方法中,参数&H00FF00&为水印文字的颜色代码,&H表示十六进制, 10,70为输出文字相对于图片左上角的坐标位置

  • 添加图片水印
  本组件的主要功能之一。添加图片水印的效果好,支持透明度,支持镂空效果,支持自动定位图片水印到图片四个角落或图片正中间,输出水印图片效率高,清晰。
asp代码:
<body>
<%
set obj=server.CreateObject("wsImage.Resize")
obj.LoadSourceImage server.mappath("25.jpg")
obj.Quality=95
obj.MarkPos = 0
obj.MarkTransparent = 90
obj.AddImageMark server.mappath("logo.png"), 100, 100
 
obj.MakeMarkImage server.mappath("25_ImgMark.jpg") obj.GetErrorInfo(strError)
if strError<>"" then
response.write strError
end if
set obj=nothing
%>
原图:<br><img src="25.jpg"><br>
生成的图片水印图:<br><img src="25_ImgMark.jpg">
</body>

图片水印图:

产生的图片水印图25_ImgMark.jpg

说明:
obj.LoadSourceImage 装载源图
obj.AddImageMark 装载水印图片
obj.MarkPos = 4 '自动定位到图片右下角,5.0以上版本支持
obj.MarkTransparent 参数中 90 为水印不透明度。