Bitmap shrinken

[DeddyH]

Hat das einen bestimmten Grund, dass Du umständlich mit ScanLine hantierst anstatt einfach mit StretchBlt?

[Blup]

Die Größe von ScanImageBox wird falsch berechnet.
So verschiebt sich der gesamte Bildinhalt nach Links und Oben.
Ausserdem wird am rechten und unteren Bildrand über die Bildgröße des Orginals hinaus zugegriffen.

Beispiel mit StretchBlt:

Delphi-Quellcode:

SetStretchBltMode(PBitmap.Canvas.Handle, HALFTONE);
StretchBlt(PBitmap.Canvas.Handle, 0, 0, PBitmap.Width, PBitmap.Height,
           SourceBitmap.Canvas.Handle, 0, 0, SourceBitmap.Width, SourceBitmap.Height, SRCCOPY);

Einfach den Durchschitt aller Farbwerte in einem Rechteck zu bestimmen, reicht für eine ordentlich Skalierung eventuell nicht aus. Dazu bestimmt man am besten die Farbwerte in einem Kreis um den zu berechnenden Punkt. Die Farbwerte der einzelnen Pixel gehen dabei z.B. nach dem Quadrat der Entfernung zum Mittelpunkt gewichtet in die Berechnung ein.

[bernhard_LA]

um die Box zu zentrieren würde ich folgende LÖsung verwenden

Delphi-Quellcode:

          ScanImageBox.Left := trunc(Out_X-1 * ScaleF/2);
          ScanImageBox.Top := trunc(Out_Y-1 * ScaleF/2);
          ScanImageBox.Right := trunc((Out_X + 1) * ScaleF/2);
          ScanImageBox.Bottom := trunc((Out_Y + 1) * ScaleF/2);

un solange die Box nicht im Scan Bereich der Ursprungbildes liegt abbrechen ?

[Medium]

Es ist zwar eine externe Komponente mehr, aber die Graphics32 bietet eine gute Auswahl an Resize-Filtern an, die zudem sehr sehr zügig sind. (Insbesondere wird für Verkleinerungen gerne der Lanzcos-Kernel empfohlen.)
Ausser es ist reines Interesse am Lernen/Forschen: Bevor man sich lange mit nachher sehr wahrscheinlich langsameren und weniger schöne Ergebnisse produzierenden eigenen Methoden rum schlägt, würde ich jederzeit zur G32 greifen.

Edit: Ne Kleinigkeit, aber sticht mir in die Seite: "Verlustfrei verkleinern" geht nicht. Fast egal mit welcher Methode man verkleinert, der Verlust rein Signaltheoretisch betrachtet, ist bei allen praktisch gleich. Man kann höchstens mit diversen Verfahren versuchen, diese an Stellen / in Eigenschaften zu erzeugen, die ein Mensch am wenigsten wahrnimmt.

[bernhard_LA]

falls noch jemand diesen Algo verwenden will :


ScaleF := 1 / Scale;
ersetzt durch

Delphi-Quellcode:

  ScaleF_x := SourceBitmap.Width / PBitmap.Width;
  ScaleF_Y := SourceBitmap.height / PBitmap.Height;

damit ist dann das AV Problem gelöst