[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 и какие компоненты нужно скачать?