Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TPicture в file of record. 
:(
    Опции темы
NiJazz
  Дата 9.1.2004, 22:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: нет
Всего: 23
Есть большая структура... ой, запись... smile.gif
Код
type MyRecord = record

Я хочу в программе с помощью OpenPictureDialog сохранять объекты TPicture в файл как элементы массива. Выдаёт делфа ошибку при таком коде:
Код

procedure TForm1.BitBtn55Click(Sender: TObject);
var i: byte;
   fname: string;
begin
i := PhotosInd;
while Crm.Photos[i] <> nil do i:=i+1;
OpenPictureDialog1.Execute;
fname := OpenPictureDialog1.FileName;
Crm.Photos[i].LoadFromFile(fname);
end;

Как быть? withstupid.gif
PM MAIL   Вверх
NiJazz
Дата 9.1.2004, 22:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: нет
Всего: 23
Что-то кнопка CODE глючить стала.... Приходится ручками... sad.gif
Вот она, структура:
Код

type MyRecord = record
                             {что-то}
                             Photos: array[1..5] of TPicture;
                             {ещё что-то}
PM MAIL   Вверх
NiJazz
Дата 10.1.2004, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Jazz coder
****


Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: нет
Всего: 23
Что, нельзя?
В принципе, конечно можно ограничиться ссылкой в виде string'a на файл. Но всё же...
PM MAIL   Вверх
Paradox
Дата 10.1.2004, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1135
Регистрация: 18.11.2002
Где: Россия

Репутация: нет
Всего: 1
ИМХО конечно можно запихать в один файл все это хозяйство (просто как последовательность бит) , а как потом вынать отттуда быдешь и доказыать компоненту что вынул ты jpeg например ?
Зачем такое извращение ?


--------------------
---
PM MAIL WWW   Вверх
p0s0l
Дата 10.1.2004, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 16
Всего: 112
В файле record'ов сохранить динамический объект нельзя. Лучше храни все картинки в отдельном нетипизированном файле, а в рекорде храни смещение картинки относительно начала файла.
Если мне не изменяет память, то у TPicture есть свойства LoadFromStream и SaveToStream - они тебе помогут без геморроя сохранить/считать объекты TPicture из файлового потока (если есть такие методы).


--------------------
С уважением, г-н Посол.
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0437 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.