[Alexandr_57]

Здраствуйте. Скажите как сделать свой архив для содержания:
1. Информацию в виде типа record

Код:

Type TInfo=record
  //Имя автора
  NameAutor:String[30];
  //Информация отображаемая в Memo
  Info:TStringList;
  Pasword:WideString;
  Logo:TPNGImage;
end;

2. Любой файл
Процесс архивации нужно показывать в ProgressBar
Полученный архив должно быть нельзя открыть в любой программе кроме как моей.
Например в 7zip или джругом архиваторе
Или в редакторе ресурсов
Информацию тоже должно быть нельзя прочесть
Может есть готовый компонент или библиотека?

[NumLock]

1. Содержимое TStringList, WideString и TPNGImage сохранять в файл с преамбулой длины данных
2. Использовать готовый набор Cryptography Functions

[Alexandr_57]

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

1. Содержимое TStringList, WideString и TPNGImage сохранять в файл с преамбулой длины данных
2. Использовать готовый набор Cryptography Functions

Тут не просто криптография а архивация нужнай. Свой собственный архив
Гдебы хранились файлы и информация тип record код которого я дал.

[lmikle]

Ну, например, можно сделать финт ушами. Писать свой "честный" архиватор - как-то долго и сложно. Поэтому собственно для компрессии используем ZLib (TCompressStream, если правильно помню имя). Далее есть варианты. Можно отдельно компрессировать каждую запись. Тогда структура файла должна быть примерно такой:

Код:

MYZIP - 5 char file signature
NumberOfElements - 4 byte integer
Element 1 length - 4 byte integer
Element 1 data - raw data
...
Element n length - 4 byte integer
Element n data - raw data

Каждый элемент с помощью компрессирующего потока пишется в TMemoryStrteam, выясняется его длинна, потом длинна и данные пишутся в файл.
Чтение - в обратном порядке. Считали длинну, скопировали полученное кол-во байт в декомпрессирующий поток, дальше вычитали результат в переменную.

[Alexandr_57]

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

Ну, например, можно сделать финт ушами. Писать свой "честный" архиватор - как-то долго и сложно. Поэтому собственно для компрессии используем ZLib (TCompressStream, если правильно помню имя). Далее есть варианты. Можно отдельно компрессировать каждую запись. Тогда структура файла должна быть примерно такой:

Код:

MYZIP - 5 char file signature
NumberOfElements - 4 byte integer
Element 1 length - 4 byte integer
Element 1 data - raw data
...
Element n length - 4 byte integer
Element n data - raw data

Каждый элемент с помощью компрессирующего потока пишется в TMemoryStrteam, выясняется его длинна, потом длинна и данные пишутся в файл.
Чтение - в обратном порядке. Считали длинну, скопировали полученное кол-во байт в декомпрессирующий поток, дальше вычитали результат в переменную.

А может кто код дать?
Как я сказал архив нельзя должно быть открыть в другой программе и процесс архивации должен открываться в другой программе
Плюс также в архив должна записываться информация которая будет показываться при открытии архива.

[Alexandr_57]

Я кажется придумал схема своего архива с информацией
Для начала происходит архивация в zip
Потом полученный zip открываем в потоке
Добавляем туда информацию
Шифруем каждый символ (по сути архив можно открыть как текстовой файл но вместо текста там бинарный код который тоже состоит из символов а значит применить к каждому символу шифровку в виде xor и своего ключа
Можете сказать как мне реализовать такое с показом на progressBar и какие компоненты нужно скачать?

[Alexandr_57]

И так. У меня появилось время. Да и приоритет я поменял.
Не нужно мне шифрование.
Идея следующая:
Использовать запороленный 7zip с вшитой в него нужной информацией.
При открытии (выборе файла) информация считывается и удаляется.
Ну и дальше распаковка с показом на ProgressBar
Может кто пример кинет как это сделать. Вроде бы в инете был модуль SevenZip для этого.
Подскажите как сделать запоковку с поролем и вшитой информацией в 7Zipn и распоковку. И если возможно то вшить инфолрмацию так чтобы это не рушила структуру архива если нет то вшить ее в конце после архивации.
Может кто пример сделать.
Вот сам модуль с оф сайта
http://www.rg-software.de/

[Alegun]

Похоже здесь в корне не верный подход к решению.
Нужен стандартизированный файл-контейнер содержащий различные данные, среди которых и запакованный архив, где он не главный, а как только составляющая.
Задача поставлена неявно, можно лишь предположить, что выглядеть на выходе она должна примерно так: будет туева хуча однотипных файлов, при выборе и загрузке в ридер этого формата пользователю показывается текстовая информация об авторе и доп.инфа по содержимому с эскизом. При вводе юзером пароля, происходит распаковка хранимого в этом файле архива, а сам носитель уничтожается

[Alexandr_57]

Кокрастаки пороль вводить не должен.
Во вторых так как данные это название архива и автор то вроде как 7Zip уже имеет такую поддержку. Ну впрочем вводить нужно только автора и название архива. После чего упаковываешь файлы с поролем.
Мне просто нужен пример упаковки и распоковки архива 7zip с поролем но еще и с вшитой информацией. В библиотеке что я дал есть демка но както я не разобралдся с ней или не понятно демка на упаковку ии распоковку.
Но мне еще нужно показ вшитой информации

[Alegun]

Ну понятие - понятно, у всех разное, сейчас нету времени детально копаться во всяком, вот вам пока старинный пример добавки и показ текста к архиву, если вы его выберете в качестве реципиента, посмотрите пжлст

[Alexandr_57]

Чет не понял. Он записать записывает но при повторном открытии не показывает чета.

[Alegun]

А сохранять не пробовали? А вот пример файл-контейнера нашёлся, текст и бинарник в меморном потоке

[Alexandr_57]

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

А сохранять не пробовали? А вот пример файл-контейнера нашёлся, текст и бинарник в меморном потоке

Я и так сохраняю. Я ж говорю записывает но при повторном открытии текст не найден.
На счет примера то там пример с картинками jpga

[Alegun]

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

...записывает но при повторном открытии текст не найден...

Не трудно ли вам выложить архив *.zip с добавленным вами коментом, чтоб текст посмотреть, аж интересно, лет десять это всё успешно работает, а тут - нет

З.Ы. Вместо картинки любой файл подставить можно, это ж пример

[Alexandr_57]

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