客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
利用GDI+可以很方便的制作带水印效果的图片，网上介绍这方面的文章也很多，但鲜有Delphi的，本文参照网上文章http://www.codeproject.com/KB/GDI-plus/watermark.aspx介绍的方法，用Delphi 2007制作水印效果图片，原代码如下：
unitMain;
interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,Gdiplus,StdCtrls; type TMainForm=class(TForm) Button1:TButton; procedureFormPaint(Sender:TObject); procedureFormCreate(Sender:TObject); procedureFormDestroy(Sender:TObject); procedureButton1Click(Sender:TObject); private {Privatedeclarations} Photo:TGpImage; PhWidth:Integer; PhHeight:Integer; Watermark:TGpImage; WmWidth:Integer; WmHeight:Integer; Bmp:TGpBitmap; public {Publicdeclarations} end; var MainForm:TMainForm; implementation usesGdipTypes; {$R*.dfm} procedureTMainForm.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; procedureTMainForm.FormCreate(Sender:TObject); const ColorMatrix: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; //建立一个新的位图，分辨率为72 Bmp:=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.3 imageAttr.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; procedureTMainForm.FormDestroy(Sender:TObject); begin Photo.Free; Watermark.Free; Bmp.Free; end; procedureTMainForm.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. 程序运行界面： 代码中已经进行了注释，不再累叙，针对本文所参考的文章内容（Addr:http://www.codeproject.com/KB/GDI-plus/watermark.aspx），作几点说明： 1、在参考的文章中，对文本字体、显示位置进行了测试和计算，本文为强调主要内容，对这些代码进行了简化； 2、在水印底色透明处理中，原文采用的是TGpImageAttributes.SetRemapTable方法，而本文采用的则是TGpImageAttributes.SetColorKey方法，效果是一样的，具体原理可参照我的文章《GDI+ 在Delphi程序的应用 -- 图像的透明显示技巧》； 3、因图片保存为jpeg格式文件时，GDI+自动对图像进行压缩，导致图片效果较差，所以本文保存图片时设置了图像品质编码参数； 4、本文采用的GDI+单元介绍和下载地址见《GDI+ for VCL基础 -- GDI+ 与 VCL》。 如有错误或者指教，请来信：[email protected] 后记：有朋友用C++写本文代码，编译时出现LINK Error: unresolved external '_EncoderQuality' referenced ...错误，其原因是EncoderQuality是用DEFINE_GUID宏定义的GUID，而编译器误认为外部变量，所以出现链接错误。解决的办法是：在#include <gdiplus.h>前添加#include <initguid.h>。(2008.5.16 12:48) |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论