Afficher le contenu d'un fichier arj

Afficher le contenu d'un fichier arj

Afficher le contenu d'un fichier arj : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour afficher le contenu d'un fichier ARJ

Contributeur: SWAG EQUIPE de SUPPORT

le Programme de ReadArj

Crt,
Recherche

Const
ArjID = #96#234

Type
Array10 = Array[1..10] de Byte
Array12 = Array[1..12] de Char

AFileRec = Enregistrement
FileDate : LongInt
CompressedSize : LongInt
originalSize : LongInt
DudSpace : Array10
nom du fichier : Array12
fin

Array60K = Array[1..61440] of Byte

Var
de la memoire Tampon : Array60K

ArjFileRec : AFileRec

ArjFileSize,
ArjRecStart,
ArjRecStop,
Indice
Index1 : LongInt

ArjFile : Fichier

begin
ClrScr
fillChar(Buffer, sizeof(Buffer), 0)
fillChar(ArjFileRec, sizeof(ArjFileRec), 0)
ArjFileSize := 0
ArjRecStart := 1
ArjRecStop := 0
assign(ArjFile, & #39 TEST.ARJ & #39 )
{$I-}
reset(ArjFile, 1)
{$I }
if (ioresult <> 0) then
begin
Writeln( & #39 Erreur lors de l'Ouverture de TEST.ARJ & #39 )
halt(255)
fin
ArjFileSize := Filesize(ArjFile)
Indice := ArjFileSize - 50
blockread(ArjFile, Tampon, Index)
close(ArjFile)
Index1 := 50
ArjFileRec.Filename := & #39 & #39
While ((Index1 33) < ArjFileSize) ne
begin
ArjRecStart := StrPos(Tampon[Index1], Index, ArjID) 11
ArjRecStop := StrPos(Tampon[Index1 ArjRecStart 22], 13, #0)
move(Tampon[ArjRecStart Index1], ArjFileRec, (ArjRecStop 21))
Avec ArjFileRec ne
begin
Writeln( & #39 & #39 ,nom de fichier, & #39 taille Compressee = & #39 , CompressedSize:6,
& #39 taille d'origine = & #39 , originalSize:6)
FileName := & #39 & #39
inc(Index1, CompressedSize ArjRecStop ArjRecStart)
dec(Index, CompressedSize ArjRecStop ArjRecStart)
fin
fin
a la fin.