Delphi程序的应用GDI+制作水印效果图片

利用GDI+可以很方便的制作带水印效果的图片，网上介绍这方面的文章也很多，但鲜有Delphi的，本文参照网上文章http://www.codeproject.com/KB/GDI-plus/watermark.aspx介绍的方法，用Delphi 2007制作水印效果图片，原代码如下：

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Gdiplus, StdCtrls;

type
TMainForm = class(TForm)
Button1: TButton;
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Phot TGpImage;
PhWidth: Integer;
PhHeight: Integer;
Watermark: TGpImage;
WmWidth: Integer;
WmHeight: Integer;
Bmp: TGpBitmap;
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses GdipTypes;

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
var
Clsid: TGUID;
Parameters: TEncoderParameters;
Quality: Integer;
begin
// 设置图像品质编码参数
Parameters.Count := 1;
Parameters.Parameter[0].Guid := EncoderQuality;
Parameters.Parameter[0].ValueType := EncoderParameterValueTypeLong;
Parameters.Parameter[0].NumberOfValues := 1;
// 设置参数的值：品质等级，最高为100，图像文件大小与品质成正比
Quality := 100;
Parameters.Parameter[0].Value := @Quality;

if GetEncoderClsid('image/jpeg', Clsid) then
Bmp.Save('WatermarkPhoto.jpg', Clsid, @Parameters);
end;

procedure TMainForm.FormCreate(Sender: TObject);
const
ColorMatrix: TColorMatrix =
(
(1.0, 0.0, 0.0, 0.0, 0.0),
(0.0, 1.0, 0.0, 0.0, 0.0),
(0.0, 0.0, 1.0, 0.0, 0.0),
(0.0, 0.0, 0.0, 0.3, 0.0),
(0.0, 0.0, 0.0, 0.0, 1.0)
);
WorkingDirectory = '....Media';
copyright = 'Copyright © 2008 - Maozefa';
var
gp: TGpGraphics;
imageAttr: TGpImageAttributes;
strFormat: TGpStringFormat;
font: TGpFont;
x, y: Single;
begin
// 读取原始图片
Photo := TGpImage.Create(WorkingDirectory + '100_0349.jpg');
PhWidth := Photo.Width;
PhHeight := Photo.Height;
// 读取水印图片
Watermark := TGpImage.Create(WorkingDirectory + 'Watermark.bmp');
WmWidth := Watermark.Width;
WmHeight := Watermark.Height;
// 建立一个新的位图，分辨率为72
Bmp := TGpBitmap.Create(PhWidth, PhHeight, pf32bppArgb);
Bmp.SetResolution(72, 72);
// 建立新位图的画布，并设置图像显示质量和文本显示质量
gp := TGpGraphics.Create(Bmp);
gp.SmoothingMode := smAntiAlias;
gp.TextRenderingHint := thAntiAlias;
// 在画布上画原始图片
gp.DrawImage(Photo, GpRect(0, 0, PhWidth, PhHeight),
0, 0, PhWidth, PhHeight, utPixel);
// 建立图像显示辅助类
imageAttr := TGpImageAttributes.Create;
// 设置透明颜色为水印图片四角的底色，水印图显示为圆角图片
imageAttr.SetColorKey($ff00ff00, $ff00ff00, ctBitmap);
// 设置水印图片不透明度为0.3
imageAttr.SetColorMatrix(ColorMatrix, cfDefault, ctBitmap);
// 在画布左上角画水印图
gp.DrawImage(Watermark, GpRect({PhWidth - WmWidth - }10, 10, WmWidth, WmHeight),
0, 0, WmWidth, WmHeight, utPixel, imageAttr);
// 设置文本字体和显示格式
font := TGpFont.Create('arial', 16, [fsBold]);
strFormat := TGpStringFormat.Create;
strFormat.Alignment := saCenter;
// 在画布下方居中显示阴影文本
x := PhWidth / 2;
y := PhHeight - 26;
gp.DrawString(copyright, font, Brushs[$99000000], x + 1, y + 1, strFormat);
gp.DrawString(copyright, font, Brushs[$99ffffff], x, y, strFormat);

font.Free;
strFormat.Free;
imageAttr.Free;
gp.Free;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
Photo.Free;
Watermark.Free;
Bmp.Free;
end;

procedure TMainForm.FormPaint(Sender: TObject);
var
g: TGpGraphics;
begin
g := TGpGraphics.Create(Canvas.Handle);
// 显示原始图片
g.DrawImage(Photo, 0, 0, PhWidth, PhHeight);
// 显示水印原始图片
g.TranslateTransform(0, PhHeight + 5);
g.DrawImage(Watermark, 0, 0, WmWidth, WmHeight);
// 显示带水印和文本的图像
g.TranslateTransform(PhWidth, -(PhHeight + 5));
g.DrawImage(Bmp, 0, 0, PhWidth, PhHeight);
g.Free;
end;

end.

转载于:https://www.cnblogs.com/MaxWoods/archive/2010/10/12/1848488.html