Bilder vergleichen

[Ricane]

Aber irgendwie krieg ich trotzdem immer eine Exception, das aus einem Bereich nicht gelesen werden kann...... hier mein Code ...

Der Fehler tritt bei dem CompareMem Befehl auf...

Delphi-Quellcode:

Var

  I, J, K, Laenge: Integer;
  Reihe: Array[1..2] Of PByteArray;
  Ungleich: Array[1..4] Of Boolean;
  [...]

Begin

    [...]

    For K := 1 To 4 Do
    Begin
      For J := 0 To AktBmp[K].Height - 1 Do
      Begin
        Reihe[1] := AktBmp[K].ScanLine[J];
        Reihe[2] := AltBmp[K].ScanLine[J];
        Laenge := High(Reihe[2]^);
        If CompareMem(Reihe[1], Reihe[2], Laenge) = False Then
          Ungleich[K] := True;
        If Ungleich[K] = True Then Break;
      End;
    End

    [...]

End;

Lanege hat fast immer den Wert von 32767... was ja eigentlich total ok ist...


*Ricane-der-alte-Thread-Ausgräber*