Декодирование BMP

[Rezet]

Необходимо BMP представить в виде числовой матрицы по RGB, где каждому цвету одного пикселя соответствует число от 0 до 255. Для одной картинки необходимо три матрицы, одна для красного цвета, вторая для зеленого и третья для синего. Затем все три матрицы необходимо записать в разные txt (R.txt, G.txt, B.txt). Помогите, пожалуйста, с кодом))

[BOBAH13]

Чет я не понял.... какие еще матрицы.... Если битмап 24 битный то берете битовые данные и начинаите сканить их по 3 байта на каждый пиксель. Помогите с кодом... ммм... пора тоже делать как в разделе С++, за бесплатно распинатся никто не будет, во фриланс прямая дорога.

[Arigato]

Изучите формат BMP файла. Всё очень просто, читаете раздел данных, там как раз по 1 байту на 1 компоненту будет (если 24 бита).

[Rezet]

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

Чет я не понял.... какие еще матрицы....

Столбцы цифр называются матрицей))

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

Помогите с кодом... ммм... пора тоже делать как в разделе С++, за бесплатно распинатся никто не будет, во фриланс прямая дорога.

, тогда зачем форум если тут за деньги... Идея форума такова, ты помог, потом, когда-нибудь тебе помогут, безвозмездно, т.е. даром))
Я же не прошу написать мне код, а лишь интересуюсь, может кто уже писал и выложит))...

Собственно по поводу BMP я уже разобрался, все получилось)) Правда, без битмап, просто по пиксельная просматривал картинку и извлекал RGB.
А через битмап это проще? Где можно почитать по этой тематике?

[Д'якон]

По-пиксельно просматривал картинку???????
(в ближайший город тоже через Африку добираешься ? )

А просто скопировать файл в память и просматривать его? Только нужно формат файла знать. Можешь скачать 010Editor там бмп формат разобран по частям, когда загружаешь бмп файлы. Или почитай где-нить о формате

[BOBAH13]

Я же не прошу написать мне код

Помогите, пожалуйста, с кодом))

Мда... Ну да ладно. BMP и Битмап ? Это что по вашему разные вещи ? Формат элементарный, TBitmapFileInfo (Windows.pas). Да собственно и зачем... TBitmap.ScanLine[0] вот начало (хотя, может и TBitmap.ScanLine[TBitmap.Height - 1]) т.к. я давно уже им не пользовался. Потом

type
  PARGBTriple = ^TARGBTriple;
  TARGBTriple = array[0..0] of TRGBTriple;
var
  y, x: Integer;
  p: PARGBTriple;
begin
  for y:= 0 to TBitmap.Height - 1 do
  begin 
    p := TBitmap.ScanLine[y];
    for x:= 0 to TBitmap.Width - 1 do
    begin
      p^[x]..... тут уже думаю не составит труда большого понять поля записи TRGBTriple
    end;
  end;
end;

p.s. о каких то форматах говорите... и еще матрциы смешно, правда, как будто я незнал. Тут я себе не вижу матриц, я вижу "кучу" байт И форум предпологает, что вы что-либо УЖЕ сделали, и у вас что-то не получается, и только потом вам стараются помочь с ВАШИМ кодом. Из вопроса код отсутсвует и вообще какие либо идеи, ваш вопрос звучал как задание, а не вопрос.

[Rezet]

ВОВАН13, спасибо))