zwei Bitmaps vergleichen

[KahPee]

Delphi-Quellcode:

function Bitmapcompare(pic1, pic2: Tbitmap; Posx,posy: Integer): Boolean;
var line1,line2: Pbytearray;
    x,y: integer;
    compix, matchpix: integer;
begin
  Result:=false;
  matchpix:=0;
  compix:=0;

  for y := 0 to pic2.Height - 1 do
  begin
    line1:=pic1.ScanLine[posy+y];
    line2:=pic2.ScanLine[y];
    for x := 0 to pic2.width - 1 do
      begin
        if line1[posx+x]=line2[x] then matchpix:=matchpix+1;
        compix:=compix+1;
      end;
  end;

  if compix=matchpix then Result:=true;

end;

Der Code macht seine Sache gut . Vielen Dank habs grad ausprobiert und der erste Test verlief erfolgreich

mfg KahPee