Архивация

[Mitron]

Скажите, как програмно создать ZIP-архив и поместить в него файлы?

[BOBAH13]

Сам недавно искал решение, находил только платные компоненты, уже даже решил писать сам по формату zip но тут нашел вот этот компонент, его именуют как Abbrevia, у меня еще приписка, походу его версия, 305 Beta6. Да и честно, если бы Вы соизволили потрудиться потратить минут 40 ( У меня ушло ) в поисках компонент данной задачи вы бы его и сами нашли Так что делаем выводы...

[Mitron]

ссылку не подскажете, а то уж сил нет искать ...

[BOBAH13]

Как нистранно он лежит на torry.net в разделе compress... так что это еще раз доказыват то что я сказал выше

[mihali4]

Хороший набор для архивирования/разархивирования:
Вложение 2670
Очень просто пользоваться...

[Alar]

Сообщение от BOBAH13

Как нистранно он лежит на torry.net в разделе compress... так что это еще раз доказыват то что я сказал выше

Было бы очень хорошо, если бы вы его прикрепили к форуму. спасибо.

[Stilet]

А что мешает просто запустить ZIP из командной строки средствами WinExec?

[mihali4]

Сообщение от Stilet

А что мешает просто запустить ZIP из командной строки средствами WinExec?

А если у юзера ZIP не установлен?

[Mitron]

Использую VCLZip, почему в архив помещается фаил во вложениях
(\user\111\qwerty.jpg), а не просто qwerty.jpg?
Как избавиться от этих вложений? Файлы помещаемые в архив могут находиться в разных директориях, и результат должен содержать только файлы.

procedure TMainForm.PackBtnClick(Sender: TObject);
var
  i: integer;
  list: string;
  arch: string;
begin
   //смотрим какую дерикторию хочет архивировать пользователь
   for i:=0 to  FileList.Items.Count-1 do
   if  FileList.Items[i].Selected then
   begin
     ArchDir(FileList.Folders[i].PathName);
     InputQuery('Создание архива','Введите название архива :',arch);
     if arch='' then
     begin
       ShowMessage('Необходимо ввести название архива');
       Abort;
     end else
     begin
       Zip.ZipName:=FileList.RootFolder.PathName+'\'+arch;
       ArchDir(FileList.Folders[i].PathName);
       // выбор уровня паковки
       case  LevelGroup.ItemIndex of
         0: Zip.PackLevel:=3 ;
         1: Zip.PackLevel:=6;
         2: Zip.PackLevel:=9;
         4: Zip.PackLevel:=12;
       end;


       Zip.Zip;
       ShowMessage('Архив сформирован.');
       FilesList.Refresh;
     end;   
   end;
end;

[mihali4]

почему в архив помещается фаил во вложениях
(\user\111\qwerty.jpg), а не просто qwerty.jpg?

А я вообще не понимаю, что вы делаете...
Вот вам примерчик, только что состряпал:

procedure TForm1.Button2Click(Sender: TObject);
begin
VCLZip1.DestDir:='D:\_Sernum\';
VCLZip1.FilesList.Clear;
VCLZip1.FilesList.Add('D:\_Sernum\Sernum.exe');
VCLZip1.FilesList.Add('D:\_Sernum\Proba.exe');
VCLZip1.ZipName:='MyZip.zip';
VCLZip1.Zip;
end;

В архиве только два файла и ничего больше...