Delphi jpg图像加文字水印

本文整理自网络，侵删。

 
uses JPEG;

procedure TForm1.FormCreate(Sender: TObject);
Var
   Img    : TBitmap;
   Jpg    : TJPEGImage;
Begin
       Try
         Jpg:=TJPEGImage.Create;
         Jpg.LoadFromFile('123.jpg'); //需要加水印的图片
         Img:=TBitmap.Create;
         Img.Assign(Jpg);
         Img.Canvas.Font:=Form1.Font;
         Img.Canvas.Font.Size:=36;
         Img.Canvas.Font.Color:=clRed;
         Img.Canvas.Brush.Color:=clWhite;
         Img.Canvas.TextOut(0,0,'www.delphitop.com'); //0,0 x,y
         jpg.Assign(Img);
         Jpg.SaveToFile('deneme1.jpg');  //保持位置
       Finally
           FreeAndNil(Jpg);
           FreeAndNil(Img);
       End;
end;


//整成函数调用方便

Function jpgLabel(loadpic,savepic:string): Boolean;
Var
   Img    : TBitmap;
   Jpg    : TJPEGImage;
Begin
Result:=false;
       Try
         Jpg:=TJPEGImage.Create;
         Jpg.LoadFromFile(loadpic);
         Img:=TBitmap.Create;
         Img.Assign(Jpg);
         Img.Canvas.Font:=Form1.Font;
         Img.Canvas.Font.Size:=36;
         Img.Canvas.Font.Color:=clRed;
         Img.Canvas.Brush.Color:=clWhite;
         Img.Canvas.TextOut(0,0,'www.delphitop.com');
         jpg.Assign(Img);
         Jpg.SaveToFile(savepic);
       Finally
           FreeAndNil(Jpg);
           FreeAndNil(Img);
       End;
    if fileexists(savepic) then
 Result:=true;

 End;
 

相关阅读 >>

Delphi 枚举消息钩子的代码

Delphi7 中tstringlist的delimiter delimitedtext有bug，字符串分割有问题

Delphi 字符串查找替换函数

Delphi禁止tedit, tmemo右键上下文弹出菜单

Delphi xe 网上获取北京时间android app 启动黑屏优化补丁

Delphi windowsapi: muldiv

Delphi调试技巧

Delphi edit中只能输入数字并且只能输入一个小数点

isleapyear：返回给定的年份是否是闰年

Delphi 微信公众平台 Delphi sdk

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

转载请注明出处：木庄网络博客 » Delphi jpg图像加文字水印