Grabar En Un Jpg O Bmp Foto En Pantalla

[mtpedro]

Tengo una forma que muestra datos de una nomina en pantalla
datos generales y una fotografia, la fotografia viene de un campo blob
de una tabla de interbase, quiero hacer un popupmenu con la opcion
en la foto para grabarla en un archivo externo bmp ó jpg.
como hago ???????????????????????

Gracias, Pequeño Saltamontes.


Saludos desde TIJUANA,B.C., MEXICO

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

Empezado por mtpedro

...la fotografia viene de un campo blob
de una tabla de interbase, quiero hacer un popupmenu con la opcion
en la foto para grabarla en un archivo externo bmp ó jpg.

Si viene de un campo BLOB posiblemente la estés mostrando en un campo DBImage o similar. Busca en el control una propiedad que te permita acceder a la imagen (en los DBImage estandard es la propiedad Picture) y a partir de ahí puedes acceder al bitmap y utilizar el SaveToFile.

Código Delphi [-]
  DBImage1.Picture.Bitmap.SaveToFile(NnombreFichero);

[mtpedro]

Gracias eso es exactamente lo que necesitaba
Estoy Muy agradecido contigo Pequeño saltamontes.

ahora mi pregunta es hay alguna diferencia para grabar
en formato bmp y jpg ?

si utilizo el codigo que me enviaste en que formato lo graba
jpg o bmp ?

Saludos desde Tijuana,b.c., MEXICO.

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

Empezado por mtpedro

ahora mi pregunta es hay alguna diferencia para grabar
en formato bmp y jpg ?

Pues si la hay.

Empezado por mtpedro

si utilizo el codigo que me enviaste en que formato lo graba
jpg o bmp ?

Si miras la línea que guarda la imagen verás que pone...

Código Delphi [-]
...Bitmap.SaveToFile(NnombreFichero);

BMP no es otra cosa que la extensión para ficheros de ese tipo, por lo tanto ésta línea guarda un fichero en BMP. ...un poquito de imaginación...

Volviendo a tu primera pregunta si quieres guardarlo en formato JPEG (con extensión JPG) debes convertirlo previamente y después guardarlo.

Código Delphi [-]
var
  MyJPEG : TJPEGImage;
  MyBMP : TBitmap;
begin
  MyBMP := Image1.Picture.Bitmap;
  MyJPEG := TJPEGImage.Create;
  try
    MyBMP.SaveToFile('c:\temp\Imagen.BMP');
    MyJPEG.Assign(MyBMP);
    MyJPEG.SaveToFile('c:\temp\Imagen.JPEG');
  finally
    MyJPEG.Free;
  end;