Ver Mensaje Individual
  #1  
Antiguo 09-01-2012
Avatar de Henryoh
Henryoh Henryoh is offline
Registrado
 
Registrado: ene 2007
Ubicación: Ecatepec, Estado de México
Posts: 4
Reputación: 0
Henryoh Va por buen camino
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.
Responder Con Cita