сжатие Изобр. (Ч/Б) Градации Серого

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
EvilCoder
Посланец джихада
Посланец джихада
Аватара пользователя
 
Сообщения: 706
Зарегистрирован: 25.01.2004 (Вс) 15:08

сжатие Изобр. (Ч/Б) Градации Серого

Сообщение EvilCoder » 12.11.2004 (Пт) 1:21

:arrow: :arrow: <DELETED> :twisted: 8)
Последний раз редактировалось EvilCoder 14.08.2008 (Чт) 1:59, всего редактировалось 1 раз.
<<------- EvilCoder ------->>

xolod
Гуру
Гуру
 
Сообщения: 1162
Зарегистрирован: 15.01.2004 (Чт) 0:42
Откуда: Moscow

Сообщение xolod » 12.11.2004 (Пт) 3:31

Вот пример, пользуйся.

Constant ERROR_SUCCESS deprecated. I'm so happy.
Программирование и дизайн – http://www.macrointellect.ru

EvilCoder
Посланец джихада
Посланец джихада
Аватара пользователя
 
Сообщения: 706
Зарегистрирован: 25.01.2004 (Вс) 15:08

Сообщение EvilCoder » 12.11.2004 (Пт) 18:28

:arrow: :arrow: <DELETED> :twisted: 8)
Последний раз редактировалось EvilCoder 14.08.2008 (Чт) 1:59, всего редактировалось 1 раз.
<<------- EvilCoder ------->>

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 13.11.2004 (Сб) 8:47

Только афаик размер картинки от этого не меняется...

Чтобы изменился, надо её привести к палитре из 256 градаций серого, а у xolod-а 24-битный DIB...
Изображение

EvilCoder
Посланец джихада
Посланец джихада
Аватара пользователя
 
Сообщения: 706
Зарегистрирован: 25.01.2004 (Вс) 15:08

Сообщение EvilCoder » 13.11.2004 (Сб) 19:37

:arrow: :arrow: <DELETED> :twisted: 8)
Последний раз редактировалось EvilCoder 14.08.2008 (Чт) 1:59, всего редактировалось 1 раз.
<<------- EvilCoder ------->>

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 15.11.2004 (Пн) 1:12

EvilCoder писал(а):tyomitch у тебя есть пример? :)

Ещё нет, но у меня есть двухкратное ускорение кода xolod-а...
Вложения
GrayScale.0,2.zip
Исходный вариант (0,2 сек. на моей машине)
(23.11 Кб) Скачиваний: 63
GrayScale.0,1.zip
Улучшенный вариант (0,1 сек. на моей машине)
(22.99 Кб) Скачиваний: 89
Изображение

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 15.11.2004 (Пн) 1:59

А вот и 256-цветный вариант с палитрой.
Вывод пишется в c:\temp\out.bmp - я не смог засунуть 256-цветный битмап в StdPicture
Вложения
GrayScale.zip
(23.19 Кб) Скачиваний: 89
Изображение

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 15.11.2004 (Пн) 6:28

Почему не смог? Поподробнее, плз... Мож хэндл палитры не установил?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 15.11.2004 (Пн) 9:16

GSerg писал(а):Почему не смог? Поподробнее, плз... Мож хэндл палитры не установил?
А надо, что ли? :roll:
Попробуй, получится? Я сейчас за другой машиной...
Изображение

EvilCoder
Посланец джихада
Посланец джихада
Аватара пользователя
 
Сообщения: 706
Зарегистрирован: 25.01.2004 (Вс) 15:08

Сообщение EvilCoder » 15.11.2004 (Пн) 14:33

:arrow: :arrow: <DELETED> :twisted: 8)
Последний раз редактировалось EvilCoder 14.08.2008 (Чт) 1:58, всего редактировалось 1 раз.
<<------- EvilCoder ------->>

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 15.11.2004 (Пн) 15:29

О... GetDIBits... Не завидую тебе, я с ним тоже долго мучался.
Lasciate ogni speranza, voi ch'entrate.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 15.11.2004 (Пн) 18:57

EvilCoder, просто попробуй перед вызовом ProccessGrayScale сделать
Код: Выделить всё
m_BoundedPB.Picture = m_BoundedPB.Image
- и всё должно заработать...
Изображение

EvilCoder
Посланец джихада
Посланец джихада
Аватара пользователя
 
Сообщения: 706
Зарегистрирован: 25.01.2004 (Вс) 15:08

Сообщение EvilCoder » 16.11.2004 (Вт) 15:33

:arrow: :arrow: <DELETED> :twisted: 8)
Последний раз редактировалось EvilCoder 14.08.2008 (Чт) 1:57, всего редактировалось 1 раз.
<<------- EvilCoder ------->>

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 16.11.2004 (Вт) 18:16

Да по сути никакой, просто PaintPicture рисует на .Image, а я беру данные из .Picture.

Можно везде в коде заменить .Picture на .Image - тогда будет работать и без той строчки.
Изображение


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 40

    TopList