Como rotar una imagen en delphi x grados SIN DEFORMARLA?

[mbelda]

Pues no se si te equivocas porque no lo he probado, pero ahora que lo dices lo voy a ver posiblemente tengas razon, pero no veas la historia, convierte, rota y vuelve a convertir, pero si funciona, pues no es mala opcion. Gracias, por la idea, no me lo había propuesto por el tema de si pierde calidad, pero voy a ver que tal.

[dec]

Hola,

En realidad no es tanta "historia". Yo tengo un programa que usa la referida librería. El programa admite como entrada una imagen de cualquiera de los formatos de entradaq soportados, puede rotar la imagen, y, a continuación, guardarla en cualquiera de los formatos de salida soportados. Todo eso lo hace en "cero coma", como suele decirse. Vamos, que, no es tanta historia.

Y, eso suponiendo que no puedas rotar una imagen TIFF, directamente, y volverla a guardar. ¿Esto sí que lo probaste, no?

[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.

[mbelda]

Lo de vanconvert.exe ya lo probe y no se porque me dijo "tipo de archivo no soportado", por eso lo había descartado, voy a probar lo que me propones, supongo que ira perfecto, muchas gracias, eres un máquina, si quieres venirte para el sur, no dudes en decirlo, estaria encantado de trabajar contigo, jeje. Estamos buscando programador en delphi + sqlserver.

[mbelda]

Me sigue sin funcionar el programa vampconvert, dice que tif no esta en los supported file formats <IMPUT>: jpg, bmp... pero tif no aparece.

Yo me descarge las librerias de sourceforge.net, la ultima versión, me puedes enviar por mail tu vampconvert.exe a ver si con el tuyo funciona y es cuestión de version? Gracias.

[mbelda]

Es la 0240 de 28-06-2007

[mbelda]

RotarImagen, funciona perfectamente, el código sin ningún error, corto, claro y efectivo, pero el tif no está dentro de los formatos reconocidos, he hecho la prueba con un jpg y funciona bien, pero el tif nada. He revisado las carpetas y dentro de Imaging está \Extras\Extensions\LibTiff, que supongo que hay es donde estarán las funciones para pasar de tif a jpg y de jpg a tif otra vez.