Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Exportar a PDF con QR 3.6.2 (https://www.clubdelphi.com/foros/showthread.php?t=90279)

Angel.Matilla 09-05-2016 19:44:24

Exportar a PDF con QR 3.6.2
 
Me vais a mandar a la porra como muy cerca. Ya no sé que pasa, pero cada paso adelante que doy el sistema me responde con dos para atrás. Tengo este código:
Código:

#include <qrpdffilt.hpp>
#include <QRExport.hpp>

bool ExportaListado(TQuickRep *Informe, AnsiString cInforme, bool Guardar)
{
    try
    {
          if (UpperCase(ExtractFileExt(cInforme)) == ".PDF")
          {
              TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
              filtro->AddFontMap("Arial:Helvetica");
              filtro->StartConcat();
              Informe->ExportToFilter(filtro);
              filtro->EndConcat();
              delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".RTF")
          {
              TQRRTFExportFilter *filtro = new TQRRTFExportFilter(cInforme);
              Informe->ExportToFilter(filtro);
              delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".TXT")
          {
              TQRAsciiExportFilter *filtro = new TQRAsciiExportFilter(cInforme);
              Informe->ExportToFilter(filtro);
              delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".XLS")
          {
              TQRXLSFilter *filtro = new TQRXLSFilter(cInforme);
              Informe->ExportToFilter(filtro);
              delete filtro;
          }
    }
    catch(...)
    {
          DeleteFile(cInforme);
          Mensaje(1, "Ha tenido lugar un error en la exportación del listado.", "Continuar");
          return false;
    }
    return true;
}

Esta función la uso en varios sitios de lso informes de forma que no me hace falta definir la exportación en cada punto del proyecto; lo hago una vez y luego llamo a esta función. Llevo años usándolo sin ningún problema... ¡Hasta hoy! Ahora, de repente, al compilar el proyecto completo (Ctrl+F9 o Build Project - Alt P + B) me está dando errores en el módulo donde está declarada:
Cita:

Unresolved external 'Qrpdffilt::TQRPDFDocumentFilter::' referenced from C:\Proyecto\Funciones.obj
Curiosamente si compilo sólo (Alt+F9) el módulo en que se encuentra declarada la función ¡no me da ningún error!

¡¡¡SOCORRO!!!


La franja horaria es GMT +2. Ahora son las 06:22:59.

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