Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
103 / 74 / 10
Регистрация: 29.05.2010
Сообщений: 192

Изображение (массив байт)

31.05.2011, 15:40. Показов 1993. Ответов 3
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
у меня есть ч/б изображение в одномерном массиве байт (0 - черное, 1 - белое)
вопрос: как это изображение вывести на экран, чет никак не вкурю
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 31.05.2011, 15:40
Ответы с готовыми решениями:

Загрузить изображение в массив
Опишите пожалуйста начинающему программисту каким образом можно загрузить черно-белое bmp изображение в двумерный бинарный массив.

Записать изображение BMP в массив байт
Подскажите пожалуйста как записать BMP в массив байт и потом оттуда обратно заранее благодарен

Как массив байтов (1 байт на пиксель (изображение в оттенках серого) запихнуть в Bitmap и отобразить в PicterBox?
Здравствуйте! Мне понадобилось каждое входящее изображение переводить в изображение в градациях серого (256 цветов). В Bitmap, я так понял,...

3
 Аватар для QVO
652 / 462 / 80
Регистрация: 26.10.2010
Сообщений: 1,263
Записей в блоге: 4
31.05.2011, 15:47
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

        for(int i = 0; i < Count; i++)
        {
                for(int j = 0; j < Count; j++)
                {
                        if(Mass[i][j]=='0')
                        {
                                // Draw White
                        }
                        else if(Mass[i][j]=='1')
                        {
                                // Dram Black
                        }
                }
 
        }
0
103 / 74 / 10
Регистрация: 29.05.2010
Сообщений: 192
31.05.2011, 15:49  [ТС]
ну это мне тоже пришло в голову, но уж больно сурово)
да еще и медленно
0
 Аватар для QVO
652 / 462 / 80
Регистрация: 26.10.2010
Сообщений: 1,263
Записей в блоге: 4
31.05.2011, 16:06
Можно, но долго писать

Добавлено через 2 минуты
Можно переписать:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255

// Пример того, как использовать Bitmap.Scanline для PixelFormat=pf1Bit.   
// По просьбе Mino Ballone из Италии.   
//   
// Авторское право (C) 1997, Earl F. Glynn, Overland Park, KS.   
// Все права защищены.   
// Может свободно использоваться для некоммерческих целей.   
    
unit ScreenSingleBit;   
    
interface  
    
uses  
    
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   
  StdCtrls, ExtCtrls;   
    
type  
    
  TForm1 = class(TForm)   
    Image1: TImage;   
    ButtonBlack: TButton;   
    ButtonWhite: TButton;   
    ButtonStripes: TButton;   
    ButtonG: TButton;   
    ButtonArrow: TButton;   
    ButtonRandom: TButton;   
    ButtonInvert: TButton;   
    procedure ButtonStripesClick(Sender: TObject);   
    procedure ButtonGClick(Sender: TObject);   
    procedure FormCreate(Sender: TObject);   
    procedure FormDestroy(Sender: TObject);   
    procedure ButtonRandomClick(Sender: TObject);   
    procedure ButtonInvertClick(Sender: TObject);   
    procedure ButtonArrowClick(Sender: TObject);   
  private  
    Bitmap: TBitmap;   
    { Private declarations }  
  public  
    { Public declarations }  
  end;   
    
var  
    
  Form1: TForm1;   
    
implementation  
    
{$R *.DFM}  
    
const  
    
  BitsPerPixel = 8;   
    
procedure TForm1.ButtonStripesClick(Sender: TObject);   
    
var  
  i: INTEGER;   
  j: INTEGER;   
  Row: pByteArray;   
  Value: BYTE;   
begin  
    
  Value := (Sender as TButton).Tag;   
  // Value = $00 = 00000000 в двоичном исчислении для черного   
  // Value = $FF = 11111111 в двоичном исчислении для белого   
  // Value = $55 = 01010101 в двоичном исчислении для черных и белых полос   
    
  for j := 0 to Bitmap.Height - 1 do  
  begin  
    Row := pByteArray(Bitmap.Scanline[j]);   
    for i := 0 to (Bitmap.Width div BitsPerPixel) - 1 do  
    begin  
      Row[i] := Value   
    end  
  end;   
    
  Image1.Picture.Graphic := Bitmap   
end;   
    
procedure TForm1.ButtonGClick(Sender: TObject);   
    
const  
  {Изображение "g" было адаптировано для печати на принтере  
  LaserJet IIP в соответствии с техническим руководством}  
    
  G: array[0..31, 0..3] of BYTE =   
  { 0}(($00, $FC, $0F, $C0), {00000000 11111100 00001111 11000000}  
    { 1}($07, $FF, $1F, $E0), {00000111 11111111 00011111 11100000}  
    { 2}($0F, $FF, $9F, $C0), {00001111 11111111 10011111 11000000}  
    { 3}($3F, $D7, $DE, $00), {00111111 11010111 11011110 00000000}  
    { 4}($3E, $01, $FE, $00), {00111110 00000001 11111110 00000000}  
    { 5}($7C, $00, $7E, $00), {01111100 00000000 01111110 00000000}  
    { 6}($78, $00, $7E, $00), {01111000 00000000 01111110 00000000}  
    { 7}($F0, $00, $3E, $00), {11110000 00000000 00111110 00000000}  
    { 8}($F0, $00, $3E, $00), {11110000 00000000 00111110 00000000}  
    { 9}($F0, $00, $1E, $00), {11110000 00000000 00011110 00000000}  
    {10}($F0, $00, $1E, $00), {11110000 00000000 00011110 00000000}  
    {11}($F0, $00, $1E, $00), {11110000 00000000 00011110 00000000}  
    {12}($F0, $00, $1E, $00), {11110000 00000000 00011110 00000000}  
    {13}($F0, $00, $3E, $00), {11110000 00000000 00111110 00000000}  
    {14}($78, $00, $3E, $00), {01111000 00000000 00111110 00000000}  
    {15}($78, $00, $3E, $00), {01111000 00000000 00111110 00000000}  
    {16}($78, $00, $7E, $00), {01111000 00000000 01111110 00000000}  
    {17}($3C, $00, $FE, $00), {00111100 00000000 11111110 00000000}  
    {18}($1F, $D7, $DE, $00), {00011111 11010111 11011110 00000000}  
    {19}($0F, $FF, $5E, $00), {00001111 11111111 10011110 00000000}  
    {20}($07, $FF, $1E, $00), {00000111 11111111 00011110 00000000}  
    {21}($00, $A8, $1E, $00), {00000000 10101000 00011110 00000000}  
    {22}($00, $00, $1E, $00), {00000000 00000000 00011110 00000000}  
    {23}($00, $00, $1E, $00), {00000000 00000000 00011110 00000000}  
    {24}($00, $00, $1E, $00), {00000000 00000000 00011110 00000000}  
    {25}($00, $00, $3E, $00), {00000000 00000000 00111110 00000000}  
    {26}($00, $00, $3C, $00), {00000000 00000000 00111100 00000000}  
    {27}($00, $00, $7C, $00), {00000000 00000000 01111100 00000000}  
    {28}($00, $01, $F8, $00), {00000000 00000001 11111000 00000000}  
    {29}($01, $FF, $F0, $00), {00000001 11111111 11110000 00000000}  
    {30}($03, $FF, $E0, $00), {00000011 11111111 11100000 00000000}  
    {31}($01, $FF, $80, $00)); {00000001 11111111 10000000 00000000}  
    
var  
  i: INTEGER;   
  j: INTEGER;   
  Row: pByteArray;   
begin  
    
  for j := 0 to Bitmap.Height - 1 do  
  begin  
    Row := pByteArray(Bitmap.Scanline[j]);   
    for i := 0 to (Bitmap.Width div BitsPerPixel) - 1 do  
    begin  
      Row[i] := G[j, i]   
    end  
  end;   
    
  Image1.Picture.Graphic := Bitmap   
end;   
    
procedure TForm1.ButtonArrowClick(Sender: TObject);   
    
const  
  {Изображение "стрелка" было адаптировано для печати на принтере  
  LaserJet IIP в соответствии с техническим руководством}  
    
  Arrow: array[0..31, 0..3] of BYTE =   
  { 0}(($00, $00, $80, $00), {00000000 00000000 10000000 00000000}  
    { 1}($00, $00, $C0, $00), {00000000 00000000 11000000 00000000}  
    { 2}($00, $00, $E0, $00), {00000000 00000000 11100000 00000000}  
    { 3}($00, $00, $F0, $00), {00000000 00000000 11110000 00000000}  
    { 4}($00, $00, $F8, $00), {00000000 00000000 11111000 00000000}  
    { 5}($00, $00, $FC, $00), {00000000 00000000 11111100 00000000}  
    { 6}($00, $00, $FE, $00), {00000000 00000000 11111110 00000000}  
    { 7}($00, $00, $FF, $00), {00000000 00000000 11111111 00000000}  
    { 8}($00, $00, $FF, $80), {00000000 00000000 11111111 10000000}  
    { 9}($FF, $FF, $FF, $C0), {11111111 11111111 11111111 11000000}  
    {10}($FF, $FF, $FF, $E0), {11111111 11111111 11111111 11100000}  
    {11}($FF, $FF, $FF, $F0), {11111111 11111111 11111111 11110000}  
    {12}($FF, $FF, $FF, $F8), {11111111 11111111 11111111 11111000}  
    {13}($FF, $FF, $FF, $FC), {11111111 11111111 11111111 11111100}  
    {14}($FF, $FF, $FF, $FE), {11111111 11111111 11111111 11111110}  
    {15}($FF, $FF, $FF, $FF), {11111111 11111111 11111111 11111111}  
    {16}($FF, $FF, $FF, $FF), {11111111 11111111 11111111 11111111}  
    {17}($FF, $FF, $FF, $FE), {11111111 11111111 11111111 11111110}  
    {18}($FF, $FF, $FF, $FC), {11111111 11111111 11111111 11111100}  
    {19}($FF, $FF, $FF, $F8), {11111111 11111111 11111111 11111000}  
    {20}($FF, $FF, $FF, $F0), {11111111 11111111 11111111 11110000}  
    {21}($FF, $FF, $FF, $E0), {11111111 11111111 11111111 11100000}  
    {22}($FF, $FF, $FF, $C0), {11111111 11111111 11111111 11000000}  
    {23}($00, $00, $FF, $80), {00000000 00000000 11111111 10000000}  
    {24}($00, $00, $FF, $00), {00000000 00000000 11111111 00000000}  
    {25}($00, $00, $FE, $00), {00000000 00000000 11111110 00000000}  
    {26}($00, $00, $FC, $00), {00000000 00000000 11111100 00000000}  
    {27}($00, $00, $F8, $00), {00000000 00000000 11111000 00000000}  
    {28}($00, $00, $F0, $00), {00000000 00000000 11110000 00000000}  
    {29}($00, $00, $E0, $00), {00000000 00000000 11100000 00000000}  
    {30}($00, $00, $C0, $00), {00000000 00000000 11000000 00000000}  
    {31}($00, $00, $80, $00)); {00000000 00000000 10000000 00000000}  
    
var  
  i: INTEGER;   
  j: INTEGER;   
  Row: pByteArray;   
begin  
    
  for j := 0 to Bitmap.Height - 1 do  
  begin  
    Row := pByteArray(Bitmap.Scanline[j]);   
    for i := 0 to (Bitmap.Width div BitsPerPixel) - 1 do  
    begin  
      Row[i] := arrow[j, i]   
    end  
  end;   
    
  Image1.Picture.Graphic := Bitmap   
end;   
    
procedure TForm1.FormCreate(Sender: TObject);   
begin  
    
  Bitmap := TBitmap.Create;   
  with Bitmap do  
  begin  
    Width := 32;   
    Height := 32;   
    PixelFormat := pf1bit   
  end;   
  Image1.Picture.Graphic := Bitmap   
end;   
    
procedure TForm1.FormDestroy(Sender: TObject);   
begin  
    
  Bitmap.Free   
end;   
    
procedure TForm1.ButtonRandomClick(Sender: TObject);   
    
var  
  i: INTEGER;   
  j: INTEGER;   
  Row: pByteArray;   
begin  
    
  for j := 0 to Bitmap.Height - 1 do  
  begin  
    Row := pByteArray(Bitmap.Scanline[j]);   
    for i := 0 to (Bitmap.Width div BitsPerPixel) - 1 do  
    begin  
      Row[i] := Random(256)   
    end  
  end;   
    
  Image1.Picture.Graphic := Bitmap   
end;   
    
procedure TForm1.ButtonInvertClick(Sender: TObject);   
    
var  
  i: INTEGER;   
  j: INTEGER;   
  Row: pByteArray;   
begin  
    
  for j := 0 to Bitmap.Height - 1 do  
  begin  
    Row := pByteArray(Bitmap.Scanline[j]);   
    for i := 0 to (Bitmap.Width div BitsPerPixel) - 1 do  
    begin  
      Row[i] := not Row[i]   
    end  
  end;   
    
  Image1.Picture.Graphic := Bitmap   
end;   
    
end.
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 31.05.2011, 16:06
Помогаю со студенческими работами здесь

Дан массив из 10 байт. Посчитать количество байт, в которых сброшены 6 и 4 биты
Дан массив из 10 байт. Посчитать количество байт,в которых сброшены 6 и 4 биты. Массив байтов размещается начиная с DS:0000h. Ответ должен...

Дан массив из 11 байт. Подсчитать количество байт с нечетным числом 1 в байте
Дан массив из 11 байт. Подсчитать количество байт с нечетным числом 1 в байте.-Assembler помогите пожалуйста

Дан массив из 10 байт. Посчитать количество байт содержащих ровно три единицы
Здравствуйте, возникла проблема с решением задачи: &quot;Дан массив из 10 байт. Посчитать количество байт содержащих ровно три...

Дан массив из 6 байт. Посчитать количество байт число единиц, в которых не превышает 3.
Дан массив из 6 байт. Посчитать количество байт число единиц, в ко- торых не превышает 3. блин люди немогу сделать.

Дан массив из 13 байт. Посчитать количество байт содержащих только нули или единицы
ПОЖАЛУЙСТА! РЕШИТЕ ЗАДАЧКИ!!!:) Задача №1 дан массив из 13 байт. посчитать количество байт содержащих только нули или единицы. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru