Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   QRImage no se actualiza (https://www.clubdelphi.com/foros/showthread.php?t=40513)

Moparova 19-02-2007 21:17:10

QRImage no se actualiza
 
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:
Código Delphi [-]
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:

Código Delphi [-]
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:)


La franja horaria es GMT +2. Ahora son las 12:54:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi