| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Carlos J. Fernandez
Master
Registrado: 27 Oct 2004Mensajes: 574
|
 Publicado: Mar 12 Jun, 2018 10:04 am Asunto: Grabar Quickreport en un JPG |
 |
|
Hola a todos,
Se le ocurre a alguien como se podría grabar un documento de Quickreport en un JPG?
Un abrazo.
Carlos
_________________
Carlos J. Fernandez |
|
| Volver arriba |
|
 |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
|
Carlos J. Fernandez
Master
Registrado: 27 Oct 2004Mensajes: 574
|
| Publicado: Jue 14 Jun, 2018 11:05 am Asunto: |
|
|
| Angel escribió: | | ¿No te vale con volcarlo a un PDF? |
Angel,
En PDF es como lo hago actualmente, la idea es que necesitan que ese documento se meta en la base de datos en un registro y como PDF no se como hacerlo, ademas de que ocupa mucho.
Estoy intentando ver si al volcarlo en JPG ocupa menos, ademas de que de esa manera lo he hecho muchas veces y va muy bien para luego recuperarlo o volver a verlo por ejemplo.
Un saludo
Carlos
_________________
Carlos J. Fernandez |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Vie 15 Jun, 2018 9:28 am Asunto: |
|
|
A mi los PDF generados con BCB me ocupan bastante menos de lo que me esperaba (para que te hagas una idea un listado de 67 páginas A-4 me ocupa 1,8 Mb). Y lo ficheros PDF los guardo tmabién en una tabla FB.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
Carlos J. Fernandez
Master
Registrado: 27 Oct 2004Mensajes: 574
|
| Publicado: Vie 15 Jun, 2018 9:52 am Asunto: |
|
|
| Angel escribió: | | A mi los PDF generados con BCB me ocupan bastante menos de lo que me esperaba (para que te hagas una idea un listado de 67 páginas A-4 me ocupa 1,8 Mb). Y lo ficheros PDF los guardo tmabién en una tabla FB. |
Y como lo haces?
Yo uso componentes ADO, lo mismo es mejor como tu dices y me quito de lios.
Pero luego como lo recuperas? lo vuelves a grabar en disco?
un saludo
Carlos
_________________
Carlos J. Fernandez |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Vie 15 Jun, 2018 10:13 am Asunto: |
|
|
| Carlos J. Fernandez escribió: | | Y como lo haces? |
Dos cosas.
1. Para generar los PDF con Builder uso el método ExportToFilter con el QuickReport.
| Código: | #include <QuickRpt.hpp>
#include <qrpdffilt.hpp>
#include <QRExport.hpp>
AnsiString cInforme = <el nombre del fichero>;
TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
filtro->AddFontMap("Arial:Helvetica");
filtro->StartConcat();
Informe->ExportToFilter(filtro);
filtro->EndConcat();
delete filtro; |
2. El código para guardar/recuperar los ficheros lo tienes en Guardar objetos en Firebird
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
Carlos J. Fernandez
Master
Registrado: 27 Oct 2004Mensajes: 574
|
| Publicado: Vie 15 Jun, 2018 10:18 am Asunto: |
|
|
| Angel escribió: | | Carlos J. Fernandez escribió: | | Y como lo haces? |
Dos cosas.
1. Para generar los PDF con Builder uso el método ExportToFilter con el QuickReport.
| Código: | #include <QuickRpt.hpp>
#include <qrpdffilt.hpp>
#include <QRExport.hpp>
AnsiString cInforme = <el nombre del fichero>;
TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
filtro->AddFontMap("Arial:Helvetica");
filtro->StartConcat();
Informe->ExportToFilter(filtro);
filtro->EndConcat();
delete filtro; |
2. El código para guardar/recuperar los ficheros lo tienes en Guardar objetos en Firebird |
Estupendo,
Generar el PDF no hay problema, lo tengo controlado.
Me faltaba el grabarlo en la base de datos.
Voy a verlo.
Muchas gracias 
Carlos
_________________
Carlos J. Fernandez |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
|
Carlos J. Fernandez
Master
Registrado: 27 Oct 2004Mensajes: 574
|
| Publicado: Lun 18 Jun, 2018 11:59 am Asunto: |
|
|
| Angel escribió: | | ¡A mandar! Ya dirás si te ha ido bien. |
Funciona todo muy bien, la verdad es que me sorprende que ocupe tan poquito el PDF.
Solo habia que hacer un pequeño cambio:
Donde tu pones:
Query->ParamByName("Informes")->LoadFromFile("C:\\Listado.pdf", ftBlob);
Con ADO tienes que poner:
Query->Parameters->ParamByName("Informes")->LoadFromFile("C:\\Listado.pdf", ftBlob);
Y todo perfecto .)
Muchas gracias
Carlos
_________________
Carlos J. Fernandez |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Lun 18 Jun, 2018 4:49 pm Asunto: |
|
|
| Carlos J. Fernandez escribió: | | Funciona todo muy bien, la verdad es que me sorprende que ocupe tan poquito el PDF. |
Sí, lo cierto es que no sé como lo han hecho pero los PDF ocupan bien poco con este método.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
Carlos J. Fernandez
Master
Registrado: 27 Oct 2004Mensajes: 574
|
| Publicado: Lun 25 Jun, 2018 5:12 pm Asunto: |
|
|
| Angel escribió: | | Carlos J. Fernandez escribió: | | Funciona todo muy bien, la verdad es que me sorprende que ocupe tan poquito el PDF. |
Sí, lo cierto es que no sé como lo han hecho pero los PDF ocupan bien poco con este método. |
Angel, seguro que es una tontería pero no se como hacerlo
Ahora ese mismo documento que ya tengo en la tabla A y carga perfectamente, tengo que hacer un update de la tabla A a la tabla B
Como podría hacerlo?
Un saludo
Carlos
_________________
Carlos J. Fernandez |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Lun 25 Jun, 2018 5:41 pm Asunto: |
|
|
| Carlos J. Fernandez escribió: | Angel, seguro que es una tontería pero no se como hacerlo
Ahora ese mismo documento que ya tengo en la tabla A y carga perfectamente, tengo que hacer un update de la tabla A a la tabla B
Como podría hacerlo?
Un saludo
Carlos |
No te entiendo. ¿Quieres pasar la infomación de la tabla A a la tabla B? ¿Y las dos tiene la misma definición de campos? Lo que se me ocurre sería algo así:
| Código: | Query->SQL->Text = "UPDATE TablaB SET Campo1 = :Campo1, Campo2 = :Campo2... WHERE IndiceTablaB = :IndiceTablaA";
Query->ParamByName("Campo1")->Value = TablaA->FieldByName("Campo1")->Vale;
etc... |
No sé si será esto a lo que te refieres.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
Carlos J. Fernandez
Master
Registrado: 27 Oct 2004Mensajes: 574
|
| Publicado: Lun 25 Jun, 2018 5:54 pm Asunto: |
|
|
| Angel escribió: | | Carlos J. Fernandez escribió: | Angel, seguro que es una tontería pero no se como hacerlo
Ahora ese mismo documento que ya tengo en la tabla A y carga perfectamente, tengo que hacer un update de la tabla A a la tabla B
Como podría hacerlo?
Un saludo
Carlos |
No te entiendo. ¿Quieres pasar la infomación de la tabla A a la tabla B? ¿Y las dos tiene la misma definición de campos? Lo que se me ocurre sería algo así:
| Código: | Query->SQL->Text = "UPDATE TablaB SET Campo1 = :Campo1, Campo2 = :Campo2... WHERE IndiceTablaB = :IndiceTablaA";
Query->ParamByName("Campo1")->Value = TablaA->FieldByName("Campo1")->Vale;
etc... |
No sé si será esto a lo que te refieres. |
Justamente eso, pero me da este error:
"Objeto Parameter mal definido. Se proporciono información incompleta o incoherente"
Vaya error jejeje nunca lo había visto.
Que opinas?
Un saludo
Carlos
_________________
Carlos J. Fernandez |
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
