Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

ZLib, распаковка нескольких файлов   Найти похожие ветки 

← →
Байрам   (2006-07-06 12:18) [0]

Есть желание работать с новым форматом 2007го MSOffice,
как известно его файлы, допустим .docx, представляют собой zip архив, в котором хранятся xml файлы,
я хочу, используя delphi"ий ZLib, распаковать этот архив,
но никак не могу найти в инете рабочий пример.
Этот не канает:
procedure DecompressFiles(const Filename, DestDirectory : String);
var
 dest, s : String;
 decompr : TDecompressionStream;
 infile, outfile : TFilestream;
 i, l, c : Integer;
begin
// IncludeTrailingPathDelimiter (D6/D7 only)
 dest := IncludeTrailingPathDelimiter(DestDirectory);
 infile := TFileStream.Create(Filename, fmOpenRead);
 try
   { number of files }
   infile.Read(c, SizeOf(c));
   for i := 1 to c do
   begin
     { read filename }
     infile.Read(l, SizeOf(l));
     SetLength(s, l);
     infile.Read(s[1], l);
     { read filesize }
     infile.Read(l, SizeOf(l));
     { decompress the files and store it }
     s := dest + s; //include the path
     outfile := TFileStream.Create(s, fmCreate);
     decompr := TDecompressionStream.Create(infile);
     try
       outfile.CopyFrom(decompr, l);
     finally
       outfile.Free;
       decompr.Free;
     end;
   end;
 finally
   infile.Free;
 end;
end;


s := dest + s -> здесь в не передается имя файла

Заранее спасибо.

---

← →
Dmitrij_K   (2006-07-06 12:26) [1]

ftp://ftp.info-zip.org/pub/infozip/ + http://www.torry.ru/vcl/compress/std/zunz.zip

---

← →
Байрам   (2006-07-06 14:17) [2]

Мне нужна распаковка именно ZLib,
эта библиотека не использует ее
http://www.torry.ru/vcl/compress/std/zunz.zip

а фтп у меня так и не открылась

---

← →
Ketmar ©   (2006-07-06 15:18) [3]

вам нужно знать, что zlib реализует стандарт rfc на сжатие. и что этот стандарт возможно реализовать и другими путями.

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.028 c