Printer.Canvas auf Schwarz/weiss zwingen

[BerndS]

Ist es eine 64bit oder 32bit Anwendung?
Bei Delphi 11 gibt es Enable large addresses, aber keine Hilfe dazu.
Zumindest könnte man mal prüfen, ob das was bewirkt.

[MyRealName]

ist 32bit, ich kann es auch nicht einfach auf 64bit umstellen, da müssen teile des Frameworks, welches wir intern nutzen, aktualisieren.
Zur Zeit arbeiten wir noch auf Delphi 10.3.3, aber eine Umstellung auf Delphi 11 ist geplant. Das Problem ist da halt immer, dass man schnell mal Seiteneffekte hat, weil auf einmal verhält sich etwas anders als vorher und dann muss man eventuell durch 90 Anwendungen rennen und eine Property ändern :(

[BerndS]

Das geht wohl laut CodeCentral auch ohne D11.

Delphi-Quellcode:

{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}

[MyRealName]

Seltsamerweise erkennt er den Flag nicht, sollte aber schon in Delphi 7 gehen :shock:

[Sinspin]

Hast du mal litePDF probiert? http://www.litePDF.cz

DevExpress ist ja bekannt dafür nicht sonderlich sparsam mit Speicher umzugehen.
Wir verwenden auch denen ihren Reader an diversen Stellen zum anzeigen. Fürs erzeugen versuche ich mit LitePDF hinzukommen.

[MyRealName]

Ich denke, ich habe das Problem gefunden, aber ich lasse die Fachabteilung das gerade testen. Ich habe eine Skalierung berechnet um den Unterschied zwischen Bildschirm und Drucker PPI zu kompensieren. Diese hat dann das Endbild 6.25 fach vergrössert und während das Bild aus der PDF-Seite extrahiert wurde, hatte man gleichzeitig eine 24-bit und 32-bit Kopie im Speicher, was unter Umständen dann zuviel wurde :(
Ich habe die Skalierung erstmal runtergenommen auf 1, mal sehen, wie der Ausdruck wird (sitze im HO und muss das die Fachabteilung testen lassen).

Danke erstmal an alle :)