Ver el contenido de un archivo arj

Ver el contenido de un archivo arj

Ver el contenido de un archivo arj : Multi-millones de consejos para hacer su vida mas facil.

Como mostrar el contenido de un archivo ARJ

Colaborador: SWAG EQUIPO de SOPORTE

el Programa de ReadArj
Usos
Crt,
Busqueda

Const
ArjID = #96#234

Tipo
Array10 = Array[1..10] de Bytes
Array12 = Array[1..12] of Char

AFileRec = Record
FileDate : LongInt
CompressedSize : LongInt
originalSize : LongInt
DudSpace : Array10
nombre de archivo : Array12
fin

Array60K = Array[1..61440] de Byte

Var
Bufer : Array60K

ArjFileRec : AFileRec

ArjFileSize,
ArjRecStart,
ArjRecStop,
Indice
Index1 : LongInt

ArjFile : Archivo

begin
ClrScr
fillChar(Buffer, sizeof(Buffer), 0)
fillChar(ArjFileRec, sizeof(ArjFileRec), 0)
ArjFileSize := 0
ArjRecStart := 1
ArjRecStop := 0
assign(ArjFile, & #39 de la PRUEBA.ARJ & #39 )
{$I-}
reset(ArjFile, 1)
{$I }
si (ioresult <> 0) entonces
begin
Writeln( & #39 de Apertura de ERRor de la PRUEBA.ARJ & #39 )
halt(255)
fin
ArjFileSize := Tamaño(ArjFile)
Index := ArjFileSize - 50
blockread(ArjFile, Bufer de Indice)
close(ArjFile)
Index1 := 50
ArjFileRec.Filename := & #39 & #39
Mientras ((Index1 33) < ArjFileSize)
begin
ArjRecStart := StrPos(Buffer[Index1], Indice, ArjID) 11
ArjRecStop := StrPos(Buffer[Index1 ArjRecStart 22], 13, #0)
mover(Buffer[ArjRecStart Index1], ArjFileRec, (ArjRecStop 21))
Con ArjFileRec hacer
begin
Writeln( & #39 & #39 ,nombre de archivo, & #39 tamaño Comprimido = & #39 , CompressedSize:6,
& #39 tamaño original = & #39 , originalSize:6)
FileName := & #39 & #39
inc(Index1, CompressedSize ArjRecStop ArjRecStart)
dec(Indice, CompressedSize ArjRecStop ArjRecStart)
fin
fin
final.