Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Citanje poslednjih bajtova iz fajla...

[es] :: Pascal / Delphi / Kylix :: Citanje poslednjih bajtova iz fajla...

[ Pregleda: 1658 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

sandra.bg86

Član broj: 307868
Poruke: 5



+41 Profil

icon Citanje poslednjih bajtova iz fajla...26.03.2014. u 13:37 - pre 122 meseci
Kako na najbolji/najbrzi nacin da proverim da li su poslednja dva bajta u nekom fajlu npr 0x15 i 0x24 i ako jesu kako ih ukloniti iz fajla?
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Citanje poslednjih bajtova iz fajla...26.03.2014. u 13:59 - pre 122 meseci
Code:
procedure RemoveLastTwoBytes(const AFile: String);
var
  fstream: TFileStream;
  buffer : array[0..1] of Byte;
begin
  fstream := TFileStream.Create(AFile, fmOpenReadWrite or fmShareDenyNone);
  try
    fstream.Seek(-2, soFromEnd);
    fstream.ReadBuffer(buffer[0], 2);
    if (buffer[0] = $15) and
       (buffer[1] = $24) then
      fstream.Size := fstream.Size - 2;
  finally
    fstream.Free;
  end;
end;

 
Odgovor na temu

sandra.bg86

Član broj: 307868
Poruke: 5



+41 Profil

icon Re: Citanje poslednjih bajtova iz fajla...26.03.2014. u 19:45 - pre 122 meseci
Sjajno, hvala puno!
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Citanje poslednjih bajtova iz fajla...

[ Pregleda: 1658 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.