Buscar una cadena en un archivo pdf

[roman]

Empezado por adebonis

Buenos días.

Utilizo Delphi 2007 y necesito verificar la existencia de la cadena "%%EOF" dentro de un archivo pdf, que es el indicativo de final de fichero.

Supongo que seria correcto utilizar TFileStream para leer el archivo pdf, pero no sé cómo llegar a verificar si existe la cadena en el archivo.

Si alguien puede darme alguna idea se lo agradecería.

Adolfo de Bonis.

No me queda claro lo que buscas. La cadena %%EOF, como dices, indica el final del archivo. Entonces, debes buscar al final:

Código Delphi [-]
function EsPdf(Archivo: TFileName): Boolean;
var
  F: TFileStream;
  S: String;

begin
  F := TFileStream.Create(Archivo, fmOpenRead);

  try
    F.Seek(-6, soEnd);
    SetLength(S, 5);
    F.Read(S[1], 5);
  finally
    F.Free;
  end;

  Result := (S = '%%EOF');
end;

¿O se trata de un PDF encajado dentro de otro archivo más grande?

LineComment Saludos