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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.08.2009, 17:01   #11
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

И что я еще подметил: (Кнопку "правка" вижу, палкой не бить, сообщение не помещалось)
Различается даже внутренности бмпишки:
Оригинал:
Код:
1 строка BMцҐ .... <некопируемые символы>...
2 строка ЉC'ҐcVОЌЃ>...
Дельфийская копия:
Код:
1 строка BM¶…Ђ...<некопируемые символы>
2 строка €@...
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 17.08.2009, 18:40   #12
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

Посмотрел... Что делает код не понял... Точнее не понял смысла, вычислений... Что получаться-то должно?
У меня получается просто чуть более тёмная картинка...)

Проверил... Во-первых TImage сохраняет картинку только своего размера...
То есть без
Код:
Image2.Width:=750;
Image2.Height:=8400;
изображение самообрезается чтот... =\\
Во-вторых сохраняется как 32-битное изображение...

А зачем его на TImage выводить? Может напрямую сохранять?)
Код:
...
Windows.Beep(700,700);
{Image1.Canvas.Draw(0,0,Bit2); }
Image2.Canvas.Draw(0,0,Bit);
Bit.SaveToFile('F:\MainFCX.bmp'); // <--------------
...
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Старый 17.08.2009, 19:28   #13
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Параметры имадж2 заданы заранее. Обрезки в моем случае нет. По поводу 32 - интересно, где дельфи взяла информацию на еще один канал (прозрачности).
Получаться должно (и получается тоже) то, что "уходят" цвета, которые человек не различает и вместо 256 оттенков на канал, поступает только 64. (Если коэффицентом N выставлена 4). Разница практически незаметна на глаз, особенно если это фотография. Эта "подготовка" дает большие возможности для архивации. (Не коммерческими программами, а собственноручно изготовленными). Сейчас попробую без вывода.

Отлично! 18 мб! Спасибо!

------------------------------------------------------------------------

Судя по скрину у меня накрылась винда? Или это еще оди эффект от программы?
Изображения
Тип файла: jpg 2.JPG (45.2 Кб, 91 просмотров)
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

Последний раз редактировалось Alex Cones; 17.08.2009 в 19:42. Причина: Посмотрел на размер файла в hint'е и офигел
Alex Cones вне форума Ответить с цитированием
Старый 17.08.2009, 22:06   #14
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

У меня в настройках "Свойства: Экран" выставлено "Самое высокое (32 бита)" - может из-за этого?
Цитата:
"уходят" цвета, которые человек не различает и вместо 256 оттенков на канал, поступает только 64
Хм... Интересно... =)

Я просто в Edit1 сотню написал на всякий случай... Видимо поэтому изображение потемнело... =))

А на всплывающее окно не надо смотреть, оно часто врёт... =))
I am the First of Cyber Evolution...
I am the First to Program your Future...
DomiNick вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменения размера изображения в Image BredoZavR Мультимедиа в Delphi 0 02.07.2009 13:30
Увеличение изображения. Fellics{новичок} Помощь студентам 8 08.03.2009 12:30
Сохранения файла после передачи albatros Работа с сетью в Delphi 2 26.12.2008 21:07
Макрос сохранения после печати lala_white Microsoft Office Word 2 10.08.2008 12:50
Увеличение размера поля kayman Общие вопросы Delphi 6 16.10.2007 22:35