Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-02-2007
Moparova Moparova is offline
Miembro
 
Registrado: oct 2006
Posts: 42
Poder: 0
Moparova Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 19-02-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
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
Responder Con Cita
  #3  
Antiguo 19-02-2007
Avatar de Zeta
Zeta Zeta is offline
Miembro
 
Registrado: feb 2005
Posts: 215
Poder: 20
Zeta Va por buen camino
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
__________________
And I'd like an hour on the holodeck with Seven of Nine.
Responder Con Cita
  #4  
Antiguo 21-02-2007
Moparova Moparova is offline
Miembro
 
Registrado: oct 2006
Posts: 42
Poder: 0
Moparova Va por buen camino
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
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
QRImage Stretch No Funciona spider_Ramon Impresión 0 08-02-2006 18:03:45
QRImage no funciona bien eljinete Impresión 4 16-12-2005 01:02:05
QRimage sale negraaa User_baja1 Impresión 1 26-05-2005 08:28:53
image a qrimage soloriv Varios 0 25-05-2005 23:56:41
QRImage aurix Impresión 2 01-07-2003 17:03:19


La franja horaria es GMT +2. Ahora son las 08:24:31.


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
Copyright 1996-2007 Club Delphi