Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-07-2010
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Poder: 21
santiago14 Va por buen camino
Question Generar un PDF con QReport pero, con restricciones de seguridad

Buenas, estoy haciendo que QReport me genere archivos PDF, lo hace bastante bien y no he tenido demasiados problemas en lograrlo. He aquí el código:
Código Delphi [-]
procedure TfrmGestionSumarios.btnEnviarPDFClick(Sender: TObject);
var
  i, m, nro:integer;
  iStr:string;
  direccionExportacion:string;
  aPDF:TQRPDFDocumentFilter;
  csumario:TMDOQuery;
  fecha:TDate;
begin
  if (gSumarios.RowCount > 2) then
  begin
    fecha:=dtFechaSumario.Date;
    aPDF:=nil;
    terminarTransaccion;
    try
      DataModule1.transaccion.StartTransaction;
      consultaSumario(gCodigo_Sucursal, fecha, DataModule1.qSumarios, 'A');
      csumario:=DataModule1.qSumarios;
      direccionExportacion:='C:\SUMARIO_HOY_CASACENTRAL';

      aPDF:=TQRPDFDocumentFilter.Create(direccionExportacion + '.pdf');
      aPDF.SetDocumentInfo('Boletín Oficial', 'Boletín Oficial', 'Sumario', 'Sumario integral');
      with TprnSumarioBoletin.Create(application) do
      begin
        fechaSumario:=dtFechaSumario.date;
        aINI:=archivoINI;
        qSumario:=csumario;

        tiraje:=txtTiraje.Text;
        nroEdicion:=txtNroEdicion.Text;
        fechaImpresion:=Fecha_Servidor;
        Sumario.ExportToFilter(aPDF);
        aPDF.Free;
        Free;
      end; //del with
      DataModule1.transaccion.Commit;
      Application.MessageBox(pchar('Exportación del Sumario a PDF exitosa.'
        + #13#10 + 'No olvide comprimir el archivo antes de enviarlo por Internet.'
        + #13#10 + 'Ubicación: ' + direccionExportacion + '.pdf'),
        'Exportación Sumario a PDF', MB_OK + MB_ICONINFORMATION);
    except
      on e:Exception do
      begin
        aPDF.Free;
        prnSumarioBoletin.Free;
        mErrores(e, '¡Sin exportación!', 'Exportación Sumario a PDF');
      end;
    end; //del try
  end
  else
  begin
     MessageBox(handle,'La Planilla está vacía.', 'Exportación Sumario a PDF',
      MB_OK + MB_ICONERROR);
  end; //del if (grDetPresupOp0.RowCount > 2) ...
end;

Lo que quiero ahora es implementar las medidas de seguridad de los PDF. Es lo que se llama en el cliente PDF "Propiedades del documento --> seguridad"
¿Cómo hago esto en Delphi?
Gracias.

Santiago.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita
 



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
Debe ser elemental pero no encuentro como generar el ejecutable en Delphi,me ayudan? Ale Alvarez Varios 5 05-07-2007 09:22:26
Generar un documento XML (miro en el google pero na) papulo PHP 6 02-10-2006 17:19:45
Generar dos paginas con QReport Rola Impresión 2 28-01-2005 13:10:37
Generar reporte en QReport para obtener totales Obdulia Pérez Impresión 4 04-03-2004 17:53:52


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


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