SevenZIP: как указать папку, которую нужно архивировать?

@ptytb1 · Регистрация: 03.06.2015

Всем доброго времени суток, разбираюсь с SevenZIP библиотекой. для архивации я делаю так:

Delphi

arhives:=TStringList.create;
arhives.add('C:\WRPS\WRandPS.exe');
arhives.add('C:\WRPS\libeay32.dll');
arhives.add('C:\WRPS\libmysql.dll');
arhives.add('C:\WRPS\ssleay32.dll');
arhives.add('C:\WRPS\zlib1.dll');
Arch := CreateOutArchive(CLSID_CFormat7z);
  for i:=0 to arhives.count-1 do
   begin
     Arch.AddFile(arhives[i], ExtractFileName(arhives[i]));
   end;
arhives.Clear;
arhives.add('C:\WRPS\data\sh1');
arhives.add('C:\WRPS\data\sh2');
  for i:=0 to arhives.count-1 do
   begin
     Arch.AddFile(arhives[i], 'data\'+ExtractFileName(arhives[i]));
   end;
    SetCompressionLevel(Arch, 5);
    Arch.SaveToFile('C:\WRPS'+edit1.Text+'.7z');

подскажите как можно указать только папку содержимое которой нужно засунуть в архив (эта папка всегда на одном месте, то есть выбор папки диалоговым окном не поможет)

@HiredKiller · 28.10.2016, 11:38

с библиотекой не работал, так что не в курсе как паковать папку
но код можно сократить вот так(если много файлов в папке)
первый попавшийся код с гугла - получение списка файлов

Delphi

var
  tsr : tsearchrec;
begin
  if FindFirst('C:\WRPS\' + '*.*',faAnyFile,tsr) = 0 then
    repeat
      arhives.add(tsr.name);
    until FindNext(tsr) <> 0;
  FindClose(tsr);
end;

Добавлено через 7 минут
в примерах есть такой вариант

Delphi

var
  SevenZip: TSevenZip;
begin
  SevenZip := TSevenZip.Create(nil);
  try
    SevenZip.AddOptions := [AddRecurseDirs];
    SevenZip.AddRootDir := ExtractFilePath(Application.EXEName) + 'test';
    SevenZip.LZMACompressStrength := NORMAL;
    SevenZip.SZFileName := 'test.7z';
    SevenZip.Files.Clear;
    SevenZip.Files.AddString(ExtractFilePath(Application.EXEName) + 'test\*.*');
    SevenZip.Add;
  finally
    SevenZip.Free;
  end;

@ptytb1 · 28.10.2016, 12:48 **[ТС]**

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

первый попавшийся код с гугла - получение списка файлов

в том то и дело, что не так все просто, Arch.AddFile('Путь до файла', 'путь внутри архива'); если в путь внутри архива поставить 'C:\WRPS\WRandPS.exe', то в архиве будет ссылка на диск C, и папка WRPS, c файлом WRandPS.exe

Добавлено через 58 минут
то есть у меня должно быть 2 списка к примеру таких:
путь к файлу-------------------путь в архиве
'C:\WRPS\WRandPS.exe'------'WRandPS.exe'
'C:\WRPS\libsql.dll'------------'libsql.dll'
'C:\WRPS\data\sh1.x'---------'data\sh1.x'
'C:\WRPS\data\sh2.x'---------'data\sh2.x'

@HiredKiller · 28.10.2016, 14:32

в чем проблема? получите полный путь к файлам и удалите вашу директорию C:\WRPS\ с полученых строк
у вас выйдет 2 списка один - полный путь, другой-путь относительно директории C:\WRPS\

@qwertehok · 28.10.2016, 14:34

Delphi

var
  FileList : TStringDynArray;
  s : string;
begin
  FileList := TDirectory.GetFiles('c:\temp\', '*.xml', TSearchOption.soAllDirectories);
  for s in FileList do ListBox1.items.Add(s);

и получите полный путь к файлам. с помощью ExtractFileName отделите зерна )

@ptytb1 · 28.10.2016, 14:47 **[ТС]**

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

получите полный путь к файлам и удалите вашу директорию

Delphi

arhives:=TStringList.create;
file:=TStringList.create;
file.add('C:\WRPS\WRandPS.exe');
file.add('C:\WRPS\libeay32.dll');
file.add('C:\WRPS\libmysql.dll');
file.add('C:\WRPS\ssleay32.dll');
file.add('C:\WRPS\zlib1.dll');
file.add('C:\WRPS\data\sh1');
file.add('C:\WRPS\data\sh2');
arhives.add('C:\WRPS\WRandPS.exe');
arhives.add('C:\WRPS\libeay32.dll');
arhives.add('C:\WRPS\libmysql.dll');
arhives.add('C:\WRPS\ssleay32.dll');
arhives.add('C:\WRPS\zlib1.dll');
arhives.add('C:\WRPS\data\sh1');
arhives.add('C:\WRPS\data\sh2');
arhives.text:=StringReplace(arhives.text,'C:\WRPS\','',[ReplaceAll]);
Arch := CreateOutArchive(CLSID_CFormat7z);
  for i:=0 to arhives.count-1 do
   begin
     Arch.AddFile(arhives[i], file[i]);
   end;
    SetCompressionLevel(Arch, 5);
    Arch.SaveToFile('C:\WRPS'+edit1.Text+'.7z');

вот так? или я снова туплю и не вижу какого то простого решения?

@HiredKiller · 28.10.2016, 15:51

примерно так, но не обязательно добавлять пути файлов вручную, проще использовать процедуру поиска файлов в директории

@ptytb1 · 31.10.2016, 08:05 **[ТС]**

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

не обязательно добавлять пути файлов вручную

в той папке есть еще сторонние файлы которые не нужны, ну и всякий лут создаваемый программой, а так все работает, большое спасибо

@ptytb1 1 / 1 / 2 Регистрация: 03.06.2015 Сообщений: 101
	28.10.2016, 12:48 [ТС]	3
	Сообщение от HiredKiller первый попавшийся код с гугла - получение списка файлов в том то и дело, что не так все просто, Arch.AddFile('Путь до файла', 'путь внутри архива'); если в путь внутри архива поставить 'C:\WRPS\WRandPS.exe', то в архиве будет ссылка на диск C, и папка WRPS, c файлом WRandPS.exe Добавлено через 58 минут то есть у меня должно быть 2 списка к примеру таких: путь к файлу-------------------путь в архиве 'C:\WRPS\WRandPS.exe'------'WRandPS.exe' 'C:\WRPS\libsql.dll'------------'libsql.dll' 'C:\WRPS\data\sh1.x'---------'data\sh1.x' 'C:\WRPS\data\sh2.x'---------'data\sh2.x' 0

@HiredKiller 81 / 81 / 39 Регистрация: 17.02.2016 Сообщений: 464
	28.10.2016, 14:32	4
	в чем проблема? получите полный путь к файлам и удалите вашу директорию C:\WRPS\ с полученых строк у вас выйдет 2 списка один - полный путь, другой-путь относительно директории C:\WRPS\ 0

@HiredKiller 81 / 81 / 39 Регистрация: 17.02.2016 Сообщений: 464
	28.10.2016, 15:51	7
	примерно так, но не обязательно добавлять пути файлов вручную, проще использовать процедуру поиска файлов в директории 0

@ptytb1 1 / 1 / 2 Регистрация: 03.06.2015 Сообщений: 101
	31.10.2016, 08:05 [ТС]	8
	Сообщение от HiredKiller не обязательно добавлять пути файлов вручную в той папке есть еще сторонние файлы которые не нужны, ну и всякий лут создаваемый программой, а так все работает, большое спасибо 0

Опции темы