最近给《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;