delphi , архивация. файл создает, но не открывает

[тигр]

Скачал исходник с delphisources. Файл создает, но неоткрывает. Неизвестный тип архива. Что делать? Прикреплённый файлzlib_comunc_1_.zip (11,36 Кбайт, скачиваний: 83)

[Руслан]

Как вариант - пользоваться 7zip, не изобретая велосипедов без особой необходимости.

[тигр]

7 zip не открывает. Может кто-нибудь дать пример с исходниками , чтобы заархивировать файл с использованием zlib? у меня не работает

Сообщение отредактировано: тигр - 28.05.16, 15:53

[ViktorXP]

так все правильно. сам zlib дает возможность сжать данные.
для того что бы создать zip архив нужно еще дописать заголовок файла.

[Руслан]

Цитата тигр @ 28.05.16, 14:45

7 zip не открывает.

Да нормально он и архивирует, и "открывает"! Из своей программы вызвать 7z вполне просто - drkb в помощь + конечно немного почитать про 7z придется, и вручную проверить командную строку... )

[Fr0sT]

https://github.com/Fr0sT-Brutal/awesome-delphi#compression

[leo]

Цитата тигр @ 28.05.16, 14:45

чтобы заархивировать файл с использованием zlib?

Если нужно заархивировать именно файл(ы), а не данные в памяти, то это можно сделать в несколько строк через винапишные интерфейсы Shell и Folder (импортируются из shell32.dll).

[Руслан]

Цитата leo @ 30.05.16, 11:05

заархивировать именно файл(ы), а не данные в памяти, то это можно сделать в несколько строк через винапишные интерфейсы Shell и Folder (импортируются из shell32.dll).

О, кстати, интересно! Если не затруднит пару строк кода, как средствами самой винды(WinAPI) можно архивировать?

Сообщение отредактировано: Руслан - 30.05.16, 19:14

[leo]

Цитата Руслан @ 30.05.16, 19:14

как средствами самой винды(WinAPI) можно архивировать?

Как известно, винда представляет zip-файл как сжатую zip-папку. Поэтому добавить файл в существующий архив можно простым копированием файла в zip-папку через интерфейс Folder.CopyHere(...). К сожалению, Folder.NewFolder не может создать новый архив (создает обычную папку), поэтому новый пустой архив нужно создавать самому ручками.
Для получения доступа к интерфейсам Shell и Folder нужно создать юнит Shell32_TLB путем импорта библиотеки: import type library -> выбираем в списке Microsoft Shell Controls And Auotomation (библиотека shell32.dll) -> жмем кнопку Create Unit. Дальше все довольно просто:

//uses Shel32_TLB
const
  EmptyZipEnd = packed record //запись конца директории пустого zip-архива
    case integer of
    0: (EndSign:Longint);
    1: (EndBody:array[1..22] of Byte);
    end = (DirSign:$x06054b50);
 
procedure CreateZipFile(const ZipName, FileName :string; ShowProgress :boolean);
var
  f:file;
  sh:Shell;
  fld:Folder;
  Options:integer;
begin
  Options:=0;
  if not ShowProgress then
    Options:=4; //4 = FOF_SILENT ShellAPI.pas
  //создание пустого архива
  if not FileExists(ZipName) and ForceDirectories(ExtractFileDir(ZipName)) then
  begin
    AssignFile(f,ZipName);
    Rewrite(f,1);
    blockwrite(f,EmptyZipEnd,SizeOf(EmptyZipEnd));
    CloseFile(f);
  end;
  //добавление файла в архив
  sh:=CoShell.Create;
  if sh <> nil then
  begin
    fld:=sh.NameSpace(ZipName);
    if fld <> nil then
       fld.CopyHere(FileName, Options);
  end;
end;

Недостатки метода:
1) В отличие от обычного копирования, CopyHere в zip-архив выполняется асинхронно в отдельном потоке. Поэтому, если нужно дождаться завершения операции, то нужны какие-то танцы с бубном для определения момента завершения.
2) По имени в CopyHere можно за раз передать только один файл. Поэтому для помещения в архив сразу нескольких файлов нужно либо использовать интерфейс FolderItems, либо копировать по одному файлу в цикле - но тогда на каждой итерации нужны танцы с бубном по пункту 1)

Сообщение отредактировано: leo - 31.05.16, 06:33

[Fr0sT]

3) Если опция zip папок отключена (я обычно это делаю сразу при первичной настройке), работать не будет