Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/40: Рейтинг темы: голосов - 40, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 29.04.2016
Сообщений: 21
Delphi 6-7

Создание Zip или Rar архива

25.09.2019, 02:01. Показов 8505. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте, не подскажете, как заархивировать папку с файлами и подпапками в делфи 7? не могу разобраться с этим, не знаю, сколько часов потратил(
Спасибо за любую помощь
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.09.2019, 02:01
Ответы с готовыми решениями:

Разархивирование rar архива
Подскажите как разархивировать rar архив с ключами, я пытаюсь сделать так procedure TForm9.Button1Click(Sender: TObject); var a,b:...

Progressbar при распаковке архива zip
Подскажите пожалуйста как сделать при распаковке zip архива работал progressbar

ZipTV создание zip архива
Есть компонент ZipTV Никак не могу понять, как с помощью него создать zip архив. Архивировать должен папку и все файлы в ней, в том...

10
пофигист широкого профиля
4769 / 3204 / 862
Регистрация: 15.07.2013
Сообщений: 18,608
25.09.2019, 02:32
Цитата Сообщение от АвгустГеблер Посмотреть сообщение
Здравствуйте, не подскажете, как заархивировать папку с файлами и подпапками в делфи 7? не могу разобраться с этим, не знаю, сколько часов потратил(
Спасибо за любую помощь
Стесняюсь спросить спросить как и на что вы эти часы потратили.
1
0 / 0 / 0
Регистрация: 29.04.2016
Сообщений: 21
25.09.2019, 03:19  [ТС]
Потратил на самостоятельные попытки сделать это, а также на гугление, еще задавал данный вопрос товарищам своим, которые, к сожалению, не смогли помочь(
0
 Аватар для ZfoxAK
670 / 560 / 242
Регистрация: 26.11.2012
Сообщений: 2,191
25.09.2019, 04:45
Работа с 7zip из командной строки
Синтаксис архиватора WinRAR

Запуск "командной строки"
Delphi
1
ShellExecute(0, 'open', 'WinRAR.exe', 'a -r -ep1 C:\results.rar C:\MyCatalog\*.*',  nil,  SW_SHOW);
0
 Аватар для santero_cock
15 / 13 / 3
Регистрация: 17.07.2019
Сообщений: 114
25.09.2019, 10:20
Лучший ответ Сообщение было отмечено АвгустГеблер как решение

Решение

zipforge заюзай. самое простое решение. никаких внешних dll'ок и тд.

архивация папки :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program ZipFolder;
 
{$APPTYPE CONSOLE}
 
uses
  // Add a ZipForge unit to the program
  SysUtils, ZipForge, Classes;
 
var
  archiver : TZipForge;
 
begin
  // Create an instance of the TZipForge class
  archiver := TZipForge.Create(nil);
  try
  with archiver do
  begin
    // Set the name of the archive file we want to create
    FileName := 'C:\test.zip';
    // Because we create a new archive,
    // we set Mode to fmCreate
    OpenArchive(fmCreate);
    // Set base (default) directory for all archive operations
    BaseDir := 'C:\';
    // Add the c:\Test folder to the archive with all subfolders
    AddFiles('C:\Test\*.*');
    CloseArchive();
  end;
  except
  on E: Exception do
    begin
      Writeln('Exception: ', E.Message);
      // Wait for the key to be pressed
      Readln;
    end;
  end;  
end.
Добавлено через 13 минут
подправил ссылку
скачать
2
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
25.09.2019, 12:03
Цитата Сообщение от santero_cock Посмотреть сообщение
zipforge заюзай. самое простое решение. никаких внешних dll'ок и тд.
скажи, а что означает "Personal Edition" для данного компонента? Его можно использовать бесплатно? Но нельзя использовать в коммерческих продуктах?
0
 Аватар для santero_cock
15 / 13 / 3
Регистрация: 17.07.2019
Сообщений: 114
25.09.2019, 13:24
Цитата Сообщение от mr-Crocodile Посмотреть сообщение
Его можно использовать бесплатно? Но нельзя использовать в коммерческих продуктах?
да. триальных ограничений нет.
1
 Аватар для mr-Crocodile
3053 / 1672 / 657
Регистрация: 19.03.2019
Сообщений: 5,380
25.09.2019, 13:30
Цитата Сообщение от santero_cock Посмотреть сообщение
да. триальных ограничений нет.
понятно. спасибо.
0
0 / 0 / 0
Регистрация: 29.04.2016
Сообщений: 21
25.09.2019, 22:57  [ТС]
Santero cock, спасибо, я им и пользуюсь. Только у меня папка в папке в папке запечатывается в архив и только потом идут файлы(
0
 Аватар для santero_cock
15 / 13 / 3
Регистрация: 17.07.2019
Сообщений: 114
26.09.2019, 08:49
Цитата Сообщение от АвгустГеблер Посмотреть сообщение
Только у меня папка в папке в папке запечатывается в архив и только потом идут файлы(
я тебя не очень понял.

в BaseDir пиши ту же папку что и в addfiles

например:
Delphi
1
2
BaseDir := 'K:\Telegram';
AddFiles('K:\Telegram\*.*');
если не помогло попробуй поиграться с путями

Delphi
1
2
3
4
5
6
Options.StorePath:= ; // одно из значений ниже
 
spNoPath                                     //     No path information stored 
spRelative                                  //       Path Path information stored relatively BaseDir 
spFullPath                                 //        Path information stored relatively disk specified by BaseDir 
spFullPathWithDriveAbsolute        //       path with drive letter stored. Non-standard extension of PKZip format.
Добавлено через 8 минут
а еще лучше скинь исходник.
0
0 / 0 / 0
Регистрация: 29.04.2016
Сообщений: 21
26.09.2019, 16:25  [ТС]
santero_cock,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
   ZipForge1.FileName :=localappdata + 'l.zip';
   ZipForge1.OpenArchive(fmCreate);
   if pass then ZipForge1.AddFiles(log + '\P.txt');
   ZipForge1.AddFiles(log + '\S.jpg');
   ZipForge1.AddFiles(log + '\I.txt');
 
   for i := 1 to names.Count-1 do
   ZipForge1.AddFiles(log + '\Folder4\'+names.Strings[i]);
 
   If hi then ZipForge1.AddFiles(log + '\Folder\Folder2\Hi.txt');
   If CH then ZipForge1.AddFiles(log + '\Folder\Folder1\C.txt');
   If CM then ZipForge1.AddFiles(log + '\Folder\Folder1\M.txt');
   If Co then ZipForge1.AddFiles(log + '\Folder\Folder1\O.txt');
 
    ZipForge1.CloseArchive;
Он упаковывает в архив полный путь до папки лог, начиная с папки Users
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.09.2019, 16:25
Помогаю со студенческими работами здесь

Сравнение времени локального Zip архива с Zip архивом на FTP
Доброго времени суток Нужна помощь!!! Нужно сравнить время локального Zip архива с Zip архивом на FTP и скачать его если дата и время...

Распаковка многотомного zip архива
Приветствую всех! Появилась задача распаковки многотомного архива средствами Delphi. Использую версию XE8, начиная с версии XE2,...

IdCmdTCP и передача zip архива
Добрый день. Реализовываю передачу zip архива с клиента на сервер. Использую IdCmdTCPServer и IdCmdTCPClient. Примерно, что есть сейчас: ...

Создание zip/rar архива
Очень много смотрел, читал и так и не нашёл как создать архив с файлами на c# NET.2.0 Помогите :)

Создание архива rar/zip на C++
Народ, такая ситуация, мне необходимо создать архив rar или zip (желательно rar, запароленный) при помощи консольной программы на C++. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru