 |
|
Модераторы: Snowy, Alexeis, MetalFan |
 
|
|
Подскажите, пожалуйста функцию для определения цве 
| МIФ |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 18.2.2009 Репутация: нет Всего: нет |
Есть монохромное изображение. Нужно перевести его в матрицу.
Например картинки  соответствует матрица 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 1 0 0 0 0 1 1 0 1 0 0 0 1 1 0 0 1 0 0 1 1 0 0 0 1 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 1 1 0 0 0 0 0 0 1 подскажите, как это реалоизовать? (Нужна функция определения цвета пикселя Это сообщение отредактировал(а) МIФ - 21.2.2009, 11:34 |
|||
|
||||
Дата 21.2.2009, 11:08 (
Загрузка ...
| Alexeis |
|
|||
 Амеба  Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 55 Всего: 459 |
Изображение в формате bmp или просто текстовый файл с нулями и единицами?
-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| МIФ |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 18.2.2009 Репутация: нет Всего: нет |
есть изображение BMP, его надо перевести в текстовый файл с 0 и 1
|
|||
|
||||
| Alexeis |
|
|||
|
Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 55 Всего: 459 |
Если скорость не важна, то можно просто загрузить в TBitmap и у него пробежаться по всем пикселам.
bitmap.canvas.pixels[i, j] даст значение цвета. Если цвет черный то в строку добавим '0' иначе '1', по завершению прохода по строке добавляем ее в StringList. После прохода по всем строкам у StringList делаем savetofile . И все. -------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
|
|
| Правила форума "Delphi: Звук, графика и видео" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема » |
[ Время генерации скрипта: 0.0440 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |