本文整理自网络,侵删。
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 xe使用tjsonobject解析json数据
在Delphi xe6 firemonkey移动应用程序的twebbrowser html页面上运行javascript
Delphi winapi: getwindow - 获取与指定窗口具有指定关系的窗口的句柄
Delphi xe android 判断自己程序是否是前台程序
更多相关阅读请进入《Delphi》频道 >>