fotoprueba:=TIEDBBitmap.Create();
     fotoprueba.ParamsEnabled:=true;
     fotoprueba.DataSource:=extraefotods;
     fotoprueba.ImageBlobField:='foto';
     mifoto:=TImageEnView.Create(self);
     with mifoto do
     begin
          setexternalbitmap(fotoprueba);
          datoscasa:=
          IO.Params.EXIF_GPSLatitude_Str+';'+
          IO.Params.EXIF_GPSLongitude_Str+chr(13)+chr(10)+
          IO.params.EXIF_GPSLatitude.ToString+';'+
          IO.Params.EXIF_GPSLongitude.ToString;
          datospersonales:=cuvsalida+','+nombrebeneficiario+chr(13)+chr(10)+
               etapapedida;
          mifoto.Proc.TextOut(align_text_left,align_text_bottom,
          datoscasa,'Arial', 12, clRed, [fsBold]);
          Proc.TextOut(align_text_right,align_text_bottom,
          datospersonales,'Arial', 12, clRed, [fsBold]);
//	     if not IO.Params.EXIF_HasEXIFData then
 //  	          IO.Params.EXIF_HasEXIFData:=true;
//          IO.Params.EXIF_GPSLatitude:=
//   	          StrToFloat(IO.params.EXIF_GPSLatitude.ToString);
//          IO.Params.EXIF_GPSLongitude:=
//   	          strtofloat(IO.params.EXIF_GPSLatitude.ToString);
     end;
     mifoto.IO.SaveToFileJpeg(cuvsalida+' '+nombrebeneficiario+'.jpg');
     mifoto.IO.InjectJpegEXIF(cuvsalida+' '+nombrebeneficiario+'.jpg');
     mifoto.Free;
     fotoprueba.Free;
    end;