delphi下如何给JPG图片添加文字水印呢?

浮生若梦_平淡为真 2010-03-12 03:05:06

期待高手来解答!

...全文

313 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

浮生若梦_平淡为真 2010-03-13

打赏
举报

回复

问题我自己已经解决了

阿发伯 2010-03-12

打赏
举报

回复

http://blog.csdn.net/maozefa/archive/2008/05/15/2447651.aspx

CSXImage ActiveX控件用于显示和管理图片，能把图片保存为文件，或拷贝到剪贴板。

CSXImage ActiveX控件能用于支持ActiveX控件的Windows编程环境，比如Visual Basic或Delphi。它能读写多种格式文件并相互转换。

图片可以在控件CSXImage ActiveX控件内显示同时能把图片保存为文件，或拷贝到剪贴板。图片可以以二进制格式导出，能把数据写入数据库域或以数据流形式导出到网页浏览器。一个已编辑的图片能以HTTP上载的方式传到网站服务器。

CSXImage ActiveX控件的关键特色：在程序中添加图片功能；支持BMP, GIF, JPG, PNG, PSD, PCX, TIFF 和 WBMP图片格式，或导出为PDF文件；从磁盘，剪贴板，二进制数据，扫描仪或远程URL导入图片；能对图片进行调整大小，比例，剪切，旋转和翻转等操作；图片的高级操作：调整亮度，对比度，锐化处理，模糊处理和灰度图；通过溶入图片创建混合图片和水印；在图片上书写文字，支持Unicode；读取和编辑JPEG meta 数据(IPTC 文本)；从JPEG文件获取Exif属性；图片可以以HTTP上载的形式传到远程服务器；缩放和打印功能； OCX文件免费发行。

function JpgToBmp(FilePath: string): string; var MyJPEG: TJPEGImage; MyBMP: TBitmap; s: string; begin Result := ''; s := copy(FilePath, 1, Length(FilePath) - 3) + 'bmp';

/X, Y是文字输出的坐标信息；//给f的png添加水印日期。

利用GDI+可以很方便的制作带水印效果的图片，网上介绍这方面的文章也很多，但鲜有Delphi的，本文参照网上文章http://www.codeproject.com/KB/GDI-plus/watermark.aspx介绍的方法，用Delphi 2007制作水印效果图片，原代码如下： unit Main; interface usesWindows, Messages, SysUtils, ...

var MyCanvas1 : TControlCanvas; Begin MyCanvas1:=TControlCanvas.Create; try Mycanvas1.control:=img1; MyCanvas1.StretchDraw(img1.clientRect,img1.Picture.Bitmap); MyCanvas1.Brush.Sty

GAME，图形处理/多媒体

1,183

社区成员

14,336

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章