Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-07-2021
batuzail batuzail is offline
Miembro
 
Registrado: feb 2017
Posts: 57
Poder: 8
batuzail Va por buen camino
Cita:
Empezado por NVS Ver Mensaje
Hola,

Yo también uso CR8.5 para los formatos de facturas, ¿¿¿me podrias decir cómo haces para meter el QR???

Muchas gracias!

Hola,
Yo lo que hago es usar una dll quricol32.dll y con este sencillo ejemplo genero el QR
Código Delphi [-]
Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare Sub GenerateBMP _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Sub Form_Load()
    
    GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow
    
End Sub
La puedes descargar de aqui: http://users.telenet.be/ws36637/download/quricol.zip

Como en CR no puedo usar imagenes dinámicas, lo que hago es generar el QR y guardarlo en la tabla de cabecera de factura y luego la pinto en el Report.

Saludos
Responder Con Cita
  #2  
Antiguo 20-07-2021
NVS NVS is offline
Miembro
 
Registrado: jun 2021
Posts: 10
Poder: 0
NVS Va por buen camino
Cita:
Empezado por batuzail Ver Mensaje
Hola,
Yo lo que hago es usar una dll quricol32.dll y con este sencillo ejemplo genero el QR
Código Delphi [-]
Option Explicit
 
Private Enum TErrorCorretion
    QualityLow
    QualityMedium
    QualityStandard
    QualityHigh
End Enum
 
Private Declare Sub GenerateBMP _
                Lib "C:\Temp\quricol32.dll" _
                Alias "GenerateBMPW" ( _
                ByVal FileName As Long, _
                ByVal Text As Long, _
                ByVal Margin As Long, _
                ByVal Size As Long, _
                ByVal Level As TErrorCorretion)
                
Private Sub Form_Load()
    
    GenerateBMP StrPtr("C:\Temp\Example.bmp"), StrPtr("Hello world!"), 3, 5, QualityLow
    
End Sub
La puedes descargar de aqui: h t t p ://users.telenet.be/ws36637/download/quricol.zip

Como en CR no puedo usar imagenes dinámicas, lo que hago es generar el QR y guardarlo en la tabla de cabecera de factura y luego la pinto en el Report.

Saludos
Lo primero muchas gracias por tu rápida contestación!!
Y ok, entiendo lo de generar el QR con la librería y guardar la imagen, pero esto no lo he entendido:

" generar el QR y guardarlo en la tabla de cabecera de factura y luego la pinto en el Report."

guardas la imagen en la BBDD?? a eso te refieres?? lo guardas en BBDD y lo muestras como un campo mas??? Nunca he guardado imagenes en BBDD, la verdad



Saludos
Responder Con Cita
  #3  
Antiguo 20-07-2021
batuzail batuzail is offline
Miembro
 
Registrado: feb 2017
Posts: 57
Poder: 8
batuzail Va por buen camino
Cita:
Empezado por NVS Ver Mensaje
Lo primero muchas gracias por tu rápida contestación!!
Y ok, entiendo lo de generar el QR con la librería y guardar la imagen, pero esto no lo he entendido:

" generar el QR y guardarlo en la tabla de cabecera de factura y luego la pinto en el Report."

guardas la imagen en la BBDD?? a eso te refieres?? lo guardas en BBDD y lo muestras como un campo mas??? Nunca he guardado imagenes en BBDD, la verdad



Saludos
Te creas un campo de tipo OLEOBJECT o BLOB en tu bbdd y luego en CR pegas ese campo y verás como se muestra la imagen.


saludos
Responder Con Cita
  #4  
Antiguo 20-07-2021
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.286
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por NVS Ver Mensaje
" generar el QR y guardarlo en la tabla de cabecera de factura y luego la pinto en el Report."
guardas la imagen en la BBDD?? a eso te refieres?? lo guardas en BBDD y lo muestras como un campo mas??? Nunca he guardado imagenes en BBDD, la verdad
Cita:
Empezado por batuzail Ver Mensaje
Te creas un campo de tipo OLEOBJECT o BLOB en tu bbdd y luego en CR pegas ese campo y verás como se muestra la imagen.

Opino lo mismo.
No es necesario guardar la imagen el la BBDD. Además pierdes recursos y velocidad.
Si guardas el dato (STRING), luego a la hora de imprimirlo con cualquier generador de Reports no tendrás problemas, para que pinte el QR.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 20-07-2021
batuzail batuzail is offline
Miembro
 
Registrado: feb 2017
Posts: 57
Poder: 8
batuzail Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
Opino lo mismo.
No es necesario guardar la imagen el la BBDD. Además pierdes recursos y velocidad.
Si guardas el dato (STRING), luego a la hora de imprimirlo con cualquier generador de Reports no tendrás problemas, para que pinte el QR.
El problema es que en Crystal Report 8.5 yo no he sido capaz de generar un QR, es más, esa versión no permite ni enlazar imgenes dinamicamente, creo que por aquellos años ni existian los QR, por eso he optado por guardar la imagen y pasarla al report en la bbdd.
Responder Con Cita
Respuesta



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
SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice newtron Internet 3557 Hace 4 Días 17:42:47
Como utilizar la ayuda del nuevo Sistema Operativo gluglu Humor 3 24-09-2007 09:39:05
Aplicacion Agencia De Viajes ArdiIIa Varios 9 20-01-2007 16:49:53
El Vasco Aguirre Al González La Taberna 5 26-05-2006 09:22:28
Microsoft ha lanzado su nuevo sistema operativo DarkByte Humor 0 25-01-2004 09:21:14


La franja horaria es GMT +2. Ahora son las 01:47:57.


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