Convertir imagen bmp a jpeg

[[Crandel]]

Hola mar646, te tiro otra sugerencia.

Posiblemente para convertir cada imagen estes llamando a la funcio BMP2JPG que anda dando vueltas por ahi.
En esa funcion, se crean dos variables ( TBitmap y TJpegImage ), esta creación y destrucción de las variables podria llevar tiempo, no lo se.

Podes definirlas como globales para ver como se porta.

Suerte

Crandel

[mar646]

¿La función BMP2JPG comprime una imagen en bmp a otra en jpeg?
¿Sabes si es más rápida que el assign de delphi?

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

Todas las versiones que he encontrado de BMP2JPG acaban utilizando el Assign, así que no creo que te sirva.

Código Delphi [-]
 ...
 MyJpeg.Assign(Image1.Picture.Bitmap);
 ...

o ésta:

Código Delphi [-]
 ...
       with MyJPEG do begin         
   Assign(MyBMP);         
   SaveToFile('YourJpegHere.JPEG');         
   Free;       
 end;

[mar646]

Gracias Netfali. Bueno, todo esto me hace pensar que quizás la forma más rápida para comprimir sea la de utilizar el assign. ¿no creeis?

Si es así .... Bueno seguiré buscando una forma de acelerar esto.

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

Otra cosa, tal vez deberías mirar ésta librería (por probar no pierdes nada). Sabía que algo había visto y hasta hoy no he recordado donde (he buscado en los Bookmarks y lo he encontrado).

Graphics32: A fast graphics library for Delphi (ahoira ha pasado a SourceForge)
http://www.g32.org/graphics32/index.html

La descripción del paquete dice lo siguiente (hace mucho incapié en lo de "FAST", asó que tal vez te interese...):
Description

Graphics32 is a library designed for fast 32-bit graphics handling. Optimized for 32-bit pixel formats, it provides fast operations with pixels and graphic primitives, and in most cases Graphics32 outperforms the standard TBitmap/TCanvas classes. It is almost a hundred times faster in per-pixel access and about 2–5 times faster in drawing lines.

Features

Some of Graphics32 features include:

• Fast per-pixel access up to 100 times faster compared to standard TCanvas/TBitmap;
• Bitmap alpha blending (including per-pixel alpha blending);
• Pixel, line and polygon antialiasing (combined with alpha blending);
• Locking the bitmap for safe multithreading;
• Enhanced scaling of bitmaps;
• Affine transformations of bitmaps: rotations, scaling, etc. with sub-pixel accuracy;
• Arbitrary projective transformations of bitmaps;
• Flicker-free image displaying components with optimized double buffering;
• Multiple customizable easy-to-use overlay layers;
• A property editor for RGB and alpha channel loading;
• Design-time loading of image formats supported by standard TPicture;

[mar646]

Voy a probar a ver como va con estos componentes.

[mar646]

Gracias netfali por tu ayuda pero no me sirven estos componentes. No disponen de compatibilidad con la clase TJpegImage por lo que no se como pasar un tbitmap a un tjpegimage.

Vamos que me conformo con pasar de un tbitmap a un tmemorystream pero que contenga la información comprimida. Lo que pretendo es reducir el tamaño de la imagen bmp que me llega de la cámara. Me da igual si la paso a jpeg o directamente a un tmemorystream pero comprimida con alguna función que me genere un archivo más pequeño.