Generar un PDF con QReport pero, con restricciones de seguridad

[santiago14]

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.

[Neftali [Germán.Estévez]]

¿Y el componente que estás utilizando(TQRPDFDocumentFilter) no tiene las opciones para hacerlo? ¿Has revisado las propiedades métodos que posee?

Si no las tiene deberás buscar algun otro componente que te permita hacerlo a posteriori; Tal vez en Torry puedas encontrar alguno; Revisa la lista a ver si alguno permite "añadir" la funcionalidad que necesitas.