Сохранить пиксел в файл

[K.Sergey]

Помогите!

Есть код цвета. Нужно этот цвет сохранить в файл в виде одного пиксела (ну, или несколько, но чтобы они все были этого же цвета)...

Заранее спасибо!

[Amed]

Самый простой способ - кинуть на форму PictureBox размером 1х1 пикселя, потом Pset'ом в точку (0,0) кинуть нужный цвет и вызвать SavePicture.

[Amed]

Код: Выделить всё

Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Move 250, 250, 16 * 5, 16 * 5
Picture1.Line (0, 0)-(16 * 5, 16 * 5), RGB(255, 0, 0), BF
Picture1.Picture = Picture1.Image
SavePicture Picture1.Picture, "C:\123.bmp"
End Sub


[K.Sergey]

Самый простой способ - кинуть на форму PictureBox размером 1х1 пикселя, потом Pset'ом в точку (0,0) кинуть нужный цвет и вызвать SavePicture.

Спасибо за наводку, но на самом деле, я планировал это использовать также и в VBA проектах. А там нет PictureBox. Есть ли какой-нибудь другой способ, который работал бы и в VBA?

[Amed]

Роем в сторону формата .bmp файлов... Сейчас дам наводку на статеечку...

А суть в том, что мы ручками слепим bmp-файлик с одним-единственным (а, может, и не единственным) пикселем нужного цвета...

[Amed]

http://graphics.cs.msu.ru/courses/cg99/ ... bmpfmt.htm
Подсказки нужны? Вроде бы, всё достаточно чётко расписано...

[K.Sergey]

http://graphics.cs.msu.ru/courses/cg99/notes/lect3/bmpfmt.htm
Подсказки нужны? Вроде бы, всё достаточно чётко расписано...

Был бы бесконечно благодарен за подсказки, т.к. ничего не понял...

[Amed]

Открываем файл для двоичного доступа

Код: Выделить всё

Open "C:\123.bmp" For Binary As #1


Пишем в него данные побайтно согласно таблице данных bmp-шника...

Код: Выделить всё

Put #1, 1, "B"
Put #1, 2, "M"
'...
'и так далее
'...


Когда доходим до таблицы цветов, заполняем только 1 нужный нам цвет, остальные можно оставить нулевыми
А в разделе "BITMAP DATA" вообще будет только 1 байт со значением "0" (если картинка у нас 1х1)...
И не забываем закрыть файл

Код: Выделить всё

Close #1


[tyomitch]

Chr("B") - это шедевр... Может, исправишь?

[_Мика_]

Chr("B") - это шедевр... Может, исправишь?

Это точно!

[K.Sergey]

Amed, спасибо за наводку. Пойду разбираться (первый раз встречаюсь с побайтным составлением файла). Если у кого есть пример, был бы благодарен...

[Amed]

Chr("B") - это шедевр... Может, исправишь?

А-а, так вот что мне бросалось в глаза
В затылочной части мозга звенит тревога, а откель звон, не пойму

[tyomitch]

FTR, всё ещё неправильно: Asc возвращает Integer, и ты записываешь два байта. Надо просто

Код: Выделить всё

Put #1, 0, "B"
Put #1, 1, "M"
'...
'и так далее
'...


[Amed]

Действительно, проверил...
Если писать

Код: Выделить всё

Put #1, 1, Asc("B")


(кстати, начинать надо не с 0 байта, а с 1), то указатель перейдёт сразу на байт 3, минуя 2...

[tyomitch]

Последний раз редактировалось: Amed (20.02.2005 (Вс) 01:17), всего редактировалось 3 раз(а)

Теперь вроде всё правильно... "Three times is a charm" (c)

[Amed]

Три раза - это ещё ничего... Мне препод как-то на экзамене по АГ (аналитической геометрии) заявил
"Медведев! Ладно бы вы запутались в трёх соснах, но ведь вы запутались в одной сосне!"

А K.Sergey что-то молчит... Если Вам всё ещё непонятно, то порекомендую вот что (ещё одна наводка): сделать

Код: Выделить всё

Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.Move 250, 250, 16 * 5, 16 * 5
Picture1.Line (0, 0)-(16 * 5, 16 * 5), RGB(255, 0, 0), BF
Picture1.Picture = Picture1.Image
SavePicture Picture1.Picture, "C:\123.bmp"
End Sub


Потом открыть C:\123.bmp хекс-вьювером и записывать побайтно такие же циферки в код записи в файл
Заменять надо только в двух местах - первый цвет палитры и первый пиксель (а может, и только в одном)...

[tyomitch]

В BMP, создаваемых VB, нет палитры. (так, к сведению)

[Amed]

Гы )
Сейчас не хочется копаться, вечером исследую, как и что...

[tyomitch]

Палитра есть только в 8-и-меньше-битных BMP. VB их сохраняет с экранным разрешением. Поскольку никто сейчас не сидит с разрешением 8 бит, то это будет 16-и-более.

[Amed]

Ты имеешь в виду, что вся палитра заполнена нулями, а каждый пиксель определён 2 и более байтами согласно описанию (слева направо сверху вниз)? Или палитры в этом случае вообще нет?

[tyomitch]

Вообще нет - зачем же хранить столько нулей?
А ещё, BMP обычно хранятся снизу вверх

[Amed]

А! И верно!

Как-то писал криптопрограмму. Она зашивала файл внутрь bmp-картинки так, чтобы не было видно, что что-то внутрь записано. Получалась картинка с чуть подпорченными отдельными пикселями, вроде шума. Тогда пришлось изучить формат bmp-шника... Сейчас пойду найду исходник, и выложу в Наши проекты =)