Como rotar una imagen en delphi x grados SIN DEFORMARLA?

[dec]

Hola,

Acabo de comprobar que la librería soporta el formato TIFF y puede rotar imágenes en este formato directamente. Si descargas la librería verás que en la carpeta "demos" viene un programa de nombre "VampConvert.exe". Puedes usar el programa de esta forma:

VampConvert.exe -infile=C:\apple.tif -outfile=C:\appler.tif -rotate=90

El programa es una demostración de la librería en cuestión, quiere decirse, que lo que el programa hace puede hacerlo la librería.

Podrías utilizar un código similar a este, y, ojo que lo he adaptado "al vuelo" y sin probarlo del programa en que yo lo estoy usando, lo mismo se me escapa algo, pero, básicamente, esto es:

Código Delphi [-]
uses
  Imaging, ImagingTypes, ImagingUtility;

{...}

function RotarImagen(imagenEntrada, imagenSalida, angulo: string): boolean;
var
  img: TImageData;
  aAngulo: integer;
begin
  result := false;
  InitImage(img);
  try
    aAngulo := StrToIntDef(angulo, 0);
    if not Imaging.LoadImageFromFile(imagenEntrada,img) then
      raise Exception.Create(ImagingUtility.GetExceptObject.Message);
    if (aAngulo mod 90) = 0 then
      result := Imaging.RotateImage(img,aAngulo)
    else
      raise Exception.Create(rsErrorImgAnguloIncorrecto);
    if not Imaging.SaveImageToFile(imagenSalida,img) then
      raise Exception.Create(ImagingUtility.GetExceptObject.Message);
  finally
    FreeImage(img);
  end;
end;

Como verás, el formato de la imagen de entrada y el formato de la imagen de salida se deducen de su extensión. En el programa que menciono, tengo algún procedimiento que se encarga de comprobar que, efectivamente, tanto el formato de la imagen de entrada, como el de la imagen de salida, están soportados por la librería Imaging.