aspjpeg组件使用方法

aspjpeg是一款非常强大的图片处理组件,纯英文版本。不过早已经有免费版和破解版,但是对其进行详细与深入介绍的文章却是不多,即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。

使用aspjepg主要可以做到:

图片缩略

图片水印

安全码技术

图片切割

图片合并

数据库支持

一、图片缩略 .

查看处理的图片 .

二、图片水印 .

.

三、安全码

.

安全玛的道理和加水印差不多。

.

生成安全码的图片。

四、图片切割

.

一直以来,对aspjpeg不了解的人以为是无法用它来进行切割的。

其实有这样的一个方法的

crop x1,y1,x2,y2

切割长方型左上角x坐标,y坐标 右下角x坐标 y坐标

下面我就做一个演示哈

Set Jpeg =

Server.CreateObject("Persits.Jpeg")

jpeg.open server.MapPath("/pic/1.gif")

jpeg.width=70

Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth

jpeg.crop 0,0,70,52 开始切割其实是把超过52象素的下部分去掉

jpeg.save

server.MapPath("/temp_pic/small_1.gif") 保存

五、图片合并

.

我们这里是要把logo图片加到dodge_viper.jpg图片上去

Set Photo =

Server.CreateObject("Persits.Jpeg")

PhotoPath = Server.MapPath("images")

& "\dodge_viper.jpg"

Photo.Open PhotoPath

Set Logo =

Server.CreateObject("Persits.Jpeg")

LogoPath = Server.MapPath("images")

& "\clock.jpg"

Logo.Open LogoPath .

Logo.Width = 70

Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth

.

Photo.DrawImage 0, 0, Logo .

Photo.SendBinary

这里用了sendBinary的输出方法。当然,你也可以先保存更改后的dodge_viper.jpg,再输入也可以。我个人不大喜欢用sendBinary方法,在网速慢的时候容易出错。在速度方面也不怎样。

六、数据库支持

.

这里不多说了。其实就是Binary方法,大家知道图片存进数据库只能存为二进制的文件的。所以代码就懒的写了。 .

七、更多方法介绍

.

Canvas.Line(Left, Top, Right, Bottom)

画一条直线

Canvas.Ellipse(Left, Top, Right, Bottom)

画出一个椭圆

Canvas.Circle(X, Y,

Radius)

画出一个圆

Canvas.Bar(Left, Top, Right, Bottom)

画出一个长方形,上面有代码介绍了

Canvas.Font.ShadowColor

文字阴影颜色

Canvas.Font.ShadowXOffset As Long

阴影X坐标设定

Canvas.Font.ShadowYOffset As Long

Y坐标设定

Canvas.Font.BkMode As String

文字背景 .

'//------Pollener.com AspJpeg组件的预览和水印生成------开始------

'创建预览图片:call

CreateView(原始文件的路径,预览文件名及路径)

Sub

CreateView(imagename,tempFilename)

'定义变量。

Dim

PreviewImageFolderName

Dim ogvbox,objFont

Dim Logobox,LogoPath

LogoPath

= Server.MapPath("images") & "\shuiyin.gif"

'//加入图片所在路径及文件名(我的是论坛\images\shuiyin.gif)。

Select Case

upload_ViewType

Case

0

'---------------------CreatePreviewImage---------------

set ogvbox =

Server.CreateObject("CreatePreviewImage.cGvbox")

ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename)

'预览图存放路径。

ogvbox.SetPreviewImageSize =SetPreviewImageSize

'预览图宽度。

ogvbox.SetImageFile = trim(Server.MapPath(imagename))

'imagename原始文件的物理路径。

'创建预览图的文件。

If

ogvbox.DoImageProcess=false Then

Response.write "生成预览图错误:"&

ogvbox.GetErrString

End If

Case

1

'---------------------AspJpegV1.2---------------

Set Logobox =

Server.CreateObject("Persits.Jpeg")

'//建议不要图片和文字水印同时使用,本代码为使用图片水印。

Logobox.Open

LogoPath '//读取添加的图片。

'//重新设置图片的大小。

Logobox.Width = 186

'//用做水印的图片的宽度值(像素)。

Logobox.Height = 52

'//用做水印的图片的高度值(像素)。

'//添加水印。

Set ogvbox =

Server.CreateObject("Persits.Jpeg")

'//读取要处理的原文件。

ogvbox.Open

Trim(Server.MapPath(imagename))

If ogvbox.OriginalWidth"" and FileExt"gif" Then '//如果将这行改为IF

ImageMode""

Then则可给上传的GIF图片也加上水印,但是那些动画的GIF在加了水印以后就只剩第一桢了,根据你的需求酌情处理吧。

'//关于修改字体及文字颜色的。

'//ogvbox.Canvas.Font.Color

= &H0000FF '//水印文字的颜色,&H后面输入色彩值。

'//ogvbox.Canvas.Font.Size =

18 '//水印文字的大小。

'//ogvbox.Canvas.Font.Family = "Arial"

'//水印文字的字体名称。

'//ogvbox.Canvas.Font.ShadowColor = &H000000

'//水印文字的阴影色彩。

'//ogvbox.Canvas.Font.ShadowXoffset = 1

'//水印文字阴影向右偏移的像素值,输入负值则向左偏移。

'//ogvbox.Canvas.Font.ShadowYoffset = 1

'//水印文字阴影向下偏移的像素值,输入负值则向右偏移。

'//ogvbox.Canvas.Font.Quality = 3

'//水印文字的清晰度,从0~4,变换不是很大,建议用2或3。

'//ogvbox.Canvas.Font.Bold = True

'//水印文字是否为粗体,True=粗体 False=正常。

'ogvbox.Canvas.Print 10, 10,

ImageMode '//水印文字的起始坐标(像素)。

ogvbox.Canvas.Pen.Color =

&H000000 '//增加水印后图片的边框色彩。

ogvbox.Canvas.Pen.Width = 1

'//增加水印后图片的边框宽度。

ogvbox.Canvas.Brush.Solid = False

'//边框内是否填充颜色,你可以试试看值为True时的效果^o^

ogvbox.DrawImage ogvbox.width-186,

ogvbox.height-52, Logobox, 0.5 '//水印图片的起始坐标,我这里ogvbox.width-186,

ogvbox.height-52,表示图片在右下角,因为我的图片宽是186,高是52,所以这样写,你可以根据自己的图片进行调整。0.5是透明度,我这里是半透明,1表示不透明,你也可以试试看0.7或者0.8的效果。

ogvbox.Canvas.Bar

0, 0, ogvbox.Width, ogvbox.Height

'//水印可用的范围。我这里表示左上角至右下角,即整张图片的任意为止都可加水印。

ogvbox.Save

Server.MapPath(imagename) '//根据以上参数生成增加水印后的图片文件。

End

If

ogvbox.Width = ImageWidth

ogvbox.height =

ImageHeight

'ogvbox.height =

ogvbox.Originalheight*ImageWidth\ogvbox.OriginalWidth

ogvbox.Sharpen 1, 120

ogvbox.Save

Server.MapPath(tempFilename) '//生成增加水印后的图片的预览图片。

End

If

Set Logobox=Nothing

'//------Pollener.com

AspJpeg组件的预览和水印生成------结束------

时间: 2024-10-26 22:22:29

aspjpeg组件使用方法的相关文章

aspjpeg组件使用方法_ASP基础

aspjpeg是一款非常强大的图片处理组件,纯英文版本.不过早已经有免费版和破解版,但是对其进行详细与深入介绍的文章却是不多,即使有也只牵涉到图片缩略和图片水印.可能是因为纯英文的缘故. 使用aspjepg主要可以做到: 图片缩略 图片水印 安全码技术 图片切割 图片合并 数据库支持 一.图片缩略 . 查看处理的图片 .二.图片水印 ..三.安全码 .安全玛的道理和加水印差不多. .生成安全码的图片. 四.图片切割 .一直以来,对aspjpeg不了解的人以为是无法用它来进行切割的. 其实有这样的

aspjpeg组件通用加水印函数代码

aspjpeg组件实现加水印函数的调用方法: <%printwater "/images/水印图片.gif","/uploadfile/上传图片.jpg") %> 以下是引用片段:function printwater(waterpath,upfilepath)  Dim Logobox,LogoPath,ogvbox LogoPath = Server.MapPath(waterpath) Set Logobox = Server.CreateObje

关于aspjpeg组件的高级使用

aspjpeg|高级 关于aspjpeg组件的高级使用aspjpeg是一款非常强大的图片处理组件,纯英文版本.不过早已经有免费版和破解版,但是对其进行详细与深入介绍的文章却是不多,即使有也只牵涉到图片缩略和图片水印.可能是因为纯英文的缘故.这里我就是针对这些问题谈谈aspjpeg的高级用法.这里的技术主要包括:图片缩略图片水印安全码技术图片切割图片合并li>数据库支持以及相关的一些实用技术aspjpeg唯一点不足的就是输出方式比较单一.在这里,我们主要谈将图片处理保存后再调用的这种输出方法.另外

Aspjpeg添加水印完整方法_ASP基础

ASPJPEG是Persits出品的共享软件,试用期为30天,您可以在这里下载:http://www.persits.com/aspjpeg.exe.最新版本号是1.3ASPJPEG是一款功能相当强大的图象处理组件,用它可以轻松地做出图片的缩略图和为图片加上水印功能.下面简单介绍一下使用方法:您先要执行下载得到的exe文件,安装该组件1.为图片制作缩略图 <% \\\' 建立实例Dim Jpeg,PathSet Jpeg = Server.CreateObject("Persits.Jpe

Aspjpeg添加水印完整方法

ASPJPEG是Persits出品的共享软件,试用期为30天,您可以在这里下载:http://www.persits.com/aspjpeg.exe.最新版本号是1.3 ASPJPEG是一款功能相当强大的图象处理组件,用它可以轻松地做出图片的缩略图和为图片加上水印功能.下面简单介绍一下使用方法: 您先要执行下载得到的exe文件,安装该组件 1.为图片制作缩略图 <% \\\' 建立实例 Dim Jpeg,Path Set Jpeg = Server.CreateObject("Persit

用AspJpeg组件,按宽高比例,真正生成缩略图

aspjpeg|缩略图 在网站前台产品展示时,一般用缩略图,点击进入然后看到大图.缩略图带来了两个烦劳:1.如果后台只传一张大图,显示缩略图时只是将大图固定宽度和高度,这样不但造成缩略图变形,而且使得页面访问速度缓慢.2.如果后台每次上传时,都上传两张图片,一张大图,一张缩略图.这样的话,没有1中的问题,但是给后台人员造成很大麻烦.因为后台人员并不一定知道处理生成缩略图:即使知道并能快速处理,也浪费掉一些时间. 下面的代码可以帮您用AspJpeg组件,按宽高比例,真正生成缩略图AspJpeg组件

ASP技巧:三种禁用FileSystemObject组件的方法

filesystemobject|技巧|禁用 众所周知,FileSystemObject组件的强大功能及破坏性是它屡屡被免费主页 提供商(那些支持ASP)的禁用的原因,我整理了一下,本来只找到两种方法,后来 被某人一刺激,硬是想到第三种不为人所知的方法,呵呵,也不知道是不是这样的. 第一种:用RegSrv32 /u C:\WINDOWS\SYSTEM\scrrun.dll(win98路径)来注销该组 件.此方法过于狠毒,属于同归于尽的方法,大家都没得用,是下招 第二种:修改Progid的值,在A

ASp使用AspJpeg组件制作透明文字水印

aspjpeg|透明 技术支持: 1.aspjpeg能对图片水印进行透明度调整,不能对文字水印调整, 2.aspjpeg支持Binary,可以Jpeg.OpenBinary读取,可以Jpeg.sendBinary,也可Jpeg.Binary赋值思路: 1.把原始的图片数据二进制度赋值给TempA, 2.将文字水印处理后的图片数据二进制赋值给TempB, 3.以TempB作为"图片水印",附加在TempA上,调整透明度,输出就ok了 思路很简单,代码也很简单:<%LocalFile

将存储过程封装为EJB组件的方法

集成 Web 应用服务器和数据库管理 (DBMS) 技术是很多新型商业应用的常见需求.在本文中,我们将讨论该集成的一个方面:如何在会话 Enterprise JavaBeans (EJB) 组件中设计与开发封装或调用现有 DBMS 存储过程的方法.您应该熟悉 EJB 技术.结构化查询语言 (SQL) 和 Java 数据库连接 (JDBC) 的基本知识,以便充分理解本文. 如果您正致力于需要访问或修改在 DMBS 中数据的 Web 应用程序开发,那么可能已经在向基于 EJB 的设计转移.您可能会发