ajustar tamaño imagen en un QRDBImage
 

Saludos a todos, a ver quien me puede dar una mano.

Tengo imagenes almacenadas en un campo "Image" de SQL Server 2000 y necesito visualizar e imprimir dichas imagenes desde QuikReport, el problema es que no se como ajustar la imagen al QRDBImage sin que se me deforme o salga del tamaño correspondiente.

please..:(

Hola
No se si sera lo que buscas pero asi:

Código Delphi [-]
QRDBImage1.Stretch:= True;

Saludos

Me temo que nop.
la propiedad Stretch lo ajusta al tamaño del QRImage pero no al de la imagen, osea, me explico, si la imagen es mas larga que ancha, con la propuesad Stretch = True la imagen se alarga, y por ende queda deformada.
Tambien intentaba usar una variable tipo "TBitmap", a esta le asignaba valos "Bitmap.LoadFromFile(C:\Foto.JPG)", y le daba el tamaño que queria, pero a dicha variable no se como pasarle el valor desde la DB, he usado Bitmap.Assign(FieldByName('Imagen')), pero no me funciona.

Mira este enlace http://www.efg2.com/Lab/ImageProcessing/AspectRatio.htm

Puedes usar un QRImage en vez de QRDBImage. QRDBImage sólo carga las imágenes que estén en la BD y no permite modificarlas y una llamada parecedida a:

QRImage1.Picture.Assign(AjustarImagen(Image1.Picture.Bitmap))

cuando vayas a imprimir. Evidentemente "AjustarImagen" es una función que tendrías que adaptar según lo que quieras hacer.


Saludos

Vi el enlace que pusiste, y si, ese procedimiento es el que uso para visualizar las imagenes en los formularios cargandolas desde un archivo normal (JPG por ejemplo), pero no se como asignar el valor del campo 'Image' de la DB a esa variable ("Bitmap"), como escribi arriba, lo intente hacer de la siguiente manera:

Código Delphi [-]
Bitmap.Assign(FieldByName('Imagen'))

pero no me funciona asi.:confused:

Saludos.