admin 管理员组

文章数量: 1087139


2024年5月7日发(作者:简述html的基本结构)

使用 ImageEnView 给图片加水印,及建缩略图

{************************}

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


本文标签: 简述 图片 加水 结构 基本