Inhalt einer Arj-Datei anzeigen

Inhalt einer Arj-Datei anzeigen

Inhalt einer Arj-Datei anzeigen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Gewusst wie: Anzeigen des Inhalts einer Datei ARJ

Autor: SWAG-SUPPORT-TEAM

Program ReadArj;
Verwendet
CRT,
Suche;

Const
ArjID = #96 #234;

Typ
Array10 = Array [1..10] Byte;
Array12 = Array [1..12] of Char;

AFileRec = Datensatz
Datum: LongInt;
CompressedSize: LongInt;
OriginalSize: LongInt;
DudSpace: Array10;
Dateiname: Array12
Ende;

Array60K = Array [1..61440] Byte;

Var
Puffer: Array60K;

ArjFileRec: AFileRec;

ArjFileSize,
ArjRecStart,
ArjRecStop,
Index,
Index1: LongInt;

ArjFile: Datei;

beginnen
ClrScr;
FillChar (Buffer, sizeof(Buffer), 0);
FillChar (ArjFileRec, sizeof(ArjFileRec), 0);
ArjFileSize: = 0;
ArjRecStart: = 1;
ArjRecStop: = 0;
zuweisen (ArjFile, ' TEST. ARJ');
{$I-}
Zurücksetzen Sie (ArjFile, 1);
{$I+}
Wenn (Ioresult <> 0) dann
beginnen
Writeln (' Fehler beim Öffnen des TEST. ARJ');
halt(255)
Ende;
ArjFileSize: = Filesize(ArjFile);
Index: = ArjFileSize - 50;
Blockread (ArjFile, Puffer, Index);
Close(ArjFile);
Index1: = 50;
ArjFileRec.Filename: = ' ';
Während ((Index1 + 33) < ArjFileSize) tun
beginnen
ArjRecStart: = StrPos (Buffer [Index1], Index, ArjID) + 11;
ArjRecStop: = StrPos (Puffer [Index1 + ArjRecStart + 22], 13, #0);
bewegen Sie (Puffer [ArjRecStart + Index1], ArjFileRec, (ArjRecStop + 21));
Mit ArjFileRec-do
beginnen
Writeln (' ', FileName, ' komprimierte Größe = ', CompressedSize:6,
'Originalgröße = ', OriginalSize:6);
FileName: = ' ';
Inc (Index1, CompressedSize + ArjRecStop + ArjRecStart);
Dec (Index, CompressedSize + ArjRecStop + ArjRecStart)
Ende
Ende
Ende.