Guardar Imagen de un TImage

[Neftali [Germán.Estévez]]

Puedes utilizar otro TImage, por ejemplo, para guardar la imagen creada, utilizando algo como esto:

Código Delphi [-]
  // Iguales dimensiones
  Image2.Picture.Bitmap.Height := Image1.Picture.Bitmap.Height ;
  Image2.Picture.Bitmap.Width := Image1.Picture.Bitmap.Width;
  // Copiar el contenidoImage2.Picture.Bitmap.Canvas.CopyRect(Image2.Picture.Bitmap.Canvas.ClipRect,
    Image1.Picture.Bitmap.Canvas, Image1.Picture.Bitmap.Canvas.ClipRect);
  // Guardarlo
  Image2.Picture.Bitmap.SaveToFile('c:\temp\1.bmp');

En este caso se utiliza un BMP; Puedes guardar en JPG y en PNG si estás con la última versión de Delphi que ya lo soporta.