Как загрузить изображение в нейросеть?

[andrejf92]

Как преобразовать изображение в адекватный вектор входных данных?
Хотя бы в общих словах, пожалуйста!!!

[Abstraction]

Если у нас есть изображение в градациях серого, размера, скажем, 8х8, то каждому пикселю соответствует число от 0 (чёрный) до 1 (белый). 64 нейрона на входе решают проблему.
Если изображение цветное, то, в зависимости от задачи, его следует или сделать чёрно-белым, или разложить по каналам (скажем, в цветовом пространстве RGB каждому пикселю соответствует сочетание интенсивностей трёх цветов - красного, зелёного и синего). Во втором случае количество входных нейронов, соответственно, утраивается.

[andrejf92]

Я взял белый квадрат 10х10 пикселей в bmp формате.
Записал каждый байт hex числами в текстовый файл.
В заголовках указано с какого байта начинается растр.

Но как получить саму матрицу начиная с указанного байта?

Заголовок файла
0x42 0x4d
0x66 0x0 0x0 0x0
0x0 0x0
0x0 0x0
0x3e 0x0 0x0 0x0
Заголовок BITMAP (Информация об изображении)
0x28 0x0 0x0 0x0
0xa 0x0 0x0 0x0
0xa 0x0 0x0 0x0
0x1 0x0
0x1 0x0
0x0 0x0 0x0 0x0
0x28 0x0 0x0 0x0
0x0 0x0 0x0 0x0
0x0 0x0 0x0 0x0
0x0 0x0 0x0 0x0
0x0 0x0 0x0 0x0
Палитра (Карта цветов для N цветов), если используется
0x0 0x0 0x0 0x0
0xffffffff
0xffffffff 0xffffffff 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0xffffffff
0xffffffc0 0x0 0x0 0x0

[Abstraction]

То есть, задача всё-таки называется - "как прочитать .bmp-файл"? Вроде есть распространённые библиотеки, но по смыслу - из заголовка читаете размер матрицы, начало матрицы и количество бит на пиксель. Если формат беспалитровый (а в последнее время они обычно такие), просто переходите на начало матрицы и читаете в память пиксели блоками нужного размера. Сохраняете в массив пикселей размера (ширина Х высота).

[waleri]

А зачем загонять в текстовый файл я не понял?

[andrejf92]

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

А зачем загонять в текстовый файл я не понял?

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

[Михаил22042016]

лучше поздно чем никогда

type 
  TArrayOfreal  =  Array of real;
  PixelRGB = packed record b,g,r: byte; end;
  tXarray = array[0..0] of PixelRGB;
  Xarray = ^tXarray;
  YXarray = array of Xarray; 

function BMtoVektor(inBM: TBitmap):TArrayOfreal;
var y,x : Integer;  Skan:YXarray;
begin
  SetLength(Result,inBM.Height*inBM.Width);
  inBM.PixelFormat:=pf24bit;
  SetLength(Skan,inBM.Height);
    //  перебор пикселей по Y
    for y := 0 to inBM.Height-1 do  //  перебор пикселей по Y
    begin
      Skan[y]:= inBM.ScanLine[y];
      for x := 0 to inBM.Width-1 do begin // перебор пикселей по X Col:=Skan[y,x].r;
        if Skan[y,x].r < 128 then begin
        Result[(inBM.Width*y)+x]:= 0.1;
        if Form1.chk1.Checked then
         TXT.CommaText:=TXT.CommaText+('1');
        end else begin
        Result[(inBM.Width*y)+x]:= 0;
        if Form1.chk1.Checked then
        TXT.CommaText:=TXT.CommaText+('0');
        end;
      end;
      if Form1.chk1.Checked then
      TXT.Text:=TXT.Text+#13#10;
    end;
end;

var TXT:TStringList; для визуализации, после получения вектора его можно увидеть в MEMO
mmo1.Text:=TXT.Text;

так можно