comprimir un jpg
 

Hola a todos,
Tengo un programa en D7 que lee una imagen del escaner y luego la guarda en una tabla, para ello uso un JVDBImage. El problema es que la imagen que me viene del escaner es muy grande >1 mega y entonces al hacer post me dice "invalid blob length"

La semana pasada tenia el mismo programa compilado con D5 y usando un TDBJpegImage y funcionaba bien ya que antes de el post yo hacia:
DBJPEGImage1.Quality:=compr;
DBJPEGImage1.DataSource.DataSet.Edit;
DBJPEGImage1.Picture.Bitmap.Assign(image);
DBJPEGImage1.Picture.Bitmap.pixelFormat:=pf24bit;
DBJPEGImage1.DataSource.DataSet.post;

el problema es que ese componente TDBJpegImage me es imposible hacerlo compilar en D7, asi que lo cambie por un TJVDBImage, que no admite .Quality
¿Sabeis como decirle que aplique un factor de compresion a la image en un TJVDBImage, o un TImage?????'

Gracias,
david.

Suponiendo que Image sea una varible TJPEGImage, prueba con:

Image.CompressionQuality := 50; //admite valores 1..100

Saludos