HiAsm - Конструктор программ

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



UnZIP (D4 & FPC)

Сообщений 1 страница 5 из 5

1

Распаковка ZIP архивов. (D4 & FPC)
Не использует DLL или COMShellObject.
Код датирован аж в 1998 году но до сих пор работает как часы :)
Примечателен тем что может распаковывать из памяти не сохроняя на диск и выводить распакованные  файлы в Stream.
Прекрасно подойдёт для всякого рода самодельных инсталяторов, плагинов для просмотра или поиска в zip архивах, и т.д и т.п
Например это поможет мне внедрять и читать файлы скинов из памяти и файлов  WinampSkins  Ссылка
Распаковка файлов идёт в отдельном потоке так что на зависание при больших архивах не уходит :)
Full версия для активных пользователей.
Демка скачать Ссылка

https://upforme.ru/uploads/001b/10/a7/2/327978.png
https://upforme.ru/uploads/001b/10/a7/2/507446.png

0

2

Добавил возможность загрузки архивов из dll HiAsm
А это может быть не один и не два архива :)

Надо подумать о Crupt архивах. Всё таки для инсталяторов их лучше защитить шифрованием

https://upforme.ru/uploads/001b/10/a7/2/138269.png

0

3

Добавил возможность использовать зашифрованные архивы.
Так что теперь можно делать уже защищённые инсталяторы :cool:
https://upforme.ru/uploads/001b/10/a7/2/756738.png

0

4

Ну хорошо, мы получили контейнер, пусть даже зашифрованных данных, и что с ними делать?
Доставать их от туда строя какой то мультиплексор?
Что то как то мудрёно получится наверно.
А что если добавить список глобальных переменных и присвоить им файл из архива и тип данных(Bitmap,Stream,Text)?
Попробуем реализовать...

0

5

Итак задуманное реализовано с использованием ASEvent,
они тоже могут выступать в качестве глобальных переменных,
кроме всего прочего выдают событие с данными.
итак, берём и архивируем например с помощью winrar с максимальным сжатием в zip
загружаем этот архив в Stream компонента
в свойстве компонента VarList прописываем
Test=Unit1.pas=txt
Test2=scr.bmp=bmp
Test3=scr_png.png=stream
И всё :)
https://upforme.ru/uploads/001b/10/a7/2/89497.png
https://upforme.ru/uploads/001b/10/a7/2/504466.png

Как видно битмапы ужимаются даже лучше png

0



Рейтинг форумов | Создать форум бесплатно