![]() |
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]() ![]() ![]() |
|
Dante13 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 23.3.2008 Репутация: нет Всего: нет |
Доброе время суток. Подскажите пожалуйста как можно сохранить в одном файле например:картинку и текст и соответственно потом этот файл открыть??
|
|||
|
||||
SlaUr |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 408 Регистрация: 18.9.2003 Репутация: 3 Всего: 5 |
Записываем в файл сначала картинку ,потом вставляем строку(разделитель) например "$myText$" и записываем текст.Думаю что записать такой файл не составит труда.
Вот мой пример извлечения информации из подобных файлов (может не самый удачный код) unit там разделитель "SlaUr" ,Сначала идет картинка,потом звук,потом текст. |
|||
|
||||
THandle |
|
|||
![]() Хранитель Клуба ![]() Награды: 1 Профиль Группа: Админ Сообщений: 3639 Регистрация: 31.7.2007 Где: Moscow, Dubai Репутация: 65 Всего: 372 |
SlaUr, твой пример у меня не грузится. Ведь есть же прикрепляемые файлы размером в один мб...
Dante13, делай примерно так: 1. Создаешь ты некий TFileStream; 2. Пишешь дину текста. 3. Пишешь сам текст. 4. Пишешь размер картинки картинки. 5. Ну и наконец пишешь саму картинку. Читаешь точно так же, сначала размер, потом текст и тд. |
|||
|
||||
Riply |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Комодератор Сообщений: 572 Регистрация: 27.3.2007 Где: St. Petersburg Репутация: 3 Всего: 32 |
type PMyData = ^TMyData; TMyData = packed record DataType: DWord; DataLength: DWord; // Int64; Data: array[0..0] of Byte; end; |
|||
|
||||
Poseidon |
|
|||
![]() Delphi developer ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 5273 Регистрация: 4.2.2005 Где: Гомель, Беларусь Репутация: 53 Всего: 133 |
![]() -------------------- Если хочешь, что бы что-то работало - используй написанное, если хочешь что-то понять - пиши сам... |
|||
|
||||
VICTAR |
|
|||
Эксперт ![]() ![]() ![]() Профиль Группа: Участник Сообщений: 1108 Регистрация: 6.10.2006 Репутация: 37 Всего: 80 |
||||
|
||||
Dante13 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 23.3.2008 Репутация: нет Всего: нет |
Спасибо всем)
|
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Общие вопросы" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |