[Alexandr_57]

На счет 2 примера то чет не разобрался как работает.
На счет первого примера

Код:

[dcc32 Hint] H2161 Warning: Duplicate resource:  Type 24 (user-defined), ID 1; File C:\Users\boris\Downloads\tif\TextInFile.res resource kept; file d:\program files (x86)\embarcadero\studio\18.0\lib\Win32\release\WindowsXP.res resource discarded.

[Alegun]

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

...Так мне сам пример еще запаковки и распаковки файлов 7zip нужно

Запаковка

Код:

...
with TSevenZip.Create(self) do
  begin
   SZFileName := 'test.7z';
   Password :='123';
   Files.AddString('Text.txt');
   Add;
   Free;
  end;
...

распаковка

Код:

...
with TSevenZip.Create(self) do
  begin
   SZFileName := 'test.7z';
   Password :='123';
   Extract(false);
   Free;
  end;
...

[Alexandr_57]

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

Запаковка

Код:

...
with TSevenZip.Create(self) do
  begin
   SZFileName := 'test.7z';
   Password :='123';
   Files.AddString('Text.txt');
   Add;
   Free;
  end;
...

распаковка

Код:

...
with TSevenZip.Create(self) do
  begin
   SZFileName := 'test.7z';
   Password :='123';
   Extract(false);
   Free;
  end;
...

С показом на progressbar и вшить потом информацию. Кстати. TSevenZip у меня как компонент

[Alegun]

Украшательства вешайте в процессе постепенной сборки, это не ходовая часть, а вот лучше вам "кошеки" на ком тренироваться, компиляция из всех вышеприведённых исходников - сборщик и райдер файл-контейнера, причём заметьте, архив открывается в других прогах как картинка, вдруг такое пригодится. Сборка-пятиминутка, на большее нету времени, осенью всегда нет времени из-за работы

З.Ы.

...Кстати. TSevenZip у меня как компонент

А у меня этот пакет вообще не установлен и не будет, ничего лишнего

[Alexandr_57]

Информацимя это не только автор но и название архива.
Имя файла не может быть названием архива. В моей реализации это невозможно. Ну ладно. Ты показал как добавить в файл автора но как его потом читать/
Темболее я буду работать с размерами файлов которые за пределы 1 GB так что программа не должна зависнуть и архивация должна быть показана на ProgressBar
Блин. Я чет не могу никак поставить TSevenZip на RAD XE 10.1
Пишет что не может найти файл 7ZA.DLL хотя все пути прописаны

Необязательно 7Zip можно любой другой архив. Просто компонент для работы нужен тот что поддерживает юникод ибо походу я старую версию 7Zip Source качал

[Alegun]

Что опять не так - проверено электроникой, всё работает на D7, другой СР у меня нет

Система такая, здесь обучающий форум, т.е. пользователи спрашивают друг-дружку про различные варианты, по мере сил и знаний поисковых систем они же и отвечают самсебе, а вот где ваш код с затыкой, одни хотелки, для них у нас есть разделы "Код на шару" и "Работа"... Нет слов :-(

[Alexandr_57]

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

Что опять не так - проверено электроникой, всё работает на D7, другой СР у меня нет

Система такая, здесь обучающий форум, т.е. пользователи спрашивают друг-дружку про различные варианты, по мере сил и знаний поисковых систем они же и отвечают самсебе, а вот где ваш код с затыкой, одни хотелки, для них у нас есть разделы "Код на шару" и "Работа"... Нет слов :-(

То что архивация происходит путем встроенных средств.
А для такого чтобы показать весь прооцесс архивации нужно очень хорошо знать API
Второе яже говорю у меня Файлы в размере болльше GB и что. Фиг поймешь когда они запакуются.
Ну ладно. С зависанием при запаковке смерится можно так как не публично. Но вот с зависанием при распаковке нельзя.
Мне легче воспользоваться сторонним компонентом. Неужели нет компонента для работы с архивами который бы поддерживал юникодный Delphi?

[Alexandr_57]

Короче не важно. Буду искать другие пути. А про это забуду. Все компоненты для работы с архивами заброшены и мой delphi точно не поддерживают

[Alegun]

Да вот он собсно, индикатор

Код:

procedure SevenZip1Progress(Sender: TObject; Filename: WideString;
  FilePosArc, FilePosFile: Int64);
begin
//Показ процесса паковки\распаковки во время работы

//для всего архива
 progressbar1.Position := fileposArc;

//для отдельных файлов
 progressbar2.Position := fileposfile;
 application.ProcessMessages;
end;

Filename кстати, имя обрабатываемого в данный момент файла

З.Ы. 7ZA.DLL должна в папке со сборкрой лежать

[Alexandr_57]

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

Да вот он собсно, индикатор

Код:

procedure SevenZip1Progress(Sender: TObject; Filename: WideString;
  FilePosArc, FilePosFile: Int64);
begin
//Показ процесса паковки\распаковки во время работы

//для всего архива
 progressbar1.Position := fileposArc;

//для отдельных файлов
 progressbar2.Position := fileposfile;
 application.ProcessMessages;
end;

Filename кстати, имя обрабатываемого в данный момент файла

З.Ы. 7ZA.DLL должна в папке со сборкрой лежать

Спасибо. Но проблема в том что сам Delphi не видит 7za
Вообще идея следующая. Создать Autorun который определит какие архивы есть и в зависимости от которых есть прочитает в них информацию и предложит выбор того или иного архива.
После выбора и запуска распоковать он распакует архив определенной программы и запустит. Ну собственно после распаковки запустит установщик программ.
Это не 2 для чего мне нужно а 1 то пригодится в дальнейшем использовании. Но видимо из за проблем юникода это невозможно сделать. Вообще я бы поставил Delphi 7 но у меня стоит RAD и его я стерать нехочу
Да и для таких целей у меня используется Lazarus но видимо компонента под него нету. Да и сам лазарус тоже юникодный. Так что тут вариант 2.
Отказаться от идеи
Либо стирать RAD (ЧТО СДЕЛАТЬ НЕ ТАК ПРОСТО ТАК КАК rad ИСПОЛЬЗУЕТ КОШМАРНО МНОГО БИБЛИОТЕК И ВЕСИТ ОКОЛО 50 gb А ТО И БОЛЬШЕ) и ставить Delphi что собственно мне не выгодно так как Delphi 7 ансишный что ему с одной стороны в плюс. С другой в минус
Ну и что собственно я отказался от Derlphi 7 так там нехватает нескольких событий и опций в некоторых компонентах что приходилась дописывать их вручную так мне легче было взять RAD Studio.

[Alexandr_57]

Можешь помочь. Можешь дть пример тихой распаковки sfx rar с показом на progressbar. Расширение у sfx rar не EXE
Это можно сделать стандартным способом или нет. Я про получения процесса распаковки у sfx архивов