Работа с архивами Delphi

@Alexandr_777 · Регистрация: 20.04.2014

Студворк — интернет-сервис помощи студентам

Здраствуйте.
Кто знает как работать с любыми архивами Delphi.
Такие как Zip, Rar и 7z
Интересует не только создания и распаковка этих архивов но и показ процесса распаковки.
Помогите пожалуйста!

@qwertehok · 21.01.2016, 17:15

ну какой же вы ленивый

@Alexandr_777 · 21.01.2016, 17:25 **[ТС]**

Delphi
1
2
3
4
5
with CreateInArchive(CLSID_CFormat7z) do begin
    OpenFile('Crack.7z');
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('1\');
  end;

Все работает. Но есть еще 1 просьба по усовершенствованию

Delphi
1
2
3
4
5
6
7
8
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
     form1.ProgressBar1.Max := value else
     form1.ProgressBar1.Position := value;
   Result := S_OK;
   //Form1.Label1.Caption:=IntToStr(value)+' %';
 end;

Необходимо чтобы она выводила в процентном коофиценте чтобы можно было показывать процент например на компоненте TGauge

Добавлено через 4 минуты

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

ну какой же вы ленивый

Вообщето я скачал. Я деже вам прописи в Uses показал. Просто типа TSevenZip в этом модулю нету. Такое чуство что вы установили Pas как отдельный компонент через install Component

@qwertehok · 21.01.2016, 17:30

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

Необходимо чтобы она выводила в процентном коофиценте чтобы можно было показывать процент например на компоненте TGaug

вы функцию видите - вот и выводите

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

Такое чуство что вы установили Pas как отдельный компонент через install Component

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

а вы вместо этого лезете на какой-то ОФИЦИАЛЬНЫЙ форум и мой код пытаетесь прикрутить к своему файлу.

ЗЫ этот файл у меня, кстати, есть. написано было что он умеет multivolume распаковывать - но у меня не получилось

@Alexandr_777 · 21.01.2016, 17:46 **[ТС]**

qwertehok, Я сказал вам что в Uses я пропписал но этот код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var 
    i:integer;
    sz:TSevenZip;
begin
  sz:= CreateInArchive(CLSID_CFormatZip);
  with sz do begin
    OpenFile('c:\temp\delphi\House.of.Cards.s01e08.HDTVRip.NewStudio.TV.z01');
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('c:\temp\delphi\');
 
  end;

неработает по причине отсуствия TSevenZip
Я даже незнаю где вы его взяли но в SevenZip TSevenZip отсуствует. Впрочем это уже неважно так как прекрасно работает этот код

Delphi
1
2
3
4
5
with CreateInArchive(CLSID_CFormat7z) do begin
    OpenFile('Crack.7z');
    SetProgressCallback(nil, ProgressCallback);
    ExtractTo('1\');
  end;

Добавлено через 9 минут
При распаковки больших файлов программа зависает. Как это можно исправить?

@qwertehok · 21.01.2016, 17:55

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

неработает по причине отсуствия TSevenZip

прошу прощения, это я второй файл тестировал, переменную не поменял ((((

надо вот так писать

Delphi
1
2
var
    sz:I7zInArchive;

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

При распаковки больших файлов программа зависает.

что значит подвисает?

@Alexandr_777 · 21.01.2016, 18:07 **[ТС]**

ТО И ЗНАЧИТ ПРОГРАММА ПЕРЕСТАЕТ ОТКЛИКАТЬСЯ НА ДЕЙСТВИЯ И НА ЗАГОЛОВКЕ ПОЯВЛЯЕТСЯ НЕОТВЕЧАЕТ И ТАК ПОКА ФАЙЛ НЕ РАСПАКУЕЦЦА

@qwertehok · 22.01.2016, 09:04

вы что-то путаете - распаковка идет в отдельном потоке
я сейчас 2х гиговый фильм распаковывал - форма двигалась и кнопки нажимались

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@Alexandr_777 0 / 0 / 0 Регистрация: 20.04.2014 Сообщений: 57

	Работа с архивами Delphi 21.01.2016, 15:12. Показов 7559. Ответов 26 Метки нет (Все метки) Здраствуйте. Кто знает как работать с любыми архивами Delphi. Такие как Zip, Rar и 7z Интересует не только создания и распаковка этих архивов но и показ процесса распаковки. Помогите пожалуйста! 0

@Alexandr_777 0 / 0 / 0 Регистрация: 20.04.2014 Сообщений: 57
	21.01.2016, 18:07 [ТС]
	ТО И ЗНАЧИТ ПРОГРАММА ПЕРЕСТАЕТ ОТКЛИКАТЬСЯ НА ДЕЙСТВИЯ И НА ЗАГОЛОВКЕ ПОЯВЛЯЕТСЯ НЕОТВЕЧАЕТ И ТАК ПОКА ФАЙЛ НЕ РАСПАКУЕЦЦА 0

@qwertehok 6003 / 4578 / 1096 Регистрация: 29.08.2013 Сообщений: 28,270 Записей в блоге: 3
	22.01.2016, 09:04
	вы что-то путаете - распаковка идет в отдельном потоке я сейчас 2х гиговый фильм распаковывал - форма двигалась и кнопки нажимались 0