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中sendmessage给一个edit控件发送wm_settext消息

Delphi获取13位格林治时间实现方法

Delphi xe7开发的直接以管理员模式启动cmd命令行界面

Delphi 学习使用资源文件 - 字符串资源

为什么编程是独一无二的职业

Delphi directx截图 截本窗口的图

Delphi 注入指定进程

Delphi webbrowser控件的事件

Delphi 压缩与修复access数据库

dekphi 智能《疯狂刷新》辅助工具v3.1更新开源

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...