Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.10.2013, 15:09   #1
Alexandr17-10
Пользователь
 
Регистрация: 12.08.2013
Сообщений: 99
По умолчанию Множество картинок в бинарный файл и использовать их от туда

Извиняюсь если такая тема уже создавалась.

Мне нужно:

1) Запоковывать множество картинок в бинарный файл с расширением arc чтобы не 1 программа кроме моей не могла его открыть
2) Запись нужно делать пронеумерованной строковым индексом так как именно по строковому индексу будет происходить чтения.
3)Ну и собственно чтения
Скажите как это организовать желательно функциями
К примеру для записи
Function WriteARC(ARC:TMemoryStream{или аналог правдо с этими потоками проблемки с размером. там надо задавать размер а я незнаю как сделать это для картинок и + ко всему нумерация числом идет а мне строкой}; IndexStroca:String):Boolean -должна возвращать истину если успешно упаковалось или фальс если ошибка
и собстно для чтения
Function ReadARC(ARC:TBitmap{сюда нужно загружать картинку};IndexStroca:String{опреде ления по какому индексу загружать}):Boolean; - возвращает также истину при успехе операции и ложь при ошибке
КЕак это организовать помогите пожалуйста
Alexandr17-10 вне форума Ответить с цитированием
Старый 21.10.2013, 15:49   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

1. Типизированные файлы своего формата.
Типа так:
Код:
type
  TFileHeader = record //заголовок файла
  Stub:array[0..3] of Char;//Признак файла 
  CRC32:string[20]; //Контрольная сумма совокупности записей, не включая заголовок
  TotalCount:SmallInt; //Всего записей в файле
  end;
 TFileEntry = record //Запись
 n:Integer; //Номер
 CRC32:String[20]; //Контрольная сумма Data в упакованном виде
 CRC32Check:string[20]; //Контрольная сумма Data перед упаковкой
 Size:Integer;
 Data:array of byte;
 end;
И пиши себе класс для чтени-записи, извлекай куда хочешь, хоть в массив, хоть поток.
Человек_Борща вне форума Ответить с цитированием
Старый 21.10.2013, 16:05   #3
Alexandr17-10
Пользователь
 
Регистрация: 12.08.2013
Сообщений: 99
По умолчанию

Мне нужно картинки запаковывать а не имена файлов каротинки.
Alexandr17-10 вне форума Ответить с цитированием
Старый 21.10.2013, 16:12   #4
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,761
По умолчанию

Ну так Человек_Борща тебе это и написал. Хоть картинки, хоть музыку пихай.
FaTaL вне форума Ответить с цитированием
Старый 21.10.2013, 21:31   #5
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,882
По умолчанию

Можете тут http://programmersforum.ru/showthread.php?t=170876 мой пример посмотреть.
phomm вне форума Ответить с цитированием
Старый 29.10.2013, 22:51   #6
Alexandr17-10
Пользователь
 
Регистрация: 12.08.2013
Сообщений: 99
По умолчанию

Я решил чуть чуть облегчить задачу и себе и в принципе в коде.
1)Запоковывать множество картинок в бинарный файл с расширением arc чтобы не 1 программа кроме моей не могла его открыть
2)Считывание и запись должна идти по индексу.
3)Использовать TFileStream
Нашел ссылку http://www.delphimaster.net/view/7-28548/all
В принципе то что нужно но
1 нужно чуток облегчить
2 сделать чтобы она возвращала индекс добавленного в файл картинки
Скажите как это делать для BMP картинок
Массив картинок использовать не годиться так как запись будет идти в программе ARK ADD а считывание в игровом движке
Понятия игровой движок это
1 создания игрового поля
2 размещение персонажей
3 мини AI с пособностью выбирать цель и кидаться бомбами где нужно убить его одним персонажем
Скажем так малюсенькая часть игры Ancient Empires 2 RM
Alexandr17-10 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Эффектный просмотр картинок на форме - что использовать? calypso Компоненты Delphi 1 14.06.2013 19:46
Бинарный файл Хитман Помощь студентам 1 27.03.2011 19:04
Бинарный файл nXs Общие вопросы Delphi 4 26.03.2011 11:40
Законнектиться на FTP сервер, и скачать от туда определенный файл Mihanches Работа с сетью в Delphi 4 14.09.2010 14:45
Бинарный файл mchip Microsoft Office Excel 10 05.03.2009 19:10