您正在使用IPV4(54.161.98.96)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 情人节 18
2022年 元宵节 19
2023年 元 旦 339
2022年 春 节 5
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    aspjpeg组件使用方法
    内容摘要: 使用aspjepg主要可以做到:图片缩略图片水印安全码技术图片切割图片合并数据库支持一、图片缩略.查看处理的图片.二、图片水印..三、安全码.安全玛的道理和加水印差不多。.生成安全码的图片。四、图片切割.一直以来,对aspjpeg不了解的人以为是无法用它来进行切割的。其实有这样的一个方法的cropx1,y1,x2,y2切割长方型左上角x坐标,y坐标右下角x坐......
    使用aspjepg主要可以做到:

    图片缩略

    图片水印

    安全码技术

    图片切割

    图片合并

    数据库支持

    一、图片缩略.

    查看处理的图片.

    二、图片水印.

    .

    三、安全码

    .

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

    .

    生成安全码的图片。

    四、图片切割

    .

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

    其实有这样的一个方法的

    cropx1,y1,x2,y2

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

    下面我就做一个演示哈

    SetJpeg=

    Server.CreateObject("Persits.Jpeg")

    jpeg.openserver.MapPath("/pic/1.gif")

    jpeg.width=70

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

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

    jpeg.save

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

    五、图片合并

    .

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

    SetPhoto=

    Server.CreateObject("Persits.Jpeg")

    PhotoPath=Server.MapPath("images")

    &"\dodge_viper.jpg"

    Photo.OpenPhotoPath

    SetLogo=

    Server.CreateObject("Persits.Jpeg")

    LogoPath=Server.MapPath("images")

    &"\clock.jpg"

    Logo.OpenLogoPath.

    Logo.Width=70

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

    .

    Photo.DrawImage0,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.ShadowXOffsetAsLong

    阴影X坐标设定

    Canvas.Font.ShadowYOffsetAsLong

    Y坐标设定

    Canvas.Font.BkModeAsString

    文字背景.

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

    '创建预览图片:call

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

    Sub

    CreateView(imagename,tempFilename)

    '定义变量。

    Dim

    PreviewImageFolderName

    Dimogvbox,objFont

    DimLogobox,LogoPath

    LogoPath

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

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

    SelectCase

    upload_ViewType

    Case

    0

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

    setogvbox=

    Server.CreateObject("CreatePreviewImage.cGvbox")

    ogvbox.SetSavePreviewImagePath=Server.MapPath(tempFilename)

    '预览图存放路径。

    ogvbox.SetPreviewImageSize=SetPreviewImageSize

    '预览图宽度。

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

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

    '创建预览图的文件。

    If

    ogvbox.DoImageProcess=falseThen

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

    ogvbox.GetErrString

    EndIf

    Case

    1

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

    SetLogobox=

    Server.CreateObject("Persits.Jpeg")

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

    Logobox.Open

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

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

    Logobox.Width=186

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

    Logobox.Height=52

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

    '//添加水印。

    Setogvbox=

    Server.CreateObject("Persits.Jpeg")

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

    ogvbox.Open

    Trim(Server.MapPath(imagename))

    Ifogvbox.OriginalWidth""andFileExt"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.Print10,10,

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

    ogvbox.Canvas.Pen.Color=

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

    ogvbox.Canvas.Pen.Width=1

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

    ogvbox.Canvas.Brush.Solid=False

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

    ogvbox.DrawImageogvbox.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.Sharpen1,120

    ogvbox.Save

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

    End

    If

    SetLogobox=Nothing

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

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

    上一篇:用asp实现检测文件编码 下一篇:判断服务器MSXML2.ServerXMLHTTP
    发布日期:2022/1/1
    手机扫二维码直达本页
    发布时间:14:49:13
    点击:266
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.1.0.10988 Build 21.12.28(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护

    Copyright©2000-2022