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

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

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.01.2010, 13:10   #1
firmwares
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 17
По умолчанию загрузка картинок из папки

Всем доброго времени суток!

Собственно вопрос!
Как сделать так, чтобы все картинки из папки загруались на форму и потом их можно было распечатать!?

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

Если что не понятно, то задавайте вопросы! )))
firmwares вне форума
Старый 25.01.2010, 19:42   #2
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
Сообщение от firmwares Посмотреть сообщение
Если что не понятно, то задавайте вопросы! )))
Да вообще мало что понятно. Как понять "загружались на форму"? Отображались в полный размер, что ли?

Для создания миниатюр (thumbnail) сначала просканируй директорию (вопрос №1) с фильтром по расширениям или без, это тебе виднее. Затем создай нужное кол-во объектов (это может быть TImage или что угодно еще, к ним привязать чекбокс), в них последовательно помести уменьшенные копии, т.е. каждую картинку нужно сперва загрузить и уменьшить (вопрос №2). Затем по нажатии кнопки проверяй чекбоксы и формируй список файлов, к-рые были выбраны. Выбранные файлы отправляй на печать (вопрос №3) - компонент TPrintDialog.

Итого, как минимум 3 вопроса к-рые тебе нужно по отдельности разобрать.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mihali4; 26.01.2010 в 00:07.
mutabor вне форума
Старый 25.01.2010, 23:36   #3
DeKot
Участник клуба
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Сообщений: 1,977
По умолчанию

Прономеруйте Ваши рисунки, используйте цикл for ..to..do и раскладывайте рисунки на форме, используя StretchDraw. В зависимости от количества рисунков и выбирайте коэффициент изменения размеров. Затем по "клику" выбирайте рисунок и обрабатывайте его.
Будут вопросы - спрашивайте.
И не сомневайся даже ... отдых - кайф, работа - лажа!

Последний раз редактировалось mihali4; 26.01.2010 в 00:07.
DeKot вне форума
Старый 26.01.2010, 13:47   #4
xanderbass
Новичок
Джуниор
 
Аватар для xanderbass
 
Регистрация: 26.01.2010
Сообщений: 2
Лампочка Процедура обработки массива графических файлов для Preview

Цитата:
Сообщение от mutabor Посмотреть сообщение
Затем создай нужное кол-во объектов (это может быть TImage или что угодно еще, к ним привязать чекбокс)
Ладно если изображений будет не больше пары-тройки десятков, а если их там за тыщу будет?! Вот будет задачка камушку
А не проще сделать буфер из компонента TImage а отображать рисунки на втором TImage? Проще говоря так:

1.Помещаем объект класса TImage на форму. Не помню название свойств (посмотреть не могу, ибо сижу в д.м.в. под линуксом), но они отвечают за масштабирование. Свойство Visible устанавливаем в FALSE (Эт же ж буфер). Устанавливаем нужный размер предполагаемого эскиза. Назовём это, скажем, BufImg

2.Помещаем ещё один экземпляр класса TImage. Он будет рабочим полем. Его назовём WrkImg

3.Процедура обработки.

procedure DrawImages;
const
ThumbNailSizeX = 64;
ThumbNailSizeY = 64;
ThumbNailPadding = 5;
{--- Эти константы изменяем на нужные нам значения ---}
var
R,S: TRect;
c: integer;
t: TSearchRec;
begin
S.top:=0;
S.left:=0;
S.bottom:=ThumbNailSizeY;
S.right:=ThumbNailSizeX;
c:=0;
if FindFirst('yourdirectory/*.bmp', faAnyFile, t) then
repeat
R.top:=c*ThumbNailSizeY+ThumbNailPa dding*c;
R.left:=c*ThumbNailSizeX+ThumbNailP adding*c;
R.bottom:=(c+1)*ThumbNailSizeY+Thum bNailPadding*c;
R.right:=(c+1)*ThumbNailSizeX+Thumb NailPadding*c;
Form1.BufImg.Picture.LoadFromFile(t sr.name);
Form1.WrkImg.Canvas.Copyrect(R, Form1.BufImg.Canvas, S);
c:=c+1
until FindNext(t) <> 0
end;

4.Примечания. Предполагается, что имя формы будет равно Form1. Пример рассчитан на формат BMP. Вместо YourDirectory вписать свой каталог.
А он шёл себе по свету насвистывал...

Последний раз редактировалось xanderbass; 26.01.2010 в 13:51. Причина: Форматирование
xanderbass вне форума
Старый 26.01.2010, 15:55   #5
DeKot
Участник клуба
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Сообщений: 1,977
По умолчанию

Очень не конкретно поставлен вопрос. Следует уточнить - что за рисунки (тип, размер), где находятся, количество (что очень важно), как часто происходит выбор и т.д.
Зная более точно ТЗ, можно предлагать конкретные алгоритмы решений.
А так только будем воду толочь.
И не сомневайся даже ... отдых - кайф, работа - лажа!
DeKot вне форума
Старый 26.01.2010, 20:32   #6
firmwares
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 17
По умолчанию

Всем привет!
Выкладываю доп инфу по как посил DeKot
Допустим есть прога которая делает снимки и складывает их в папку
D:\temp\
с расширением .bmp и размерами не более 400х400
количество снимков от 4 до 10(не более)

Надо сделать так, чтобы все снимки которые хранятся в этой
папке (temp) можно было отметить галочками и распечатать!

Теперь подробнее о печати:
1. есть форма с полем memo и местом под 4 изображения
2. надо распечатать эту форму рак, как я ее вижу на экране!

Если есть еще вопросы, то пожалуйста задавайте!

Спасибо!
firmwares вне форума
Старый 27.01.2010, 00:07   #7
DeKot
Участник клуба
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Сообщений: 1,977
По умолчанию

Во вложении пример приложения. Кнопкой "Загрузить рисунок" выводим поочередно все рисунки на форму (у меня их 6, выводятся в размере 150 х 150, не зависимо от фактического размера рисунка (исходные могут быть и разного размера)). Кнопкой "Выбрать" оставляем нужный на форме (всего на форме может быть 4 выбранных рисунка).
Вывод формы на печать - в поиске. Не раз обсуждалось.
Вложения
Тип файла: rar CasePicture.rar (485.6 Кб, 72 просмотров)
И не сомневайся даже ... отдых - кайф, работа - лажа!
DeKot вне форума
Старый 28.01.2010, 01:13   #8
firmwares
Пользователь
 
Регистрация: 12.05.2009
Сообщений: 17
По умолчанию

Всем доброе время суток!
Подскажите пожалуйста такую штуку!
Я загружаю изображения в миниатюрах в ListView
Так вот как можно оттуда загнать их в Image?
Точнее как их можно там отметить и потом уже выгрузить?
Спасибо!
firmwares вне форума
Закрытая тема


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

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сравнение картинок Crucian Общие вопросы Delphi 8 01.11.2010 05:13
Загрузка картинок на radikal.ru Joe_Tribbiani Работа с сетью в Delphi 38 02.10.2010 07:54
Повороты картинок yura-cat Помощь студентам 1 30.10.2008 14:28
Загрузка текста и картинок MAKEDON Помощь студентам 8 09.08.2008 10:36
Загрузка jpg картинок А. Долматов Мультимедиа в Delphi 4 08.10.2007 17:11