图片水印，delphi编写水印工具

水印是电子商务公司，图片处理不可避免的环节，那么怎么自己写一个水印工具呢

 

 

 

工具/原料

 

• delphi编程工具
• 测试图片一张
• logo图片一张

方法/步骤

 

1. 窗体创建

   添加2个edit，3个button

   如图所示：

   

   2.原图代码如下: 

   1. var
      
          jpg:TJPEGImage;
      
          jUrl:string;
      
          bmp:TBitmap;
      
      begin
      
          try
      
           jUrl:=edt1.Text;
      
           bmp:=TBitmap.Create;
      
           bmp.Height:=200;
      
           bmp.Width:=200;
      
           jpg:=TJPEGImage.Create;
      
           jpg.LoadFromFile(jUrl);
      
           bmp.Canvas.StretchDraw(Rect(5,5,bmp.Width,bmp.Height),jpg);
      
           img1.Canvas.Draw(0,0,bmp);
      
          except
      
            bmp.Free;
      
           jpg.Free;
      
      end;

   3.LOGO添加代码如下

   VAR
   
     jpg:TJPEGImage;
   
      bmp:TBitmap;
   
   begin
   
     try
   
      bmp:=TBitmap.Create;
   
      jpg:=TJPEGImage.Create;
   
      jpg.LoadFromFile(edt2.Text);
   
      img1.Canvas.Draw(5,0,jpg);
   
     except
   
       jpg.Free;
   
       Exit;
   
     end;

    

   4.点击原图按钮

    

    

    

   

    

   5.点击logo按钮

   

    

   6.保存图片按钮代码

   img1.Picture.SaveToFile('c:\123.jpg');

   添加水印效果如下:

   

    

    

    

   注意事项

    

   • 图片大小可以自己填写参数