Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Leer un QRP y aplicar filtro PDF (https://www.clubdelphi.com/foros/showthread.php?t=77271)

Henryoh 09-01-2012 19:19:20

Leer un QRP y aplicar filtro PDF
 
Hola amigos del foro, le mando los mejores deseos para este año 2012, que se cumplan todas sus metas y todos sus deseos

Les platico que tengo una situación que me ha causado algunos dolores de cabeza.

Estoy creando una clase que debe recibir un archivo QRP, creado previamente desde una aplicación Delphi con QuickReport

El problema es el siguiente: En la clase recibo el archivo QRP, y al intentar cargarlo se queda colgado y no hace nada, no envia ningun error, pero tampoco carga el archivo QRP a la memoria, he buscado alguna solucion pero creo que esto no es algo muy comun.

lo he intentado de estas dos formas y en las dos hace lo mismo, se cuelga y no envia ningun mensaje

Código:


function TIntegraArchivoDig.ProcesaQRP(ArchQRP: String): boolean;
var
  QRFiltro : TQuickRep;
  QRPDFFilter : TQRPDFDocumentFilter;
  QRPrinter : TQRPrinter;
begin
  //Instanciamos el objeto QuickReport para poder cargar el archivo
  QRFiltro.Prepare;
  QRFiltro.Printer.Load(ArchQRP);
  QRFiltro.Preview;
end;


Código:


function TIntegraArchivoDig.ProcesaQRP(ArchQRP: String): boolean;
var
  QRFiltro : TQuickRep;
  QRPDFFilter : TQRPDFDocumentFilter;
  QRPrinter : TQRPrinter;
begin
  with TQRPHandler.create do
  begin
    QRPDFFilter := TQRPDFDocumentFilter.Create('C:\Proyectos\IntegraDig\Pruebas\Prueba.pdf');
    QRFiltro := TQuickRep.Create(nil);
    QRFiltro.Prepare;
    QRFiltro.QRPrinter := TQRPrinter.Create(QRFiltro);
    QRFiltro.QRPrinter.Load(ArchQRP);
    QRFiltro.Preview;
    QRFiltro.ExportToFilter(QRPDFFilter);
  end;

espero puedan ayudarme.

De Antemano agradezo la atención.


La franja horaria es GMT +2. Ahora son las 16:23:10.

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