Вывод данных BMP файла на форму

[Vasya]

Допустим данные считаны из BMP в массив типа longint есть ли какой нибудь метод для его перевода в изображение на форму?

[zetrix]

А рисовать по точкам можно?

Кстати ты знаешь структуру BMP файла? В каких байтах хранятся размеры, глубина цвета и прочее? Нарисуй BMP 10х20 пусть верхняя половина будет белая, а нижняя - чёрная. Потом открой в HEX-редакторе и всё поймёшь. (при полноцветном режиме на каждый пиксель идёт 3 байта для чёрного FF FF FF для белого 00 00 00 - RGB кароче.)
И ещё запись идёт обратная! Т.е. информация о самом первом пикселе - в конце, о последнем - в начале. Зная RGB каждого пикселя, размеры - можно всё нарисовать

Строки пикселей разделяются двумя пустыми байтами 00 00.

Черно былые как-то по другому хранятся. Может по битово, но я ещё не разобрался.

[Vasya]

А рисовать по точкам можно?

мне кажется так и надо рисовать

Кстати ты знаешь структуру BMP файла?В каких байтах хранятся размеры, глубина цвета и прочее?

это все хранится в заголовке файла, вот формат заголовка:

type
  artype = array[0..0]of byte;
  arptr = ^artype;
  bmFileHeader = packed record    {заголовок файла}
    Typf : word;        {сигнатура }
    Size : longint;     {длина файла в байтах}
    Res1 : word;        {зарезервировано}
    Res2 : word;        {зарезервировано}
    OfBm : longint;     {смещение изображения в байтах (1078)}
  end;
  bmInfoHeader = packed record   {информационный заголовок}
    Size : longint;       {длина заголовка в байтах (40)}
    Widt : longint;       {ширина изображения (в точках)}
    Heig : longint;       {высота изображения (в точках)}
    Plan : word;          {число плоскостей (1)}
    BitC : word;          {глубина цвета (бит на точку) (8)}
    Comp : longint;       {тип компрессии (0 - нет)}
    SizI : longint;       {размер изображения в байтах}
    XppM : longint;       {горизонтальное разрешение}
                   {(точек на метр - обычно 0)}
    YppM : longint;       {вертикальное разрешение}
                  {(точек на метр - обычно 0)}
    NCoL : longint;       {число цветов}
                  {(если максимально допустимое - 0)}
    NCoI : longint;       {число основных цветов}
  end;

Если прочитать сначала заголовок, а потом считать в переменную идущие за заголовком данные и попробовать их вывести. Так не получится?

[zetrix]

Должно получится. После заголовка сразу идут данные о последнем пикселе (правом нижнем), потом нижний препоследний и т.д.

[Vasya]

чет не получается с выводом на форму. с этой процедуры как можно на форму вывести?
вот код:
begin
assign(bmpfile,filename);
reset(bmpfile,1);
blockread(bmpfile,h,sizeof(h)); {чтение заголовка}
for i := 0 to yim-1 do begin {построчное чтение}
blockread(bmpfile,image^[(yim-i-1)*xim],xim);
if (xim mod 4) <> 0 then
blockread(bmpfile,s,4 - (xim mod 4));

end;
close(bmpfile);
end;
я так понимаю после blockread(bmpfile,image^[(yim-i-1)*xim],xim) нужно выводить элементы массива image на форму.
но какой процедурой это можно сделать???

[SteelRat]

Что-то вы сложности какие-то предлагаете. Просто компонент TIMAGE. В нем TBITMAP, в нём LoadFromFile или типа того. Простите за некоторую непонятность, я не программист вообще. =)

[mihali4]

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

Что-то вы сложности какие-то предлагаете. Просто компонент TIMAGE. В нем TBITMAP, в нём LoadFromFile или типа того. Простите за некоторую непонятность, я не программист вообще. =)

Почитайте тему с самого начала. Там, к сожалению, сказано о существующих ограничениях на способы решения задачи:

нужно вывести на форму не используя стандартные методы вывода BMP, то есть организовать самому полностью вывод файла.

Честно говоря, я сам пребываю в растерянности - слишком мало инфы. Хотелось бы, чтобы автор все же уточнил у препода, каким способом нужно решить сей этюд. А то мы можем нечаянно какую-нибудь ноу-хау сконстролить, а окажется, что все гораздо проще...

[SteelRat]

А, пардон. Вечно я тороплюсь.

[mihali4]

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

А, пардон. Вечно я тороплюсь.

Если это - быстрота ума, то можно только по хорошему позавидовать...
А если - просто торопливость, то это пройдет, не расстраивайтесь...
(Больше не флудим, а то накажут...)