Formatos de archivo comprimidos

Formatos de archivo comprimidos

Formatos de archivo comprimidos : Multi-millones de consejos para hacer su vida mas facil.

Aqui & #39 s un Programa que determinara la mayoria de los principales Tipos de archivo.

Colaborador: SWAG EQUIPO de SOPORTE

{
> I & #39 m buscando descripciones de los formatos de los encabezados
> todos los populares Archivos de almacenamiento, es decir,.ZIP, .ARCO, .LZH, .ARJ, etc.
> yo solo quiero ser capaz de leer los encabezados de todos estos
> los archivos, no necesariamente manipular. Alguien sabe
> donde puede ser?

Aqui & #39 s un Programa que determinara la mayoria de los principales Tipos de archivo.
I & #39 de realizado un par de adiciones, pero la fuente original fue de
un mensaje sobre esta echo...el autor original & #39 s nombre desde entonces ha sido
perdido. Para utilizar el Procedimiento, solo tiene que llamar de la siguiente manera:
Si GetArcType(nombre de archivo.Ext)=Zip, a continuacion,....
}

Usos
Dos

Tipo
ArcType = (FileError, Desconocido, Zip, Zoo, Arco, Lzh, Pak, Arj)

la Funcion de GetArcType(FName : String) : ArcType
Var
ArcFile : Archivo de Bytes
i : Integer
Gat : ArcType
c : Array[1..5] of Byte
begin
Assign(ArcFile, FName)
{$I-}
Reset(ArcFile)
{$I }
si IOResult <> 0 then
Gat := FileError
else
si FileSize(ArcFile) < 5
Gat := FileError
else
begin
For i := 1 hasta 5 hacer
Read(ArcFile, c[i])
Close(ArcFile)
if ((c[1] = $50) y (c[2] = $4B)) entonces
Gat := Zip
else
if ((c[1] = $60) y (c[2] = $EA)
Gat := Arj
else
if ((c[4] = $6c) y (c[5] = $68)), a continuacion,
Gat := Lzh
else
if ((c[1] = $5a) y (c[2] = $4f) y (c[3] = $4f)), a continuacion,
Gat := Zoologico
else
if ((c[1] = $1a) y (c[2] = $08)
Gat := Arc
else
if ((c[1] = $1a) y (c[2] = $0b)) entonces
Gat := Pak
else
Gat := Desconocido
fin

GetArcType := Tag
fin

Var
FileName : String
de Regreso : ArcType
{ArcType = (FileError,Desconocido,Zip,Zoo,Arco,Lzh,Pak,Arj)}

begin
si ParamCount = 1 entonces
begin
FileName := ParamStr(1)
de Regreso := GetArcType(nombre de archivo)
en Caso de Devolucion de
ARJ : Writeln(nombre de archivo, & #39 = ARJ & #39 )
PAK : Writeln(nombre de archivo, & #39 = PAK & #39 )
LZH : Writeln(nombre de archivo, & #39 = LZH & #39 )
ARCO : Writeln(nombre de archivo, & #39 = ARC & #39 )
ZOO : Writeln(nombre de archivo, & #39 = ZOOLOGICO & #39 )
codigo POSTAL : Writeln(nombre de archivo, & #39 = ZIP & #39 )
DESCONOCIDO : Writeln(nombre de archivo, & #39 = Desconocido! & #39 )
else
Writeln( & #39 No se Encuentra el Archivo & #39 )
fin
end {SI}
else
Writeln( & #39 Ningun parametro & #39 )
final.