Суббота, 11 Ноября 2017 г. 14:48
+ в цитатник
Здравствуйте все.
Решил сегодня воспользоваться классом TZipFile (XE2) для распаковки zip-архива. Особенность задачи в том, что мне не нужно сохранять распакованные данные в файл на диске.
Делаю, примерно, так:
[Code]FDecompessor:=TZipFile.Create;
FDecompessor.UTF8Support:=true;
FDecompessor.Open(FZipStream, zmRead);
for i:=0 to FDecompessor.FileCount - 1 do
begin
FDecompessor.Read(i, ABytes);
FNexZipFile(self, ABytes, Length(ABytes));// Event в обработчике которого ...
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83481
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-