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

时间：2020-12-26 11:44:57 阅读：35 评论：0 收藏：0 [点我收藏+]

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

技术分享图片

工具/原料

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

方法/步骤

窗体创建

添加2个edit，3个button

如图所示：

技术分享图片

2.原图代码如下:

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;