Ver Mensaje Individual
  #4  
Antiguo 31-10-2017
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Cita:
Empezado por DarkSton Ver Mensaje
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.

Cita:
Empezado por DarkSton Ver Mensaje
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;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita