Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Guardar Imagen de un TImage (https://www.clubdelphi.com/foros/showthread.php?t=64074)

num11 16-03-2009 09:00:12

Guardar Imagen de un TImage
 
Saludos, una pregunta, alguien sabe como guardar la imágen que tengo en un TImage como .jpg o .bmp o cualquier formato??? Lo que quiero es almacenar la imagen que mando a pintar en el TImage (con los comandos MoveTo y LineTo) a disco, en la ruta que yo escoja (no se si con un SaveDialog u otra cosa) y del formato que yo elija. De antemano gracias.

Neftali [Germán.Estévez] 16-03-2009 10:03:24

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.

Caro 16-03-2009 17:22:47

Hola, también puedes hacer la prueba de grabar directamente.

Código Delphi [-]
 Image1.Picture.SaveToFile('C:\Imagen.bmp');
 
 Image1.Picture.SaveToFile('C:\Imagen.jpg');

Saluditos :(

num11 19-03-2009 06:52:55

Saludos y gracias por contestar, efectivamente puedo guardar directamente la imágen con el método SaveToFile("ruta+nombre+extensión"). :D


La franja horaria es GMT +2. Ahora son las 07:42:21.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi