Fórum Escrever texto em uma imagem já existente #351153

uses
  JPeg;

procedure EscreveTexto(Arquivo: TFileName; X, Y: Integer; Texto: string);
var
  bmp: TBitmap;
  jpg: TJPegImage;
  ext: string;
  IsJpeg: Boolean;
begin
  bmp := TBitmap.Create;
  jpg := TJpegImage.Create;
  try
    ext := LowerCase(ExtractFileExt(Arquivo));
    if (ext = ´.jpg´) or (ext = ´.jpeg´) then
    begin
      jpg.LoadFromFile(Arquivo);
      bmp.Assign(jpg);
      IsJpeg := True;
    end
    else if (ext = ´.bmp´) then
    begin
      bmp.LoadFromFile(Arquivo);
      IsJpeg := False;
    end
    else
      raise Exception.Create(´Tipo de arquivo desconhecido: ´ + ext);

    with bmp.Canvas do
    begin
      Font.Name := ´Arial´;
      Font.Size := 14;
      Font.Style := [fsBold];
      TextOut(X, Y, Texto);
    end;

    if IsJpeg then
    begin
      jpg.Assign(bmp);
      jpg.SaveToFile(Arquivo);
    end
    else
      bmp.SaveToFile(Arquivo);
      
  finally
    jpg.Free;
    bmp.Free;
  end;
end;