本文整理自网络，侵删。
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 相关阅读 >>
Delphi中sendmessage给一个edit控件发送wm_settext消息
Delphi xe7开发的直接以管理员模式启动cmd命令行界面
更多相关阅读请进入《Delphi》频道 >>
