使用 ImageEnView 給圖片加浮水印效果

uses imageenview;

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