[教程]Delphi 下一种简单的水印图片制作方法

水印在现代社会中常用,网上有各种制作水印的办法,而我要说的办法,实际上简单而且好理解,那就是制作半透明的 PNG 图片覆盖到原始项目上就可以了。至于为啥不说 FMX 的实现,是因为 FMX 本身各种颜色设置中就包含了透明度信息,不需要这么折腾了。

第一步:制作水印内容,比如我们创建一个TBitmap对象,在上面随便输出点文字,乐意的话,还可以旋转一下。这段代码咱们省略不提,毕竟没啥需要提及的东西,直接在 TBitmap 的 Canvas 组图就好。注意一点,一定要将背景和前景区分成不同的颜色,因为我们后面要将背景给透掉。

第二步:创建 TPngImage 对象,并利用 Assign 方法复制 TBitmap 实例的内容,我们假设背景是 clWhite,那么我们需要的就是:

1、调用 TPngImage 对象的 CreateAlpha 方法,为 TPngImage 实例创建 Alpha 通道。

2、循环每行,检查每个像素的颜色,如果与背景色相同,则将其对应的Alpha值调整为 0,这样就透过去了。如果不同,则修改为目标 Alpha 值(0-255,一般不要太高),通过 AlphaScanline 属性可以获取一个 Alpha 值数组。当然,如果有兴趣搞的复杂点,还可以对水印加上一些掩码,比如随机而已的空白点啥的。

嗯,总体的设计思路就是这样子。代码就不提供了,顺着思路写起来相信对大家来说并不难。发一个效果图吧:


function CreateWatermark(const AText, AFontName: String;
AFontSize, Alpha: Integer; AFontStyles: TFontStyles): TPngImage; overload;
var
Y: Integer;
ASize: TSize;
ABitmap: TBitmap;
X: Integer;
pAlpha: pByteArray;
AIsHole: Boolean;
begin
Result := TPngImage.Create;
ABitmap := TBitmap.Create;
try
ABitmap.SetSize(1, 1);
ABitmap.PixelFormat := TPixelFormat.pf24bit;
ABitmap.Canvas.Font.Name := AFontName;
ABitmap.Canvas.Font.Size := AFontSize;
ABitmap.Canvas.Font.Style := AFontStyles;
ASize := ABitmap.Canvas.TextExtent(AText);
ABitmap.SetSize(ASize.cx, ASize.cy);
ABitmap.Canvas.TextOut(0, 0, AText);
Result.Assign(ABitmap);
Result.CreateAlpha;
for Y := 0 to Result.Height – 1 do
begin
pAlpha := Result.AlphaScanline[Y];
for X := 0 to Result.Width – 1 do
begin
if Result.Pixels[X, Y] = clWhite then
pAlpha[X] := Byte(0)
else
begin
pAlpha[X] := Alpha;
end;
end;
end;
finally
FreeAndNil(ABitmap);
end;
end;

分享到:

评论已关闭。