обработка изобряжения. язык делфи.

[s-andriano]

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

Спасибо!
Я попробовала все это дела запустить, и вот у меня ошибка в этой строчке

Lightness:=(r+g)/2;

[DCC Error] Unit1.pas(362): E2010 Incompatible types: 'Byte' and 'Extended'
[DCC Fatal Error] Project1.dpr(6): F2063 Could not compile used unit 'Unit1.pas'

Поменяйте дробное деление на целочисленное.

[Swordaria]

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

Я немного ошибся в старом коде.
Я ставил на bitmap самую правую и нижнюю точку каждого блока
Нужно вот так:

procedure TForm1.Button1Click(Sender: TObject);
const
  norm = 64;
var
  bm: tbitmap;
  i, j, z, q: integer;
  R, G, b: byte;
  Y: integer;
  count: integer;
begin
  with Image1.Picture.Bitmap do
  begin
    bm := tbitmap.Create;
    bm.Width := Width div 8 + 1 mod (1 + Width mod 8);
    bm.height := height div 8 + 1 mod (1 + height mod 8);
    for i := 0 to bm.Width - 1 do
      for j := 0 to bm.height - 1 do
      begin
        caption := inttostr(i) + ' ' + inttostr(j);
        Y := 0;
        count := (min(8 * i + 8, Width - 1) - 8 * i) *
          (min(8 * j + 8, height - 1) - 8 * j);
        for z := 8 * i to min(8 * i + 8, Width - 1) do
          for q := 8 * j to min(8 * j + 8, height - 1) do
          begin
            R := canvas.pixels[z, q];
            G := canvas.pixels[z, q] shr 8;
            b := canvas.pixels[z, q] shr 16;
            Y := Y + round(0.59 * G + 0.3 * R + 0.11 * b);
          end;
        if Y / count > norm then
          bm.canvas.pixels[i, j] := clwhite
        else
          bm.canvas.pixels[i, j] := clblack;
      end;
    bm.savetofile('1.bmp');
    bm.free;
  end;
end;

ПС Я писал простенький цифро распознаватель. Распознает 1 рукописную цифру, иногда

И это уже достижение)
Хотя у меня скорей не распознаватель будет, а сравниватель)

а можно теперь сделать так... записать каждый пиксель как 0 или 1, у меня изображение ч.б. типа матрицы сделать?

[Swordaria]

Сообщение от s-andriano

Поменяйте дробное деление на целочисленное.

Спасибо, помогло) Только результат похож на обычную бинаризацию..

[BDA]

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

а можно теперь сделать так... записать каждый пиксель как 0 или 1, у меня изображение ч.б. типа матрицы сделать?

Во-первых, не злоупотребляйте цитированием, можно даже просто написать в виде обращения.
Во-вторых, в bm и получилась матрица (черный пиксель - 0, белый - 1).
Но можно создать динамический массив и писать в него:

procedure TForm1.Button2Click(Sender: TObject);
const
  norm = 64;
var
  bm: array of array of byte;
  i, j, z, q: integer;
  R, G, b: byte;
  Y: integer;
  count: integer;
  w, h: integer;
  ts: tstringlist;
  s: string;
begin
  with Image1.Picture.Bitmap do
  begin
    w := Width div 8 + 1 mod (1 + Width mod 8);
    h := height div 8 + 1 mod (1 + height mod 8);
    setlength(bm, w, h);
    for j := 0 to h - 1 do
      for i := 0 to w - 1 do
      begin
        caption := inttostr(i) + ' ' + inttostr(j);
        Y := 0;
        count := (min(8 * i + 8, Width - 1) - 8 * i) *
          (min(8 * j + 8, height - 1) - 8 * j);
        for z := 8 * i to min(8 * i + 8, Width - 1) do
          for q := 8 * j to min(8 * j + 8, height - 1) do
          begin
            R := canvas.pixels[z, q];
            G := canvas.pixels[z, q] shr 8;
            b := canvas.pixels[z, q] shr 16;
            Y := Y + round(0.59 * G + 0.3 * R + 0.11 * b);
          end;
        if Y / count > norm then
          bm[i, j] := 1
        else
          bm[i, j] := 0;
      end;
  end;
  ts := tstringlist.Create;
  for j := 0 to h - 1 do
  begin
    s := '';
    for i := 0 to w - 1 do
      s := s + inttostr(bm[i, j]);
    ts.Append(s);
  end;
  ts.savetofile('1.txt');
  setlength(bm, 0, 0);
  ts.free;
end;

В текстовом файле:

[Rin]

Rin, Эта процедура сделает все изображение либо белым, либо черным?

Не все изображение, а только пиксель.

[Swordaria]

BDA, спасибо за совет и помощь))
Думаю, у меня будут еще вопросы)

[Swordaria]

BDA, получается то, что надо))
Правда тот вариант до исправления ошибки мне нравится больше)
А теперь можно сделать так, чтобы этот текстовый файл можно было сравнить с другим текстовым файлом, в котором много подобных картинок переведенных в 0 и 1, и найти совпадения? и чтоб выводилось сообщение, о том что совпадения есть.

[BDA]

Правда тот вариант до исправления ошибки мне нравится больше)

Но тогда неправильно ведь считалось все.
Текстовый файл сделан всего лишь "для красоты", чтобы мы могли понять, что в массиве bm получилось то, что нужно.

Если не делать setlength(bm, 0, 0); и объявить bm глобально, а не в процедуре нажатия кнопки, то потом можно будет сравнивать его содержимое с заранее подготовленными массивами и рассчитывать процент совпадения.

[Swordaria]

BDA, а ты мне с этим можешь помочь?)
Я могу подготовить массивы.

[Swordaria]

А может создать БД и в ней искать совпадения?