ZIP в D7

[Kronos913]

Как добавить модуль для zip-архивов в D7?
И какие основные процедуры для создания архива?

[phomm]

Можно взять компонент ZipForge
Вот пример использования
В современных (и даже есть бесплатная) дельфи оно уже и встроенное есть

[Kronos913]

Почему-то антивирус постоянно прерывает загрузку...

[Kronos913]

Возникла проблема

    Zip := TZipForge.Create(nil);
    Zip.FileName := s;
    Zip.OpenArchive;
    with Zip do begin
      if (FindFirst('*.*', ArchiveItem, faAnyFile)) then begin
        repeat
          Memo1.Lines.Add(ArchiveItem.FileName);
        until not(FindNext(ArchiveItem));
      end;
    end;

Выводятся в мемо все файлы, включая файлы в папках, но файлы в папках выводятся БЕЗ ПУТИ, только имя файла

Как решить проблему?

[BDA]

TZFArchiveItem

FileName is a name of the file stored within the archive.

StoredPath is a path to this file inside the archive.

[Kronos913]

Это окно означает, что у меня какая-то триал-версия, или нет?
Я могу использовать модуль в программе, не опасаясь, что через время что-то перестанет работать?

[Kronos913]

И какой самый прямой способ разархивировать файл?
1. Один файл
2. Все файлы архива

[Kronos913]

А как добавить файл в архив со сменой имени?
Zip.AddFiles - добавляет файл с его изначальным именем

А как сделать так, чтобы файл перемещался?

[Kronos913]

Процедура через костыль со стримом
Есть ли лучше вариант?

Function NewZip(const ZipName: string; Files, NewNames:TStrings):boolean;
var
  ArchiveItem: TZFArchiveItem;
  Zip: TZipForge;
  i:Integer;
  st:TMemoryStream;
Begin
  i:=Min(Files.Count, NewNames.Count);
  If i>0 then begin
    try
      Zip:=TZipForge.Create(nil);
      Zip.FileName:=ZipName;
      Zip.OpenArchive(fmCreate);

      st:=TMemoryStream.Create;
      While i>0 do begin
        dec(i);
        If FileExists(Files[i]) then begin
          st.LoadFromFile(Files[i]);
          zip.AddFromStream(NewNames[i], st);
          st.Clear;
        end;
      End;
      Result:=True;
    except
      Result:=false;
    end;
    Zip.Free;
    st.Free;
  End else Result:=false;
End;

[BDA]

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

не опасаясь, что через время что-то перестанет работать?

Вроде в тексте ничего нет про отключение функциональности, но программа только для личного пользования.

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

И какой самый прямой способ разархивировать файл?
1. Один файл

Не нашел подходящего примера.

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

И какой самый прямой способ разархивировать файл?
2. Все файлы архива

Unzip a ZIP file in Delphi code sample

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

А как добавить файл в архив со сменой имени?

В мануале советуют использовать OnStoreFile.