Hvordan vise innholdet i en ARJ fil
bidragsyter: SWAG SUPPORT TEAM
Program ReadArj; Bruker Crt, søk;
Const ArjID = # 96 # 234;
Type Array10 = Array [1..10] av Byte; Array12 = Array [1..12] av Char;
AFileRec = Record Filedate: LongInt; CompressedSize: LongInt; originalSize: LongInt; DudSpace: Array10; Filename: Array12 slutten;
Array60K = Array [1..61440] av Byte;
Var Buffer: Array60K;
ArjFileRec: AFileRec;
ArjFileSize, ArjRecStart, ArjRecStop, Index, Indeks1: LongInt;
ArjFile: Fil;
begynne ClrScr; fillChar (Buffer, sizeof (buffer), 0); fillChar (ArjFileRec, sizeof (ArjFileRec), 0); ArjFileSize: = 0; ArjRecStart: = 1; ArjRecStop: = 0; tildele (ArjFile, 'TEST.ARJ'); {$ I-} reset (ArjFile, 1); {$ I +} if (ioresult < > 0), og start Writeln ('Feil ved åpning TEST.ARJ'); stans (255) end; ArjFileSize: = Filstørrelse (ArjFile); Indeks: = ArjFileSize - 50; blockread (ArjFile, Buffer, Index); close (ArjFile); Indeks1: = 50; ArjFileRec.Filename: = ''; While ((Indeks1 + 33) < ArjFileSize) gjør begynne ArjRecStart: = strpos (Buffer [Indeks1], Index, ArjID) + 11; ArjRecStop: = strpos (Buffer [Indeks1 + ArjRecStart + 22], 13, # 0); flytte (Buffer [ArjRecStart + Indeks1], ArjFileRec, (ArjRecStop + 21)); Med ArjFileRec gjøre begynne Writeln ('', Filename: "Compressed size = ', CompressedSize: 6,' originale size = ', originalSize: 6); Filename: = ''; inc (Indeks1, CompressedSize + ArjRecStop + ArjRecStart); des (Index, CompressedSize + ArjRecStop + ArjRecStart) end end end. Anmeldelser