forum.boolean.name - подскажите пожалуйста хороший упаковщик

forum.boolean.name (http://forum.boolean.name/index.php)

- BlitzMax (http://forum.boolean.name/forumdisplay.php?f=104)

- - подскажите пожалуйста хороший упаковщик (http://forum.boolean.name/showthread.php?t=10386)

подскажите пожалуйста хороший упаковщик

Так как ихбин с ксорсом неработает, требуется пакер. Не хочется, чтоб ресы на виду лежали. Заранее спасибо.

Ответ: подскажите пожалуйста хороший упаковщик

ух ты какая приблуда, а под вистой она работает?
а есть бесплатные аналоги? ну или хотяб подешевле

Ответ: подскажите пожалуйста хороший упаковщик

Цитата:

Сообщение от NitE (Сообщение 125769)

MoleBox

Некоторые антивири ругаюца на закриптованный вирус :(

Ответ: подскажите пожалуйста хороший упаковщик

хз под вистой наверное работает, но сам не проверял.
"бесплатный" "аналог" искать на rl-team.net

мне кажется всякие тупые антивири могут ругатся на любой софт который шифрует или разшифровывает - так-что не факт. (наврядли сталиб продавать софт с вирями)

Ответ: подскажите пожалуйста хороший упаковщик

может лучше свой формат шифрования ? какая разница, всё равно пакеры не сложно обходятся, а как это сделать я описал давным давно тут http://blitzetc.blitzmax.ru/index.ph...кой_в _память

но там простой вариант, как я помню можно сделать систему шифровки\дешифровки на лету

Ответ: подскажите пожалуйста хороший упаковщик

Цитата:

Сообщение от NitE (Сообщение 125841)

мне кажется всякие тупые антивири могут ругатся на любой софт который шифрует или разшифровывает - так-что не факт. (наврядли сталиб продавать софт с вирями)

Дк я знаю что там вирей нету, просто на запакованные объекты некоторые антивири ругаюца, типа закриптованные вирусы.

Ответ: подскажите пожалуйста хороший упаковщик

действительно, намутить в бмаксе свой упаковщик/распаковщик проще простого.

Ответ: подскажите пожалуйста хороший упаковщик

Цитата:

Сообщение от SBJoker (Сообщение 130558)

действительно, намутить в бмаксе свой упаковщик/распаковщик проще простого.

А чтобы *.ttf шрифты грузились из потока как сделать?
С ними не так просто, как с картинками.

Пример:

Код:

Local file:TStream = ReadFile("data\fnt\fontText.ttf")

Local fnt:TImageFont = LoadImageFont(file, 20)

If(fnt = Null) DebugLog "error!"

Текст "error!" напечатался, т.е. шрифт из потока не грузится (команда графикс и прочее имеется в коде).
Он как будто с привязкой к самому файлу идёт.
Если в момент работы проги попытаться переименовать используемый в ней шрифт, то получим ошибку доступа к файлу - файл используется другим...

Можно ли это "обойти", чтоб из пак'а шрифты в темп не кидать?
Про создание своего шрифта я знаю.

Ответ: подскажите пожалуйста хороший упаковщик

Ну кагбэ если он нехочет читать из предварительно открытого файла, то никак.
Хотя это очень странно. а он у тебя обычным способом то загружается по тому пути?

Ответ: подскажите пожалуйста хороший упаковщик

http://forum.boolean.name/showthread.php?t=3758
как запаковывать не одно изображение в файл а много?

Ответ: подскажите пожалуйста хороший упаковщик

Писать свой упаковщик конешно :)

Ответ: подскажите пожалуйста хороший упаковщик

а где про структуру пак файла можно почитать(кроме урока jimona)?

Ответ: подскажите пожалуйста хороший упаковщик

G.A.D
пак файл это просто название как "дядя вася", а дядей вась бывает много и разных как ты понимаешь

Ответ: подскажите пожалуйста хороший упаковщик

если можно то примеры частых способов реализации структуры пак файла.

Ответ: подскажите пожалуйста хороший упаковщик

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

Ответ: подскажите пожалуйста хороший упаковщик

Цитата:

Сообщение от SBJoker (Сообщение 130569)

а он у тебя обычным способом то загружается по тому пути?

ага.

Ответ: подскажите пожалуйста хороший упаковщик

Цитата:

Сообщение от G.A.D (Сообщение 130673)

если можно то примеры частых способов реализации структуры пак файла.

Я дам не частый, а частНый способ реализации.
А заодно (если повезёт) услышу мнения по поводу кода.

В коде представлен класс "пакера" и функции, формирующей пак-файл.
Пример работы:
1. создаём пак-файл (с помощью функции, подобной той что приведена в коде после описания класса)

Код:

'пакуем все наши ресурсы в один файл

Global packer:TPacker = New TPacker

Local resFile:String = "data.res"

fnPackResAll(resFile)

2. читаем структуру пака

Код:

'подготовка данных о ресурсах, находящихся в паке

packer.fnUnpack(resFile)

3. грузим нужные ресурсы

Код:

Local imgLogo:TImage = LoadImage(packer.fnGet(RES_IMG_LOGO))

Номера ресурсов можно сделать константами, например:

Код:

Const RES_IMG_LOGO = 1

Const RES_IMG_BUTTON = 2

Эти константы РАВНЫ порядковому номеру соответствующего ресурса в паке.
Это может быть не очень удобно, но занимает мало места.
Опираясь на приведённый код довольно просто можно сделать вместо порядкового номера вводимые на этапе формирования пака идентификаторы, хоть числовые хоть строковые.
Лишь дописать проверку на их уникальность, и поиск в паке.

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

Вот код.

Код:

'класс TPacker - упаковщик/распаковщик игровых ресурсов

Type TPacker

        Field list:TList = New TList

        'Field listTmp:TList = New TList 'список распакованных в темп

        Field resCount, size, k, path:String

        Field file:TStream

        Field bank:TBank

        Field seekData, seek

        Field masSizes[]

        

        

        'добавление файла в список для последующей запаковки

        Method fnAdd(ppath:String)

                path = ppath.ToLower()

                If(list.Contains(path) = True) Return

                list.AddLast(path)

        End Method

        

        

        'запаковка всего что в списке в файл

        Method fnPack(fileName:String)

                

                If(list.IsEmpty()) Return

                resCount = list.Count()

                file = WriteFile(fileName)

                WriteInt(file, resCount)

                

                For path = EachIn list

                        If(FileType(path) <> 1)

                                RuntimeError("file not found: " + path)

                        Else

                                size = FileSize(path)

                                WriteInt(file, size)

                                'DebugLog "sz = " + size

                        EndIf

                Next

                

                For path = EachIn list

                        If(FileType(path) <> 1)

                                RuntimeError("file not found: " + path)

                        Else

                                bank = LoadBank(path)

                                WriteBank(bank, file, 0, bank.Size())

                        EndIf

                Next

                CloseFile(file)

        End Method

        

        

        '"распаковка". получение информации о содержимом файла ресурсов

        Method fnUnpack(fileName:String)

                

                If(FileType(fileName) <> 1) Return

                

                file = ReadFile(fileName)

                

                resCount = ReadInt(file)

                

                masSizes = New Int[resCount]

                

                For k = 0 Until resCount

                        size = ReadInt(file)

                        masSizes[k] = size

                Next

                

                seekData = StreamPos (file)

                

                CloseFile(file)

                

                path = fileName

        End Method

        

        

        'получение ресурса по индексу, т.е. по порядковому номеру в файле ресурсов

        Method fnGet:TStream(id)

                If(id < 0 Or id > resCount - 1) Return Null

                

                seek = seekData

                For k = 0 Until id

                        seek:+masSizes[k]

                Next

                

                file = ReadFile(path)

                SeekStream(file, seek)

                

                bank = CreateBank()

                 

                Local stream:TStream = OpenStream(bank)

                

                For k = 0 Until masSizes[id]

                        WriteByte(stream, ReadByte(file))

                Next

                

                CloseFile(file)

                

                FlushStream(stream)

                SeekStream(stream, 0)

                bank = Null

                

                Return stream

        End Method

        

        

        'извлечение во временную папку ресурса по индексу

        'возвращает путь к распакованному файлу

        Method fnUnpackToTemp:String(id, fileName:String)

                If(id < 0 Or id > resCount - 1) Return Null

                

                seek = seekData

                For k = 0 Until id

                        seek:+masSizes[k]

                Next

                

                file = ReadFile(path)

                SeekStream(file, seek)

                

                CreateDir("temp")

                

                Local stream:TStream = WriteFile("temp\" + fileName)

                                

                For k = 0 Until masSizes[id]

                        WriteByte(stream, ReadByte(file))

                Next

                

                CloseFile(file)

                CloseFile(stream)

                

                Return "temp\" + fileName

                

        End Method

        

        

        'удаление файлов из временной папки

        Method fnClearTemp()

                Local files:String[] = LoadDir("temp")

                Local fn:String

                

                For fn = EachIn files

                        DebugLog "fn = " + fn

                        'DeleteFile("temp\" + fn)

                        'CloseFile(WriteFile("temp\" + fn))

                Next

                

        End Method

        

        

        'очистка информации

        Method fnClear()

                list.Clear()

                path = ""

                masSizes = Null

        End Method

        

End Type



'запаковываем наши ресурсы

Function fnPackResAll(packFile:String = "data.res")

        

        packer.fnAdd("pointer.png")  '0

        packer.fnAdd("main.png")  '1

        packer.fnAdd("buttonUp.png")  '2

        packer.fnAdd("buttonDown.png")  '3

        packer.fnAdd("buttons\btnScreenShot1.png")  '4

        packer.fnAdd("buttons\btnScreenShot2.png")  '5

        packer.fnAdd("buttons\btnScreenShot3.png")  '6

        packer.fnAdd("buttons\btnStart1.png")  '7

        packer.fnAdd("buttons\btnStart2.png")  '8

        packer.fnAdd("buttons\btnStart3.png")  '9

        

        packer.fnAdd("fonts\usual.ttf")  '10

        packer.fnAdd("fonts\digit.ttf")  '11

        packer.fnAdd("fonts\xyz.ttf")  '12

        packer.fnAdd("fonts\bounds.ttf")  '13

        

        packer.fnAdd("buttonUpSmall.png")  '14

        packer.fnAdd("buttonDownSmall.png")  '15

        

        packer.fnAdd("logo.png") '16

        

        packer.fnAdd("viewKrug.png") '17

        

        packer.fnAdd("particles\serdce.png") '18

        packer.fnAdd("particles\pentagon.png") '19

        packer.fnAdd("particles\star.png") '20

        packer.fnAdd("particles\star2.png") '21

                

        packer.fnPack(packFile)



                

End Function

Ответ: подскажите пожалуйста хороший упаковщик

Спасибо,Жека!но не понял(
А как по научному называеться процесс архивирования файла в пак файл?
Архивация или Шифрование?
П.с если кто-то знает стятьи или книги по описанию процесса ,если не трудно киньте либо в тему либо в ЛС

Ответ: подскажите пожалуйста хороший упаковщик

Кодирование.
Кодирование может выполнтяться с целью - архивации (повышения энтропии сообщения), шифрования, повышения помехоустойчивости (уменьшение энтропии).
В твоём случае - архивация. Если ещё и с паролем - шифрование.

Ответ: подскажите пожалуйста хороший упаковщик

Цитата:

Сообщение от G.A.D (Сообщение 130839)

Спасибо,Жека!но не понял(

А что именно ты не понял? Я понятнее могу, если спросишь что именно ты не уяснил. ;)