Cita:
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