Работа с *.bmp изображением

@shonty · Регистрация: 23.01.2019

Студворк — интернет-сервис помощи студентам

Сразу говорю, что знания паскаля хуже чем "пишу и читаю со словарём".

Задача считывать пиксели с *.bmp изображений. Максимальный размер изображения 320х240px. Но чувствую, что до этого мне ещё далеко. Поэтому попорядку..

Я нашёл в сети как вывести в поле Memo содержимое текстового файла. Проверил, работает:

Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
 
begin
   if OpenDialog1.Execute then
  begin
        FName:= OpenDialog1.FileName;
        Memo1.Lines.LoadFromFile(FName);
  end;
end;

Предполагаю, что вывод изображения не сильно будет отличаться.

Поэтому вопросы:
1. Какой элемент создать на форме для загрузки *.bmp для дальнейшего считывания пикселей? (предполагаю, что Image)
2. На что изменить в диалоге строчку "Memo1.Lines.LoadFromFile(FName);" для Image?

@AzAtom · 19.03.2025, 17:03

shonty, bmp 4 и 8 битный умеет в RLE.

Добавлено через 4 минуты

Сообщение от shonty

Осталось получить

Получить черно-белый BMP? Много программ же есть, в чём проблема.
При желании, можно и самому написать преобразование цветного в чб, как я, например. Только нужно ли в данном случае?

@shonty · 19.03.2025, 17:12 **[ТС]**

Сообщение от AzAtom

shonty, bmp 4 и 8 битный умеет в RLE

RLE открывал хексом, то же преобразовывать нужно, как и БМП.
И у RLE вроде вывод с левого нижнего угла, строками и вверх..
А мне нужно с левого верхнего, столбцами вправо. Таковы настройки вывода изображения.

Да вроде уже получается и в паскале. Чуть позже по математике наверное небольшой вопрос возникнет.

У меня же просто последовательности байтовые. Вот к примеру цифры от 0 до 9 16x10px:

Никаких заголовков, всё в подпрограммах обрабатывается..

Verevkin · 19.03.2025, 17:14

Сообщение от shonty

И у RLE вроде вывод с левого нижнего угла, строками и вверх..

у bmp - тоже.

Сообщение от shonty

Никаких заголовков, всё в подпрограммах обрабатывается..

да мы поняли уже, успокойся.

@AzAtom · 19.03.2025, 18:03

Сообщение от shonty

RLE открывал хексом, то же преобразовывать нужно, как и БМП.

RLE это метод сжатия байтов, а сам по себе файл BMP.
И обычно да, в файле первой идёт самая нижняя строка. Но есть вариант (предусмотрено форматом), чтобы первым в файле шла верхняя строка изображения.

Сообщение от shonty

А мне нужно с левого верхнего, столбцами вправо.

Тут либо считанное размещать снизу, либо читать с конца. Только, при RLE сжатии остаётся только читать данные с начала и строки заполнять снизу.

Добавлено через 3 минуты

Сообщение от shonty

RLE открывал хексом, то же преобразовывать нужно, как и БМП.

RLE нужно декодировать, потом уже преобразования, если нужно.

@shonty · 20.03.2025, 17:26 **[ТС]**

Да и вообще RLE преобразовывать, оно же 32-х битное, а мне нужно для 8-ми битных контроллеров..
Проще оказалось свой формат замутить..

Ребят, всем благодарочка за помощь. Всё получилось. Слегка интерфейс только программе подправлю.. может быть

, а может нет ))

Verevkin · 20.03.2025, 17:52

Сообщение от shonty

Ребят, всем благодарочка за помощь. Всё получилось. Слегка интерфейс только программе подправлю.. может быть

Мы рады за тебя, ты молодец!

@shonty · 20.03.2025, 18:02 **[ТС]**

Сообщение от Verevkin

Мы рады за тебя

Verevkin, тебе персональное сенькью, ты единственный, кто верил в меня и ни разу не усомнился

Verevkin · 20.03.2025, 18:05

Сообщение от shonty

тебе персональное сенькью, ты единственный, кто верил в меня и ни разу не усомнился

Ну дык ёптыть, я ж оптимист!!! Мне не всё равно.

@AzAtom · 20.03.2025, 19:55

Сообщение от shonty

Да и вообще RLE преобразовывать, оно же 32-х битное, а мне нужно для 8-ми битных контроллеров..

Не понял, в чём связь? И откуда взялся 32 битный RLE в BMP? Или это уже не в BMP?

@shonty · 20.03.2025, 20:31 **[ТС]**

Сообщение от AzAtom

И откуда взялся 32 битный RLE в BMP?

аа.. ну когда хекс-редактором открывал, сначала из него хотел данные брать и преобразовывать. да.. попутал, это из-за файловой системы

Verevkin · 20.03.2025, 21:09

Сообщение от shonty

это из-за файловой системы

@shonty · 21.03.2025, 15:45 **[ТС]**

Ребят, подскажите ещё по такому вопросу:
Конвертация иногда проходит быстро, иногда занимает некоторое время, на глаз видно.
Я сделал "строку сосояния" куда выводятся ошибки и т.п..
И вот когда конвертацию запускаю, то сообщение выводится только по окончании процесса. Как будто нет обновления формы.
Можно это как то обойти?

Pascal
1
2
3
4
5
6
procedure TForm1.Button3Click(Sender: TObject);
begin
Label13.Font.Color:=clRed;
Label13.Caption:='КОНВЕРТАЦИЯ';   // информация
...
...

Verevkin · 21.03.2025, 15:56

Сообщение от shonty

Можно это как то обойти?

Обойти-то можно, но лучше сделать конвертацию мгновенной.

@shonty · 21.03.2025, 16:16 **[ТС]**

Сообщение от Verevkin

но лучше сделать конвертацию мгновенной.

Для личного и не частого использования скорость приемлемая. 320х240 примерно секунду с небольшим. Дольше в редакторе рисовать и во флеш контроллера заливать.

@AzAtom · 21.03.2025, 16:40

Сообщение от shonty

Конвертация иногда проходит быстро, иногда занимает некоторое время, на глаз видно.

Возможно, можно ускорить. Для более точного ответа нужно видеть код (а лучше проект), а он не предоставлен.

Сообщение от shonty

320х240 примерно секунду с небольшим.

Долго что-то.

Добавлено через 55 секунд

Сообщение от shonty

Можно это как то обойти?

Можно. Но от этого время выполнения может увеличиться.

@shonty · 21.03.2025, 16:44 **[ТС]**

Сообщение от AzAtom

Но от этого время выполнения может увеличиться.

Да без разницы на время..

@AzAtom · 21.03.2025, 16:52

Можно после обработки строки/присвоения Label.Caption := выполнять

Delphi
1
  Application.ProcessMessages;

тогда, Label будут обновляться во время преобразования.
Но нужно предусмотреть защиту от повторного исполнения кода. Например, как поле добавить флаг, если он установлен, то выход из этого обработчика.

@shonty · 21.03.2025, 17:05 **[ТС]**

Нагуглил такое "Form1.Update;":

Pascal
1
2
3
4
5
6
7
8
9
procedure TForm1.Button3Click(Sender: TObject);
begin
Label13.Font.Color:=clRed;
Label13.Caption:='КОНВЕРТАЦИЯ';   // информация
Form1.Update;
...
...
...
   Label13.Caption:='';   // информ. строка

Работает.

Сообщение от AzAtom

Можно после обработки строки/присвоения Label.Caption := выполнять
DelphiСкопировано
1
Application.ProcessMessages;

Ваш метод также рабочий.
Спасибо.

Добавлено через 6 минут
Методом научного тыка

Pascal
1
Label13.Update;

@shonty · 23.03.2025, 15:12 **[ТС]**

Пока паскаль не закрыл.. решил для 4-х и 8-ми цвЕтных изображений написать.
А то потом не заставлю себя его открыть

Но только формат байта поменял. Сначала индекс цвета идёт, потом кол-во пикселей. Так удобнее обработку писать.

Verevkin · 23.03.2025, 15:18

Новые блоги и статьи Все статьи Все блоги /
[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .

@shonty 47 / 45 / 2 Регистрация: 23.01.2019 Сообщений: 358
	20.03.2025, 17:26 [ТС]
	Да и вообще RLE преобразовывать, оно же 32-х битное, а мне нужно для 8-ми битных контроллеров.. Проще оказалось свой формат замутить.. Ребят, всем благодарочка за помощь. Всё получилось. Слегка интерфейс только программе подправлю.. может быть , а может нет )) 0

@shonty 47 / 45 / 2 Регистрация: 23.01.2019 Сообщений: 358
	23.03.2025, 15:12 [ТС]
	Пока паскаль не закрыл.. решил для 4-х и 8-ми цвЕтных изображений написать. А то потом не заставлю себя его открыть Но только формат байта поменял. Сначала индекс цвета идёт, потом кол-во пикселей. Так удобнее обработку писать. 1

Verevkin Злостный нарушитель 10878 / 5817 / 1288 Регистрация: 12.03.2015 Сообщений: 26,855
	23.03.2025, 15:18
	0