function JpgToBmp(FilePath: string): string;
var     MyJPEG: TJPEGImage;     
MyBMP: TBitmap;     
s: string; begin     
Result := '';     
s := copy(FilePath, 1, Length(FilePath) - 3) + 'bmp';     
MyJPEG := TJPEGImage.Create;     
with MyJPEG do     
begin         
LoadFromFile(FilePath);         
MyBMP := TBitmap.Create;         
with MyBMP do       
 begin           
 Width := MyJPEG.Width;             Height := MyJPEG.Height;             
Canvas.Draw(0, 0, MyJPEG);             
SaveToFile(s);             
Result := s;             
Free;         
end;       
 Free;   
 end;
end;

function BmpToJpg(FilePath: string): string; var     
Jpg: TJpegImage;     BMP: TBitMap;     s:string;
begin     
s := copy(FilePath, 1, Length(FilePath) - 3) + 'jpg';     
Jpg := TJpegImage.Create;     
BMP := TBitmap.Create;   
 BMP.LoadFromFile(FilePath);   
 Jpg.Assign(BMP);     
Jpg.SaveToFile(s);   
 BMP.Free;     
Jpg.Free; end;

 

测试只能对Bmp格式图片加文字，如果要使用jpg，需要使用上面函数转换

procedure TForm1.btn1Click(Sender: TObject);

begin

    with img1.Picture do

    begin

        LoadFromFile('c:\1.bmp');

        Bitmap.Canvas.Brush.Style:= bsClear;

        Bitmap.Canvas.Font.Size:=15;

        Bitmap.Canvas.Font.Name:='黑体';

        Bitmap.Canvas.Font.Color:=clWhite;

        Bitmap.Canvas.TextOut(20,10,'甘A12345');

        Bitmap.Canvas.TextOut(20,30,'石家庄纽斯达交通科技有限公司');

        SaveToFile('c:\1.bmp');

    end;

end;

 

————————————————

原文链接：https://blog.csdn.net/lqena/article/details/22851851