PDA

Ver la Versión Completa : QRImage no se actualiza


Moparova
19-02-2007, 21:17:10
Hola a todos!!!

Tengo una tabla en sql server, donde guardo la ruta de una imagen, el problema es que en el QReport en el campo QRImage solo me muestra la primera imegen en todos los registros. Cómo puedo hacer para que me actualiza la imagen??

No utilizo un QRDBImage, ya que en la tabla no tengo el campo como image, ya que no se como cargar una imagen e sql server

Utilizo el siguiente código

while not dm.spcmbmcte.eof do
begin
With dm.spcruta do
begin
Close;
Open;
end;
dm.spcruta.First;
arch := dm.spcrutadir.value dm.spcmbmctefoto.Value'.JPG';
dm.spcruta.next;
if dm.spcmbmctefoto.value = '' then
begin
arch := dm.spcrutadir.value + 'X.JPG';
end;
frmcatalogocte.QRImage1.Picture.LoadFromFile(arch);
dm.spcmbmcte.next;
end;
frmcatalogocte.qrpcatalogocte.preview;

No se que es lo que esta pasando
Gracias de antemano :)

Caral
19-02-2007, 21:45:36
Hola Moparova
La verdad no te entiendo muy bien pero te muestro como capturo y pongo imagenes en el QReport.
Hago lo siguiente:
En el evento BeforePrint del QReport pongo esto:

procedure TRConsignac.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
Ruta: String;
begin
Ruta:= 'C:\Medida1.jpg';
QRImage1.Picture.LoadFromFile(Ruta);
end;
Con esto le digo que busque la foto medida1.jpg en la direccion C:/ y la coloque en el qR.
Espero te sirva
Saludos

Zeta
19-02-2007, 23:49:42
Yendo un poco más allá podés trabajar con el campo de la base de datos directamente:

procedure TRConsignac.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
Ruta: String;
begin
QRImage1.Picture.LoadFromFile(dmDatos.TBaseFOTO.Value);
end;

Donde:
dmDatos = el módulo de datos si lo utilizas.
TBaseFOTO = (tabla llamada Base y campo llamado FOTO) Es la ruta, ojo, siempre es preferible
utilizar una ruta relativa y no absoluta, pero eso seguramente lo solucionarás fácilmente.


Saludos

Moparova
21-02-2007, 17:21:22
Gracias Zeta, Caral, aun no logro solucionar mi problema, si consigo cargar la imagen al Qrimage, el problema es que en todos los registros aparece la misma imagen, es decir no se actualiza. :(

No se como resolverlo, habia pensado en crear una tabla con las fotos en sql, pero no se como cargar las imagenes ahi.

Gracias por su ayuda

Moparova:)