Cita:
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.
Cita:
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;