图像与文字的叠加

Question

请问用什么方法可以将任意文字叠加到图片上？可不可以给一段例程？

Answer 1

image1.picture.loadfromfile('文件路径名');
image1.canvas.textout(参数不记得）；
image1.picture.savetofile('文件路径名');

Answer 2

我可以在jpg文件上做这些吗？我用上面的语句做发生错误！“Can only modify an image if it contains a bitmap”

Answer 3

随便写一段,测试通过:procedure TForm1.Button1Click(Sender: TObject);
var
 Bmp : TBitmap;
 Jpg : TJpegImage;
begin
 try
   Bmp := TBitmap.Create;
   Jpg := TjpegImage.Create;
   Jpg.LoadFromFile('c:\img.jpg');//原理的图象
   Bmp.Assign(Jpg);
   Bmp.Canvas.Brush.Style := bsClear;
   Bmp.Canvas.Font.Color := clYellow;
   Bmp.Canvas.TextOut(10,10,'Hello World');//在(10,10)位置上加上文字"Hello World"
   Jpg.Assign(Bmp);
   Jpg.SaveToFile('c:\img2.jpg');//处理后的图象
 finally
   bmp.Free;
   jpg.Free;
 end;
end;

Answer 4

var
pjpg:tjpegimage;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile('F:\1.jpg');
image1.Picture.Bitmap.Assign(pjpg);
image1.Canvas.TextOut(0,0,'a');
end;