Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   PDF con problemas (https://www.clubdelphi.com/foros/showthread.php?t=88281)

shoulder 14-05-2015 01:57:09

PDF con problemas
 
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 Noteví 14-05-2015 09:14:11

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

Neftali [Germán.Estévez] 14-05-2015 14:32:04

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.

shoulder 15-05-2015 15:10:37

Pdf
 
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.

Código Delphi [-]
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 Noteví 15-05-2015 17:53:16

Pues eso, leer la cabecera.


La franja horaria es GMT +2. Ahora son las 06:05:18.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi