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;