Komprimierte Dateiformate

Komprimierte Dateiformate

Komprimierte Dateiformate : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Hier ist ein Programm, das meisten der wichtigen Archivtypen bestimmen wird.

Autor: SWAG-SUPPORT-TEAM

{
> Ich Suche Beschreibungen der Formate von Headern in
> alle gängigen Archivdateien, ie. ZIP. D ' ARC. LZH. ARJ, etc.
> Ich möchte nur die Header von all diesen lesen können
> Archive, nicht unbedingt bearbeitet werden. Wer weiß
> wo kann solche hatte?

Hier ist ein Programm, das meisten der wichtigen Archivtypen bestimmen wird.
Ich habe ein paar Ergänzungen gemacht, aber die ursprüngliche Quelle wurde von
eine Nachricht auf das Echo... seitdem den ursprünglichen Namen des Autors
verloren. Um das Verfahren zu verwenden, rufen Sie es wie folgt:
Wenn GetArcType ('filename.ext') = Zip dann...
}

Verwendet
DOS;

Typ
ArcType = (FileError, unbekannt, Zip, Zoo, Arc, Lzh, Pak, Arj);

Funktion GetArcType(FName: String): ArcType;
Var
ArcFile: Datei Byte;
Ich: Integer;
Gat: ArcType;
c: [1..5] Array von Byte;
beginnen
Ordnen Sie zu (ArcFile, FName);
{$I-}
Reset(ArcFile);
{$I+}
Wenn IOResult <> 0 dann
Gat: = FileError
sonst
Wenn FileSize(ArcFile) < 5 dann
Gat: = FileError
sonst
beginnen
Für i: = 1 bis 5 zu tun
Lesen (ArcFile, c[i]);
Close(ArcFile);
Wenn ((c [1] = $50) und (c [2] = $ 4 b)) dann
Gat: = Zip
sonst
Wenn ((c [1] = $60) und (c [2] = $EA)) dann
Gat: = Arj
sonst
Wenn ((c [4] = $6c) und (c [5] = $68)) dann
Gat: = Lzh
sonst
Wenn ((c [1] = $5a) und (c [2] = $4f) und (c [3] = $4f)) dann
Gat: = Zoo
sonst
Wenn ((c [1] = $1a) und (c [2] = $08)) dann
Gat: = Arc
sonst
Wenn ((c [1] = $1a) und (c [2] = 0 $b)) dann
Gat: = Pak
sonst
Gat: = unbekannt;
Ende;

GetArcType: = Gat;
Ende;

Var
Dateiname: String;
Rückfahrt: ArcType;
{ArcType = (FileError, unbekannt, Zip, Zoo, Arc, Lzh, Pak, Arj)}

beginnen
Wenn ParamCount = 1 then
beginnen
FileName: = ParamStr(1);
Zurück: = GetArcType(FileName);
Fall zurück, der
ARJ: Writeln (FileName, '= ARJ');
PAK: Writeln (FileName, '= PAK');
LZH: Writeln (FileName, '= LZH');
ARC: Writeln (FileName, '= ARC');
ZOO: Writeln (FileName, '= ZOO');
PLZ: Writeln (FileName, '= ZIP');
UNBEKANNT: Writeln (FileName, '= unbekannt!')
sonst
Writeln ('Datei nicht gefunden');
Ende;
Ende {IF}
sonst
Writeln ('keine Parameter');
Ende.