gdiplus 水印_GDI+ 在Delphi程序的應用 — 製作水印效果圖片 | 學步園

unit Main;interfaceuses

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 }

Photo: 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;ifGetEncoderClsid('image/jpeg', Clsid) then

Bmp.Save('WatermarkPhoto.jpg', Clsid, @Parameters);

end;

procedure TMainForm.FormCreate(Sender: TObject);constColorMatrix: 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;//建立一個新的位圖，分辨率為72Bmp :=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.3imageAttr.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.