leer texto o ver foto dentro de un rar

[DarkSton]

hola amigos de clubdelphi bueno quiero saver si hay una forma de leer un texto dentro de un rar ejemplo:
tengo un archivo test.rar con clave y dentro del rar hay un texto o una foto , hay forma de leer el texto o ver la foto desde un formen delphi ?,

[[movorack]]

Hola, Si se puede.

En la clase TZipFile tienes la función Read y puedes llamarla con un Stream

Código Delphi [-]
procedure Read(const FileName: string; out Bytes: TBytes); overload;
procedure Read(Index: Integer; out Bytes: TBytes); overload;
procedure Read(const FileName: string; out Stream: TStream; out LocalHeader: TZipHeader); overload;
procedure Read(Index: Integer; out Stream: TStream; out LocalHeader: TZipHeader); overload;

Para listar los archivos dentro, debes abrir el Zip y recorrerlo

Código Delphi [-]
Zip := TZipFile.Create;
try
  Zip.Open(ZipFileName, TZipMode.zmRead);
  For FileName in Zip.FileNames do
  begin
    //Acá validas el archivo que quieres leer y ejecutas tu rutina dependiendo del tipo de archivo. 
  end;
finally
  Zip.Close;
  FreeAndNil(Zip);
end;

[DarkSton]

esto es para delphi7 me podrias dejas un ejemplo dentro del
begin
//Acá validas el archivo que quieres leer y ejecutas tu rutina dependiendo del tipo de archivo.
end;

[[movorack]]

Empezado por DarkSton

esto es para delphi7

Estoy muy apenado contigo no haber tenido en cuenta las versiones anteriores y ponerte a comentar nuevamente para que especifiques el IDE con el que trabajas. De todos modos, podrías revisar la ZipMaster a ver si con esa librería puedes hacer una lectura en memoria.

Empezado por DarkSton

me podrias dejas un ejemplo dentro del
begin
//Acá validas el archivo que quieres leer y ejecutas tu rutina dependiendo del tipo de archivo.
end;

Claro no faltaba mas. Aunque el ejemplo es con TZipFile. Tendrías que ver como se hace con la librería que decidas usar y sea compatible con D7

Código Delphi [-]
Zip := TZipFile.Create;
try
  Zip.Open(ZipFileName, TZipMode.zmRead);
  For FileName in Zip.FileNames do
  begin
    if ExtractFileExt(FileName).Trim.ToUpper = '.TXT' then
    begin
      TempStringList := TStrings.Create;
      try
        Zip.Read(FileName, AStream, ALocalHeader);
        TempStringList.LoadFromStream(AStream);
        ShowMessage(TempStringList.Text);
      finally
        FreeAndNil(TempSTringList);
      end;
    end;
  end;
finally
  Zip.Close;
  FreeAndNil(Zip);
end;

[DarkSton]

El error es mio por no decir la version de delphi que estoy usando ,hoy lo probare .