delphi图片增加文字水印

本文整理自网络，侵删。

 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模仿“千千静听”滚动标题栏，非常简单！

Delphi xe8 tstylebook的使用

Delphi 直接将html字符串读入webbrowser中

Delphi 获取文件crc和md5

Delphi 复制动态数组

Delphi memo1 光标跟随鼠标移动

Delphi 通过递归来实现搜索文件

Delphi 字符串查找替换函数

Delphi释放内存一般这么写

Delphi idhttp实现get方法下载文件，断点续传

更多相关阅读请进入《Delphi》频道 >>