jpg图片添加文字？？？

[jinzihan_005]

我的程序在image中已经加载了一幅jpg图片，现在我想在它的上面添加文字，并且保存下来，形成一张jpg图片（就是图片上必须有添加的文字），应该怎么做？？？

[2312]

把JPG文件转成bmp格式的加载到image中，添加完文字后保存为jpg的文件，这样可以不？

• 打赏
• 举报

回复 赞

[ly_liuyang]

转换到BMP,然后Canvas的TextOut输出,最后再保存为JPG的

_____________________
http://lysoft.7u7.net

• 打赏
• 举报

回复 赞

[pengxuan]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Image2: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
jpg :TJpegImage;
bmp :TBitMap;
begin
jpg := TJpegImage.Create;
bmp := TBitMap.Create;
jpg.Assign(image1.Picture);
bmp.Assign(jpg);
bmp.Canvas.Brush.Style := bsClear;
bmp.Canvas.Font.Color := clRed;
bmp.Canvas.Font.Size := 20;
bmp.Canvas.Font.Name:='宋体';
bmp.Canvas.Font.Size:=9;
bmp.Canvas.TextOut((bmp.Width div 2 - 30),(bmp.Height - 60),'测试写字');
image2.Picture.Bitmap.Assign(bmp);
jpg.Assign(bmp);
jpg.SaveToFile('e:\aa.jpg');
jpg.Free;
bmp.Free;
end;

end.

• 打赏
• 举报

回复 赞

[xaocao]

pengxuan(网虫先生) 所言是也!

• 打赏
• 举报

回复 赞