PDF con problemas

[shoulder]

Hola a veces (pocas) sucede cuando firman un pdf en delphi digitalmente o copio internamente en el servidor archivos pdfs mediante el programa se corrompen, el tema que yo hago la verificacion si tienen 0 bytes, pero hay casos que por ejemplo no es 0 bytes y lo da como correcto y cuando lo quieren abrir con adobe o sumatra esta corrupto. Hay una forma mediante codigo que me devuelva si el archivo esta corrupto?.
Gracias.

[Casimiro Notevi]

Lee la cabecera. Busca por los foros sobre abrir archivo binario.

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

Otra opción es generar un Hash al acabar de generarlo. MD5 por ejemplo.
Cuando quieras comprobarlo una vez subido al servidor, vuelves a generar el HASH (MD5) y te deberías dar lo mismo.

Revisa este y pruébalo (http://delphi.jmrds.com/node/11).

[shoulder]

Gracias por responder, encontre lo que necesitaba en un antiguo Post de Ecfisa y me viene bien para saber si un PDF esta dañado y funciona muy bien. Dejo lo que habia publicado ecfisa.


function IsPDFFile(aFileName: TFileName): Boolean;
var
Buf: array[0..3] of byte;
Stream: TFileStream;
begin
with TFileStream.Create(aFileName, fmOpenRead) do
try
Read(Buf, SizeOf(Buf));
Result:= (Buf[0]=$25) and (Buf[1]=$50) and (Buf[2]=$44) and (Buf[3]=$46);
finally
Free;
end;
end;

[Casimiro Notevi]

Pues eso, leer la cabecera.