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;