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; 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; end
else
begin
MessageBox(handle,'La Planilla está vacía.', 'Exportación Sumario a PDF',
MB_OK + MB_ICONERROR);
end; 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.