Bitmap verkleinern [Problem gelöst]

[TM6]

Ich nutze seit Jahren die Funktion SmoothResize, die auf

https://www.swissdelphicenter.ch/en/...de.php?id=1896

angegeben ist, um Bitmaps kleiner zu rechnen.
Ich hatte nur TBitmap in vcl.Graphics.TBitmap umbenannt gehabt.

Das funktionierte auch und funktioniert auch weiterhin unter Delphi 10.4.

Aber in Delphi 12.x gibt es eine Exception im zweiten Durchlauf (y=1, X=0) beim Zugriff auf
DstLine[x]. Und das anscheinend nur mit 64-bit, mit einem 32-bit-Compilat scheint es weiterhin zu funktionieren.

Was hat sich diesbezüglich an Delphi geändert, dass das plötzlich nicht mehr geht?
Irgendeine Idee, was das Problem sein könnte?

[TM6]

Da hat mir jetzt die KI (nutze ich viel zu selten), nachdem ich sie mit genug Infos gefüttert hatte, weitergeholfen und mich auf
https://stackoverflow.com/questions/...tmap-correctly
hingewiesen.
Und das Ersetzen von integer durch NativeInt hat dann das Problem gelöst.

[Sherlock]

So auf den ersten Blick würde ich den Schuldigen in den eventuell unterschiedlichen Integer Typen bei 32 und 64 Bit vermuten. Die Doku sagt da zwar was anderes...aber vielleicht ist die nicht aktuell. Andererseits würde ich eher mit TWICImage resizen, weil (vermutlich) schneller und bessere Bildqualität.

Edit: Das hat man davon, wenn man Kommentare lange ungepostet stehen lässt, sie werden überflüssig...grmpf. Ich stehe aber zu meiner TWICImage Aussage.

[Gausi]

Zitat von Sherlock:

Ich stehe aber zu meiner TWICImage Aussage.

Dem würde ich mich anschließen. Die alten "eingebauten" Methoden (StretchDraw und ähnliches?) erzeugten beim verkleinern für Thumbnails etc. teilweise grottig schlechte Ergebnisse. Da waren dann andere Verfahren wie dieses "SmoothResize" notwendig. Mittlerweile ist das nicht mehr so.