jpg图片叠加文字

[zyfcs]

请教在大量jpg图片上叠加文字的实现方法，我现在是把JPG转为BMP来实现的，但这样比较慢，并且有时候会出现叠加不上的情况。这种情况下程序也不报错，而JPG图片明显转换过了，原来的图片信息已没有了，但文字没叠加上。请教还有其他方法吗？

temjpeg:=TJpegImage.Create;
bmp1:=tbitmap.Create;
temjpeg.LoadFromFile(sfname);
bmp1.Assign(temjpeg);
imagewidth:=bmp1.Width;
imageheight:=bmp1.Height;
bmp1.Canvas.TextOut(imagewidth-600,imageheight-100,ss);
temjpeg.Assign(bmp1);
temjpeg.SaveToFile(spname+'3.jpg')

[wudi_1982]

试试使用图层的方法，就是每个image代表一个图层
放一个panel在窗体上，然后放一个image1在panel上，并且充满panel1，然后在image1要添加图片的位置，再放一个image2，代表文字图层，用来添加文字，最后将panel上的内容copyrect到另外一个image中，

procedure TForm1.Button1Click(Sender: TObject);
var

c:TCanvas;

begin
with Image2.Canvas do
begin
TextOut(0,0,'阿瑟多幅撒');
end;
c:=TControlCanvas.Create;

TControlCanvas(c).Control:=Panel1;
Image3.Canvas.CopyRect(image3.ClientRect,c,c.ClipRect);
c.Free;
image3.Picture.SaveToFile('d:\temp\aa.jpg');

end;

[zyfcs]

我的图片像数有500万，也有800万的，今后还有其他的，这样操作估计更慢，不知道稳定性和色彩失真会怎样，不过可以试试看，谢谢

[FigoZhu]

帮顶，接分。

[zzwu]

jpg图像上不能画图或写字(否则提示出错),
必须先转为位图格式才可以画图或写字.

然后,有必要,可再将bmp格式转换回jpg格式.

[suihu]

mark!