使用 ImageEnView 给图片加水印,及建缩略图
摘要: 使用 ImageEnView 给图片加水印,及建缩略图
{Power by hzqghost@21cn.com}
unit CutWater;
interface
uses
Math,imageenview,
SysUtils, Classes, Graphics;
procedure CutImg(src,dest:string;width,height:Integer);//截图
procedure Water(src,png:string);//水印
implementation
procedure CutImg(src,dest:string;width,height:Integer);
var
ImageEnView1:TImageEnView;
Bigratio,ratio:Extended;
ReTop,ReLeft,ReWidth,ReHeight:Integer;
Blur:Extended;
begin
ImageEnView1:=TImageEnView.Create(nil);
ImageEnView1.IO.Bitmap.Canvas.Pen.Color := clWhite;
ImageEnView1.IO.Bitmap.Canvas.Pen.Style := psSolid;
ImageEnView1.IO.Bitmap.Canvas.Brush.Color := clWhite;
ImageEnView1.IO.Bitmap.Canvas.Brush.Style := bsSolid;
ImageEnView1.IO.LoadFromFileJpeg(src);
ReWidth:=width;
ReHeight:=height;
if width>ImageEnView1.Bitmap.Width then
ReWidth := ImageEnView1.Bitmap.Width;
if height>ImageEnView1.Bitmap.height then
ReHeight := ImageEnView1.Bitmap.height;
Bigratio:=ImageEnView1.Bitmap.Width/ImageEnView1.Bitmap.Height;
ratio:=ReWidth/ReHeight;
if ratio > Bigratio then
begin
ReWidth:=Round(ReHeight*Bigratio);
end else if ratio < Bigratio then begin
ReHeight:=Round(ReWidth/Bigratio);
end;
if (width>ImageEnView1.Bitmap.Width) and (height>ImageEnView1.Bitmap.height) then
Blur:=0
else
Blur:=(ImageEnView1.Bitmap.Width/ReWidth)/4+0.2;
ImageEnView1.Proc.Blur(Blur);
ReTop:=Round((height-ReHeight)/2);
ReLeft:=Round((width-ReWidth)/2);
ImageEnView1.IO.Bitmap.Canvas.StretchDraw(Rect(0, 0, ReWidth, ReHeight),ImageEnView1.Bitmap);
ImageEnView1.Bitmap.Width :=width;
ImageEnView1.Bitmap.Height :=height;
if (ReLeft>0) or (ReTop>0) then
begin
ImageEnView1.IO.Bitmap.Canvas.Draw(ReLeft,ReTop,ImageEnView1.Bitmap);
ImageEnView1.IO.Bitmap.Canvas.Rectangle(0,0,width,ReTop);
ImageEnView1.IO.Bitmap.Canvas.Rectangle(ReWidth+ReLeft,0,width,height);
ImageEnView1.IO.Bitmap.Canvas.Rectangle(0,ReHeight+ReTop,width,height);
ImageEnView1.IO.Bitmap.Canvas.Rectangle(0,0,ReLeft,height);
end;
ImageEnView1.IO.SaveToFileJpeg(dest);
ImageEnView1.Free;
end;
procedure Water(src,png:string);
var
X,Y:Integer;
ImageEnView1:TImageEnView;
jpgWidth,jpgHeight:Integer;
pngWidth,pngHeight:Integer;
begin
ImageEnView1:=TImageEnView.Create(nil);
ImageEnView1.IO.LoadFromFilePNG(png);
pngWidth:=ImageEnView1.Bitmap.Width;
pngHeight:=ImageEnView1.Bitmap.Height;
ImageEnView1.LayersAdd;
ImageEnView1.IO.LoadFromFileJpeg(src);
jpgWidth:=ImageEnView1.Bitmap.Width;
jpgHeight:=ImageEnView1.Bitmap.Height;
X := Round((ImageEnView1.Bitmap.Width-pngWidth) / 2);
Y := Round((ImageEnView1.Bitmap.Height-pngHeight) / 2);
ImageEnView1.Layers[0].PosX := X;
ImageEnView1.Layers[0].PosY := Y;
ImageEnView1.LayersMerge(1, 0);
ImageEnView1.Bitmap.Width:=jpgWidth;
ImageEnView1.Bitmap.Height:=jpgHeight;
ImageEnView1.IO.SaveToFileJpeg(src);
ImageEnView1.Free;
end;
end.
使用 ImageEnView 给图片加水印,及建缩略图的更多相关文章
- 火车头dede采集接口,图片加水印,远程图片本地化,远程无后缀的无图片本地化
<?php /* [LocoySpider] (C)2005-2010 Lewell Inc. 火车采集器 DedeCMS 5.7 UTF8 文章发布接口 Update content: 图片加 ...
- thinkphp 3.2.3整合ueditor 1.4,给上传的图片加水印
今天分享一下thinkphp 3.2.3整合ueditor 1.4,给上传的图片加水印.博主是新手,在这里卡住了很久(>_<) thinkphp 3.2.3整合ueditor 1.4 下载 ...
- PHPThumb处理图片,生成缩略图,图片尺寸调整,图片截取,图片加水印,图片旋转
[强烈推荐]下载地址(github.com/masterexploder/PHPThumb). 注意这个类库有一个重名的叫phpThumb,只是大小写的差别,所以查找文档的时候千万注意. 在网站建设过 ...
- php 分享两种给图片加水印的方法
本文章向码农们介绍 php 给图片加水印的两种方法,感兴趣的码农可以参考一下本文章的源代码. 方法一:PHP最简单的加水印方法 <?php // http://www.manongjc.com ...
- Java图片处理(二)图片加水印
图片加水印,是通过图片重叠绘制实现的.实现代码如下: public static void press(String pressImg, String pressText, String target ...
- PHP给图片加水印
<?php /** *图片加水印 *@param $srcImg 原图 *@param $waterImg 水印图片 *@param $savepath 保存路径 *@param $savena ...
- 如何用node.js批量给图片加水印
上一篇我们讲了如何用node.js给图片加水印,但是只是给某一张图片加,并没有涉及到批量处理.这一篇,我们学习如果批量进行图片加水印处理. 一.准备工作: 首先,你要阅读完这篇文章:http://ww ...
- php对图片加水印--将图片先缩小,再在上面加水印
方法: /** * 图片加水印(适用于png/jpg/gif格式) * * @author flynetcn * * @param $srcImg 原图片 * @param $water ...
- php对图片加水印--将文字作为水印加到图片
方法代码: /** * 图片加水印(适用于png/jpg/gif格式) * * @author flynetcn * * @param $srcImg 原图片 * @param $wat ...
随机推荐
- 【shell】正则表达式语法
一个正则表达式就是由普通字符(例如字符 a 到 z)以及特殊字符(称为元字符)组成的文字模式.该模式描述在查找文字主体时待匹配的一个或多个字符串.正则表达式作为一个模板,将某个字符模式与所搜索的字符串 ...
- Linux下查看某个进程占用的CPU、内存
1.用top命令指定固定的PID top -p 10997 查询指定进程的PID ps -ef | grep zookeeper jim 10997 1959 0 12月14 pts/2 00:00: ...
- Js/jquery获取当前日期时间及其它操作
var myDate = new Date(); myDate.getYear(); //获取当前年份(2位) myDate.getFullYear(); //获取完整的年份(4位,1970-???? ...
- 从Tomcat无法正常关闭讲讲Java线程关闭问题【转载】
正常情况下,会优先采用catalina.sh stop来停止Tomcat实例,这样可以让服务有机会处理完请求,并做好善后工作. 但如果通过catalina.sh stop命令无法关闭Tomcat实例, ...
- Linux命令详解-ftp服务器配置
1.ftp服务器配置 1.ftp安装: rpm –qa | grep ftp 2.查看安装内容: rpm-ql |more 3.启动ftp服务: service vsftpd start 4.配置文件 ...
- 032:基于Consul和MGR的MySQL高可用架构
目录 一.Consul 1.Consul简介 2.准备环境 3.Consul 安装 4.Consul配置文件 5.Consul 服务检查脚本 6.Consul启动 二.MGR搭建 1.MGR配置 2. ...
- timus1745题解
一.题目链接 http://acm.timus.ru/problem.aspx?space=1&num=1745 二.题意 给定$n$个由'('和')'组成的字符串,每个串最多只能使用$1$次 ...
- mysql5.5版本以后插入中午显示问号的解决办法
先看看中午变问号的结果 现在看看我们建立数据库和建表的操作 看到这里相信大家都知道创建成功了,没错,数据库跟表是创建成功了,可当你录入的信息带中文的时候就显示问号. 现在用传统的解决办法 在查看下表的 ...
- Redis-基本数据类型与内部存储结构
1-概览 Redis是典型的Key-Value类型数据库,Key为字符类型,Value的类型常用的为五种类型:String.Hash .List . Set . Ordered Set 2- Redi ...
- 搭建Discuz论坛
准备 LAMP 环境 LAMP 是 Linux.Apache.MySQL 和 PHP 的缩写,是 Discuz 论坛系统依赖的基础运行环境.我们先来准备 LAMP 环境 安装 MySQL 使用 yum ...