Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.05.2009, 06:28
dm-451 dm-451 вне форума
Прохожий
 
Регистрация: 23.04.2009
Сообщения: 9
Репутация: 10
По умолчанию Организация хранения рисунка

Здравствуйте, есть программа для создания тестов, которая сохраняет тест в текстовый файл. Требуется организовать возможность использования рисунков в тестах. То есть в процессе создания пользователь указывает путь до рисунка, его размеры и тд.
Подскажите, пожалуйста, как файлы с изображениями можно совместить с текстовой базой вопросов.
P.S. Просто загружать рисунки по месту их размещения не походит, так как такой метод будет работать только на конкретном компьютере, а нужно, чтобы на другом тоже все было хорошо.
Уже неделю голову ломаю...
Заранее благодарен.
Ответить с цитированием
  #2  
Старый 12.05.2009, 08:28
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Элементарно. Просто указывается путь к рисунку, а для мобильности делается относительный путь. Например ваша тестовая программа запускается из каталога: E:\Programs\Test\
а рисунки к тесту расролагаются по пути E:\Programs\Test\Pic\
Указываете в файле путь Pic\
В программе при запуске получаем информацию о месте старта:
Код:
Path := ExtractFilePath(Application.ExeName)
теперь уже несложно расчитать путь до картинок.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 12.05.2009, 08:28
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

разве TImageList не помогает со вкладки Win32? ну или в ресурсах файла, тоже неплохой вариант
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием
  #4  
Старый 12.05.2009, 10:32
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

А если у него картинки 2000х2000? Да еще их штук 100 будет. Это-же тест со случайным выбором вопросов и материала для него.
Что действительно возможно имеет смысл, так это зашифровать картинки.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 12.05.2009, 10:38
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

тогда можно свой формат создать, с рекордами ну и bitmap или jpeg внутри, заодно можно было и зашифровать и сжать если необходима такая защита конешно, я бы наверное так и сделал
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием
  #6  
Старый 12.05.2009, 10:50
dm-451 dm-451 вне форума
Прохожий
 
Регистрация: 23.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

Спасибо за советы. Но хотелось бы услышать способ как можно записать рисунок в txt файл и потом его оттуда считать. Или как-то так, чтобы все в 1 файле было.
Ответить с цитированием
  #7  
Старый 12.05.2009, 11:12
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

пример с рекордами содержит немало строчек, я сейчас занят, поэтому дам способ полегче: создаёш новый класс от TComponent, затем при помощи TFileStream сохранить этот класс-компонент в файл, получится бинарник с информацией. сохраняются свойства из секции Published класса, сохраняй использую функцию WriteComponent и чтение ReadComponent, если посидеть немного над функцией то можно разобратся
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием
  #8  
Старый 12.05.2009, 11:18
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Делал такую штуку. Для этого "рисовал" дерево классов, которые умели сохраняться в поток (TStream). Собственно, для сохранения картинки в поток надо
1. Записать длинну данных
2. Записать сами данные
Для этого используется дополнительный поток в памяти. Т.е. картинку сохраняем во временный поток в памяти, берем полученную длинну данных, пишем ее в основной поток, далее все данные временного потока копируются в основной. При чтении наоборот - вычитываем длинну, копируем нужный кусок во временный поток и из его читаем данные в картинку.
Ответить с цитированием
  #9  
Старый 12.05.2009, 12:52
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Цитата:
Спасибо за советы. Но хотелось бы услышать способ как можно записать рисунок в txt файл и потом его оттуда считать. Или как-то так, чтобы все в 1 файле было
Такая штука уже давно изобретена - называется xml-файл. XML-файл это файл в тестовом виде. Открыть, посмотреть, редактировать можно в любом текстовом редакторе.
Собственно вы можете и сами такое делать. Любые двоичные данные можно представить как текстовые если записывать значение байта как число. например: х10х255х50 и т.д. Все что вам необходимо, это написать простенькую пару функций которые JPG или BMP-файл будут побайтно читать/писать в данном формате. Понятно, что такой способ работы с данными несколько медленее чем работа напрямую,но современные компы совершают милионы операций в секунду и ощутимой задержки небудет.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #10  
Старый 12.05.2009, 14:59
dm-451 dm-451 вне форума
Прохожий
 
Регистрация: 23.04.2009
Сообщения: 9
Репутация: 10
По умолчанию

А есть ли готовые компоненты для подобного рода функций?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:31.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025