Developing.ru

oif писал(а):Всем спасибо разобрался.

&quot писал(а):У меня получаются через canvas.pixels тысячи.

Var P:PByteArray;
-=Bla=--=Bla=--=Bla=
P := YourBitmap.Canvas.Pixels[row];
GrayPixel1 := P[0];
GrayPixel2 := P[1];
-=Bla=--=Bla=--=Bla=-

Absurd писал(а): BMP прочитать не можешь, а в ряд Фурье разложить можешь?

oif писал(а):Меня интересует как по байтно считать,и сколько байт выделяется на 1 пиксель в монохромном рисунке.

oif писал(а): Т.е задача состоит в следущем есть BMP,считываем из него значения пикселей по строчно и раскладываем данный ряд с помощью преобразований фурье.

Duncon писал(а):Я бы шабку обошел просто (у bmp 2 заголовка)

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

var
  fh: TBitmapfileheader;
  ih: TBitmapinfoheader;
  s: TFileStream;
begin
  s := TFileStream.Create(Form1.OPicDial.FileName, fmOpenRead);
  try
    s.Read(fileh, SizeOf(fileh));
    s.Read(infoh, SizeOf(infoh));
    {Все с этого места идет непосредственно изображение}
  finally
    s.Free;
  end;
end;