使用 ImageEnView 给图片加水印效果

uses imageenview;

 procedure Water(src,png:string); var X,Y:Integer; ImageEnView1:TImageEnView; jpgWidth,jpgHeight:Integer; pngWidth,pngHeight:Integer; begin ImageEnView1:=TImageEnView.Create(nil); ImageEnView1.IO.LoadFromFilePNG(png); pngWidth:=ImageEnView1.Bitmap.Width; pngHeight:=ImageEnView1.Bitmap.Height; ImageEnView1.LayersAdd; ImageEnView1.IO.LoadFromFileJpeg(src); jpgWidth:=ImageEnView1.Bitmap.Width; jpgHeight:=ImageEnView1.Bitmap.Height; X := Round((ImageEnView1.Bitmap.Width-pngWidth) / 2); Y := Round((ImageEnView1.Bitmap.Height-pngHeight) / 2); ImageEnView1.Layers[0].PosX := X; ImageEnView1.Layers[0].PosY := Y; ImageEnView1.LayersMerge(1, 0); ImageEnView1.Bitmap.Width:=jpgWidth; ImageEnView1.Bitmap.Height:=jpgHeight; ImageEnView1.IO.SaveToFileJpeg(src); ImageEnView1.Free; end;
blog.youkuaiyun.com/hzqghost 原创