Ein Bild Zerlegen

[SleepyMaster]

Hi Christian...

ich schreibe im Moment an einer Rotine zur Bilderkennung. Hier ist mal ein kleiner Schnipsel meines Programmes, mit dem ich ein Raster in ein Bild reinbekomme. Ist jetzt keine fertige Lösung, aber vlt hilfts dir ja weiter.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
const
  RSize = 10;
var
  x, y, i, j: integer;
  r, g, b: int64;
  Color: TColor;
begin
  y := 0;
  while y < (Image1.Picture.Bitmap.Height - RSize) do
    begin
    x := 0;
    while x < (Image1.Picture.Bitmap.Width - RSize) do
      begin
      r := 0;
      g := 0;
      b := 0;
      for i := 0 to RSize do
        for j := 0 to RSize do
          begin
          Color := Image1.Canvas.Pixels[x+i, y+j];

          r := r + GetRValue(Color);
          g := g + GetGValue(Color);
          b := b + GetBValue(Color);
          end;
      Color := RGB(Round(R / (RSize * RSize)), Round(G / (RSize * RSize)), Round(B / (RSize * RSize)));

      for i := 0 to RSize do
        for j := 0 to RSize do
          begin
          Image1.Canvas.Pixels[x+i, y+j] := Color;
          end;
      x := x + RSize;
      end;
    y := y + RSize;
    end;
end;