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;