Ler os 2 primeiros bytes de um aqruivo

Delphi

06/05/2005

ôi,
necessito de ler os dois primeiros bytes de um arquivo de uma forma
rápida, é para detereminar se o aruquivo está compactado!

obrigado


Decimus

Decimus

Curtidas 0

Respostas

Beppe

Beppe

06/05/2005

Olá. . .

Não existe maneira rápida, tem uma só. :wink:

Isto se faz com TStream.

var
  W: Word;
  OK: Boolean;
begin
  OK := False;
  with TFileStream.Create(´C:\nome_do_arquivo.ext´, fmOpenRead or fmShareDenyWrite) do
  try
    if Read(W, SizeOf(W)) = SizeOf(W) then
      OK := W = Assinatura;
  finally
    Free;
  end;
  // Testa a var OK
end;



GOSTEI 0
POSTAR