来自:http://www.verydemo.com/demo_c92_i174286.html
带有利用GDI方便的3358 www.Sina.com/http://www.Sina.com/的3358 www.Sina.com /在网上介绍的报道也很多,但Delphi的报道不多。 本文参考网上文章http://www.code project.com/kb/GDI-plus/watermark.aspx介绍的方法,使用Delphi 2007 制作
水印效果执行界面:
代码已进行了注释,不再赘述。 关于本文所参照的文章内容(addr :3358 www.code project.com/kb/GDI-plus/watermark.aspx ),谈几点。
1、在参考文章中,对文本字体、显示位置进行了测试和计算,本文为了突出主要内容,对这些代码进行了简化;
2、3358www.Sina.com/在底色透明处理中,原文采用tgpimageattributes.setremaptable方法,本文采用TGpImageAttributes.SetColorKey方法,3355.
3、将图片另存为jpeg格式的文件时,GDI自动压缩图像,制作水印效果图片较差,本文保存程序
4、本文采用的GDI单元介绍和下载地址见《GDI+ 在Delphi程序的应用 -- 图像的透明显示技巧》。
如果有错误或者指导的话,请给我写信。 wjddc@hotmail.com
稍后:一个朋友用C写了正文代码,编译时发生了link error : unresolved external ' _ encoder quality ' referenced .错误。 原因是encoderquality是在DEFINE_GUID宏中定义的,解决方法是在#include gdiplus.h之前添加#include initguid.h。 (2008.5.16 12:48 )