bmp в массив

[palochka]

Нужно представить черно-белую картинку(отсканированные текст) в массив 0 и 1( где 1-черный пиксель,0-белый пиксель).Результат записываю в файл.
Код работает, но почему то в итоге в файле картина не полностью, только ее часть. Не зависит от размер картинки. Даже если маленькая -то все равно часть отображается. В чем может быть дело?

bmp1:=TBitmap.Create;
bmp1.LoadFromFile(Img);
SetLength(MasY,bmp1.Height);

assignfile(fv,'f1.txt'); 
 rewrite(fv);  

for j := 0 to bmp1.Height - 1 do
  begin                  
    MasY[j]:= bmp1.ScanLine[j];
end;
 
  for i:=0 to bmp1.Height - 1 do                   
       begin
        for j:=0 to bmp1.Width - 1 do  begin
          if MasY[i,j]<160 then begin
            write(fv,'1');end   else   write(fv,'0');
          end;
       write(fv,#13#10);
  end;
 closefile(fv);

Исходный файл


Вот что у меня получается

[Rin]

Просто вы выделяете мало места, вот и не вся картинка сохраняется.
Попробуйте выделять не просто Height,a Height*Width.
Правда, сначала хотелось бы увидеть какого типа переменная MasY.
И узнать, какая глубина цвета у изображения?
Чтобы узнать глубину цвета, после LoadFromFile() напишите showmessage(inttostr(bmp1.PixelForm at));

[palochka]

var MasY:array of Pbytearray;

Пишет ошибка. Inttostr не может быть вызван с этими аргументом

 showmessage(inttostr(bmp1.PixelFormat));

Но в инфе о картинке указана глубина цвета 24.

Пыталась выделять больше памяти, как вы сказали .Ничего не меняется. Видимо надо еще где то подправить. Не могу сообразить

SetLength(MasY,bmp1.Height*bmp1.Width);
SetLength(MasY,bmp1.Height*bmp1.Width*3);// И так тоже ничего не меняется

[BDA]

var
  bmp1: tbitmap;
  ls: tstringlist;
  Img, s: string;
  i, j: integer;
  c: tcolor;

begin
  img := '1.bmp';
  c := rgb(160, 160, 160);
  ls := tstringlist.create;
  bmp1 := TBitmap.Create;
  bmp1.LoadFromFile(Img);
  for i := 0 to bmp1.Height - 1 do
  begin
    s := '';
    for j := 0 to bmp1.Width - 1 do  
    begin
      if bmp1.canvas.pixels[j, i] < c then
        s := s + '1' else s := s + '0';
    end;
    ls.Add(s);
  end;
  ls.SaveToFile(img + '.txt');
  bmp1.Free;
  ls.Free;
end;

Вот так у меня работает.
Конечно, при использовании scanline можно получить ускорение, но, имхо, это не критично, по крайней мере, при такой обработке данных.

[palochka]

Спасибо огромное!!!!! Сейчас буду пробывать!!!!

Урааа!!!Работает!!!!!!!!!!

[s-andriano]

При глубине цвета 24 бита на один цвет нужно 3 байта, т.е. объем памяти, выделяемой под строку, должен втрое превосходить ее длину в пикселях.