Contributor: SWAG SUPPORT TEAM
Program ReadArj;
Uses
Crt,
Search;
Const
ArjID = #96#234;
Type
Array10 = Array[1..10] of Byte;
Array12 = Array[1..12] of Char;
AFileRec = Record
FileDate : LongInt;
CompressedSize : LongInt;
originalSize : LongInt;
DudSpace : Array10;
FileName : Array12
end;
Array60K = Array[1..61440] of Byte;
Var
Buffer : Array60K;
ArjFileRec : AFileRec;
ArjFileSize,
ArjRecStart,
ArjRecStop,
Index,
Index1 : LongInt;
ArjFile : File;
begin
ClrScr;
fillChar(Buffer, sizeof(Buffer), 0);
fillChar(ArjFileRec, sizeof(ArjFileRec), 0);
ArjFileSize := 0;
ArjRecStart := 1;
ArjRecStop := 0;
assign(ArjFile, 'TEST.ARJ');
{$I-}
reset(ArjFile, 1);
{$I+}
if (ioresult 0) then
begin
Writeln(' ERRor OPENinG TEST.ARJ');
halt(255)
end;
ArjFileSize := Filesize(ArjFile);
Index := ArjFileSize - 50;
blockread(ArjFile, Buffer, Index);
close(ArjFile);
Index1 := 50;
ArjFileRec.Filename := ' ';
While ((Index1 + 33) < ArjFileSize) do
begin
ArjRecStart := StrPos(Buffer[Index1], Index, ArjID) + 11;
ArjRecStop := StrPos(Buffer[Index1 + ArjRecStart + 22], 13, #0);
move(Buffer[ArjRecStart + Index1], ArjFileRec, (ArjRecStop + 21));
With ArjFileRec do
begin
Writeln(' ',FileName, ' Compressed size = ', CompressedSize:6,
' original size = ', originalSize:6);
FileName := ' ';
inc(Index1, CompressedSize + ArjRecStop + ArjRecStart);
dec(Index, CompressedSize + ArjRecStop + ArjRecStart)
end
end
end.