如何在一个JPEG图象上绘制某一字体、颜色、透明度的文字串？

Question

如何在一个JPEG图象上绘制某一字体、颜色、透明度的文字串？
我是Delphi新手，敬请指点？

Answer 1

看来这就是传说中的图片水印了去www.google.com搜索一下

Answer 2

用 www.wave12.com 的缩略图水印组件 可以轻松实现你的功能
----------------------------------------------------------
600元一套，作为我私人用户来说，实在太贵了。

Answer 3

var
bmp:Tbitmap;
jpg:TJPEGImage;
begin
jpg:=TJPEGImage.Create;
bmp:=Tbitmap.Create;
jpg.LoadFromFile('文件名');
bmp.Assign(jpg);
with bmp do
begin
Canvas.Brush.Style:=bsClear;   //文字背静透明
Canvas.Font.Color:=clRed; //文字颜色
Canvas.TextOut(5,5,'文字内容') //绘制文字
end;
jpg.Assign(bmp);
jpg.SaveToFile('文件名');
bmp.Free;
jpg.Free;

Answer 4

呵呵，一般来说，先转换成BMP，然后就可以写字了，当然如果你要写半透明的话，就先写到另一张图上，再以半透明的方式，最终自成新图，再转换回JPEG。如果你是新手的话，还是到网上找控件吧，会简单很多。