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 char string

Delphi fmx 获取系统版本 android ios通用

Delphi richedit接受消息的问题

Delphi 取得文件版本

Delphi tlistview(tlistbox+图标显示)

Delphi comparestr 这个函数可以模糊匹配，且不区分大小写

delph控制台(console)程序添加图标和版权信息

Delphi 去掉警告

Delphi mysql里Delphi事件类型转unix时间戳

Delphi 通过进程id获取进程名

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

转载请注明出处：木庄网络博客 » delphi图片增加文字水印