Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: zwei Bitmaps vergleichen

    Delphi
    by Aphton, 2. Feb 2010
  Ja sorry, da fehlt noch ein
  inc() bei Pix1
  
  MfG
• Forum: Sonstige Fragen zu Delphi

  Re: zwei Bitmaps vergleichen

    Delphi
    by Aphton, 2. Feb 2010
  So dürfte das funzen:
  
  
  function Bitmapcompare(pic1, pic2: Tbitmap; Posx,posy: Integer): Boolean;
  var
  Pix1, Pix2 : PByte;
  y, k, x : Integer;
  bytes: Byte;
  compix, matchpix: integer;
  const
• Forum: Sonstige Fragen zu Delphi

  Re: zwei Bitmaps vergleichen

    Delphi
    by Aphton, 1. Feb 2010
  Ja das tut es, aber mit der Unit bist du besser unterwegs, da du nur noch mehr Folgendes (bsp) machen musst:
  
  
  var
  myBmp : TScanlineBitmap;
  x, y : Integer;
  begin
  myBmp := TScanlineBitmap.Create;
  myBmp.LoadFromFile( '<Filename goes here>' );
  myBmp.UpdateScanlineBase();
• Forum: Sonstige Fragen zu Delphi

  Re: zwei Bitmaps vergleichen

    Delphi
    by Aphton, 1. Feb 2010
  Ich möchte dich hiermit herzlichst darauf hinweisen - das wird es nicht lange... Siehe dazu Bild im Anhang.
  Die Bilder in der Mitte und Rechts wurden durch die beiden Routinen (Algorithmen) gejagt.
  Bei der Linken (Mittleren) sieht man schön dass nicht alle Pixel "angetastet" (schwarz gesetzt) werden, wohingegen die korrigierte Routine auch wirklich alle Pixel abtastet.
  
  Edit:
  Ich habe eine...
• Forum: Sonstige Fragen zu Delphi

  Re: zwei Bitmaps vergleichen

    Delphi
    by Aphton, 1. Feb 2010
  :wall: Das ganze nochmal verbessert
  
  Du weißt schon, dass das so nicht korrekt ist?
  Es gibt soetwas, dass nennt sich Pixelformat. Falls es beispielsweise auf pf24Bit gesetzt ist,
  besteht das Bild (bzw dann die einzelnen Rows) aus aneinander gereihten 24/8 Bytes -> r, g, b; wobei die Reihenfolge nicht die gleiche sein muss...
  
  Sieh dir das hier mal an:
  
  var
  Pixel : PByte;