Читал эту тему, без описания модулей трудно понять.
Возможна реализация на Дельфи.

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
![]() ![]() |
![]() |
Vinchkovsky |
![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 98 Пол: Мужской Реальное имя: Andriy Репутация: ![]() ![]() ![]() |
Есть следующая задача - открыть небольшой графический файл (64*64) и записать массив массивов цветов этих точек. Вторая часть ясна, но как прочитать информацию о пикселе?
Читал эту тему, без описания модулей трудно понять. Возможна реализация на Дельфи. ![]() |
мисс_граффити |
![]()
Сообщение
#2
|
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
Цитата Возможна реализация на Дельфи. что-то типа такого? var pic:TBitmap; Сообщение отредактировано: мисс_граффити - -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
klem4 |
![]()
Сообщение
#3
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Цитата но как прочитать информацию о пикселе GetPixel(x, y: Integer): Word; // вернет цвет Это для Pascal'я -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Vinchkovsky |
![]()
Сообщение
#4
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 98 Пол: Мужской Реальное имя: Andriy Репутация: ![]() ![]() ![]() |
Большое спасибо... Но я с этим в первый раз на Дельфи сталкиваюсь, возник ламерский вопрос - как собственно открыть графический файл (чтобы появилось окно проводника)? Буду очень рад ссылке на FAQ по этой теме.
![]() |
mamont001 |
![]()
Сообщение
#5
|
![]() Вожак стада ![]() ![]() ![]() Группа: Пользователи Сообщений: 179 Пол: Мужской Реальное имя: кирилл Репутация: ![]() ![]() ![]() |
Ставиш компонент OpenPictureDialog и лезеш в help
-------------------- Админ наш,
Иже еси на серверах! Да святится имя Твое, Да приидет Unix Твой, Да будет воля Твоя, Как на земле , так и на небе. Пинг наш насущный дай нам на сей день; И прости нам счета наши, как и мы оставляем их должникам нашим; И не введи нас во искушение виндовое, Но избавь нас от лукавого Билли. И да пребудет с нами сила твоя великая, Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь! |
Vinchkovsky |
![]()
Сообщение
#6
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 98 Пол: Мужской Реальное имя: Andriy Репутация: ![]() ![]() ![]() |
Почти со всем разобрался, спасибо за помощь.
Возникла следующая проблема: загружаю графический файл, он появляется на экране, после нажатия кнопки с кодом: pic:=TBitMap.Create; В Edit1.Text все супер, но фон окна становится таким же, какой и цвет пиксела. Почему? Как с этим справится? Уже понял, что немного ошибся разделом форума. ![]() |
volvo |
![]()
Сообщение
#7
|
Гость ![]() |
Цитата Почему? Как с этим справится? Почему? Потому, что под Color здесь имеется в виду TForm.Color (наведи мышь на слово Color, и ты увидишь это).Как справиться? Вводить доп. переменную, например, myColor: TColor, и делать: ... |
-vinchkovsky- |
![]()
Сообщение
#8
|
Гость ![]() |
volvo , большое спасибо. (Хотя не совсем понятно,почему локальная переменная имеет желаемое действие в отличии от глобальной)
![]() Ещё один вопрос - почему операцией открытия графических файлов не удается открыть .jpeg файлы? Код кнопки: procedure TForm1.Button1Click(Sender: TObject); Фильтр: Код (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf) ![]() |
volvo |
![]()
Сообщение
#9
|
Гость ![]() |
Цитата Хотя не совсем понятно,почему локальная переменная имеет желаемое действие в отличии от глобальной Рассказываю: То, что использовал ты - это НЕ глобальная переменная, а property (свойство) класса TForm, которое как раз и отвечает за то, что изменяет цвет формы (даже если у тебя и описана где-то глобальная переменная с тем же именем, преимущество здесь будет иметь именно property, и именно с ним осуществляется работа). Как ты думаешь, что будет, если задать этому свойству какой-то цвет? А ничего, кроме того, что должно быть: цвет формы изменится. Что ты и наблюдал. А локальная переменная избавляет тебя от подобного поведения...А чтобы открывать Jpeg файлы, надо подключить модуль Jpeg в Uses... |
![]() ![]() |
![]() |
Текстовая версия | 25.03.2023 12:28 |