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;

推荐分享