Как добавить несколько файлов в ZIP архив в TZipForce?

[artemavd]

Сабж. Делаю так:

var
 i: integer;
begin
  if not FileExists(ExtractFilePath(Application.ExeName) + DateToStr(Now) + '.zip') then
  begin
   with Form1.ZipForge1 do
   begin
     BaseDir:=ExtractFileDir(Application.ExeName); //где хранить архив
     SpanningOptions.VolumeSize:=vsAutoDetect; //делаем один архив
     SpanningMode:=smSpanning; //раздельный
     FileName:=ExtractFilePath(Application.ExeName) + DateToStr(Now) + '.zip'; //мой архив
     OpenArchive(fmCreate); //открываем архив
     for i := 0 to Form29.sListBox1.Items.Count - 1 do
     begin
      AddFiles(ExtractFilePath(Application.ExeName) + Form29.sListBox1.Items[i]);
     end;
     CloseArchive;
   end;
  end;
end;

но выводится ошибка, что:

[eoln]

Давно не использовал ZipForge. Раньше он не умел архивировать папки, умел только файлы. Сейчас не знаю, вроде тоже не умеет. Поэтому если в sListBox1 не только файлы, то ошибка должна возникать.

[artemavd]

В sListBox только файлы. Вернее полные пути к ним. Я не папки архивирую, а файлы. Файлы же он наверное может несколько штук архивировать?

[eoln]

Тогда не скажу в чём дело. Глянул свои старые исходники, там также всё. В гугле нашёл описание

ошибка: "Multiple transactions are not supported for multi-volume archives - Native error: 00062" при разделении архива на тома;

Наверное, в этом проблема (может файл большой).

[astecenko]

artemavd, Ваш код у меня с ZipForge v.6.0 работает нормально. Единственно что пришлось изменить SpanningMode на smNone так как у меня нету флоппика.

В sListBox только файлы. Вернее полные пути к ним. Я не папки архивирую, а файлы. Файлы же он наверное может несколько штук архивировать?

Это зачем же там полные пути? Вы же определяете директорию исполняемого модуля (ExtractFilePath(Application.ExeNam e)) и к ней уже прибавляете имена файлов. Если в листбоксе полные пути то понятно что таких файлов не существует, поэтому может быть и ошибка.

[artemavd]

Не, эта ошибка не связана с тем, что не может не существовать файлов. Проверено на примере одного файла. Попробую изменить режим на smNone

[astecenko]

При smSpanning ошибку не выдавало, появлялось сообщение "Insert removable disk #1"

ExtractFilePath(Application.ExeName) + DateToStr(Now) + '.zip'

Наверное лучше вынести в отдельную переменную

[artemavd]

Наверное лучше вынести в отдельную переменную

Та не, это не имеет значение. Сам по себе архив прекрасно создается. Просто файлы не добавляются по нескольку штук в него.

[astecenko]

Хм, странно.
При SmNone
Если в листбоксе просто список имен файлов расположенных в одной директории с программой, например
файл1.txt
файл2.txt

Вашим кодом всё прекрасно добавляется - проверенно лично (D7+ZipForge6.0)