gdiplus 水印_GDI+ 实现透明水印和文字

最近给《JPEG浏览缩放器》增加了水印功能，在设计的过程中，参考了网上的文章，但是发现文章使用的GDI+ API封装包不是我现在使用的那一套，目前DELPHI使用的GDI+ API封装包有两套，一套包括以DirectDraw.*、Gdipapi.*、Gdipobj.*、 Gdiputil.*为文件名，另一套以GdipExport.*、Gdiplus.*、GdipTypes.*、GdipUtil.*为文件名，我使用的是前者，文章所用的是后者，于是将文章原代码根据我用的那套GDI+ API封装包进行修改，修改后的代码如下:

USES GDIPUTIL,GDIPAPI,GDIPOBJ;

procedure  Form1.SaveJpg(sname,Dname:string);

//Sname-源JPEG文件名，Dname-加水印后的JPEG文件名

const

ColorMatrix: TColorMatrix =

( //R    G    B    A    V

(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)

);

var

font1: TGPFont;

bmp,Watermark:TGPBitmap;

g: TGPGraphics;

sb1: TGPSolidBrush;

imageAttr:TGpImageAttributes;

JPG: TGPImage;