Fehler in Testprogramm Package BGRABitmap

[fliegermichl]

Ich wollte eben das Testprogramm vectorize aus dem Package BGRABitmap ausführen.
Da tritt eine Exception "FLT INVALID OPERATION" in der Datei BGRAFillInfo.pas auf.
Die betreffende Programmzeile ist

Code: Alles auswählen

function TFillEllipseInfo.GetBounds: TRect;
begin
  Result := rect(floor(fx - frx), floor(fy - fry), ceil(fx + frx), ceil(fy + fry));
end;

Was kann an den Parametern für floor bzw. ceil falsch sein um diese Exception auszulösen?

Edit: und vor allem kann ich machen was ich will. Das ganze in einen try except end block packen. Ich kann diese Exception nicht verhindern.

[wp_xyz]

Ich hab's mal mit der OPM-Version probiert, da kommt derselbe Fehler in TFMain.BGRAVirtualScreenRedraw, Bitmap.EllipseAntialias - da steht am Index 4 des pts-Array ein unsinniger Wert (-3.4E38). Dasselbe Verhalten habe mit der github-Version.

Ich denke, du solltest das Problem auf dem GitLab-BugTracker von BGRABitmap melden.

[Roland Chastain]

Fehlerfreie Kompilierung bei mir (Linux Mageia, Lazarus 3.4, BGRABitmap v11.6.3).

[wp_xyz]

Ich habe den Fehler von obiger Position aus weiter verfolgt und komme nun auch in die im 1.Post erwähnte Zeile

Code: Alles auswählen

  Result := rect(floor(fx - frx), floor(fy - fry), ceil(fx + frx), ceil(fy + fry));

fx und fy haben im Fehlerfall den Wert -3.4E38, frx und fry sind in Gegend von 1. Summe und Differenz der beiden überschreiten bei weitem den Integer-Wertebereich. Die Anwendung als Argument in den Floor und Ceil-Funktionen, die ja Integer-Werte zurückgeben sollen, führt in Windows zu der "INVALID OPERATION". Warum das unter Linux gutgeht, weiß ich nicht.

Eine Möglichkeit zur Fehlerbehebung wäre, lokale Varianten der floor() und ceil()-Funktionen zu schreiben, die sicherstellen, dass der Integer-Bereich nicht überschritten wird:

Code: Alles auswählen

function floor(x: single): Integer;
begin
  if x < -MaxInt-1 then
    Result := -MaxInt-1
  else if x > MaxInt then
    Result := MaxInt
  else
    Result := math.Floor(x);
end;

function ceil(x: single): Integer;
begin
  if x < -MaxInt-1 then
    Result := -MaxInt-1
  else if x > MaxInt then
    Result := MaxInt
  else
    Result := math.Ceil(x);
end; 

function TFillEllipseInfo.GetBounds: TRect;
begin
  Result := rect(floor(fx - frx), floor(fy - fry), ceil(fx + frx), ceil(fy + fry));
end; 

[Roland Chastain]

Entschuldigung, ich habe zu schnell gelesen. Ich dachte, wir reden über einen Kompilierungsfehler.
Allerdings bestätige ich, dass das Programm bei mir fehlerfrei läuft.

[fliegermichl]

Ich habe den Fehler von obiger Position aus weiter verfolgt und komme nun auch in die im 1.Post erwähnte Zeile
...

Vielen Dank!
Diese Lösung funktioniert. Wieso kann man den Fehler aber nicht mit einem try except Block abfangen?