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 strtodatetime 这个函数在win7下出错

Delphi控制台程序怎么清屏

Delphi 如何从url提取文件名？

Delphi api: setwindowpos改变窗口的位置与状态

Delphi中如何设置更改编译生成的exe文件的保存位置

Delphi mscomm1自动获取串口

Delphi 消息实现窗口最小化，最大化，关闭(Delphi)

gdi tgpimage 提取 gif 动画

Delphi研究之驱动开发篇（六）--利用section与用户模式程

Delphi2010 图片格式转换bmp, png,jpeg, gif, tiff , wmphoto

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

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