Printer.Canvas auf Schwarz/weiss zwingen

[MyRealName]

Ich habe allerdings heute auch Speicherprobleme (Fehlermedlungen) wenn ich eigentlich noch mehr als genug Speicher freihabe, bei der Anwendung selbst sowie auch freier Systemspeicher.
Kann es sein, dass wir da von irgendwelchen Handles oder so reden, die alle gehen ?
Die Bitmaps zum Schreiben auf den Canvas gebe ich immer sofort frei und habe es auch mittlerweile hinbekommen, die auf 8bit runterzunehmen (Danke sinspin).

[TurboMagic]

Evtl. wirst du auch Opfer von Speicherfragmentierung...
Dann ist zwar SPeicher frei, aber nicht zusammenhängend.

[Delphi.Narium]

Hat der Druckertreiber keine Option über die man zwischen Farb- und Schwarzweißdruck unterscheiden kann?

Bei manchen gibt es diese Option, dann übernimmt der Druckertreiber die Umwandlung von Farben in die entsprechenden Graustufen. Könnte das eventuell ein Lösungsansatz sein?

[BerndS]

@Delphi.Narium
So was in der Art habe ich auch schon in #9 vorgeschlagen. Scheint keine Option zu sein.

[Sinspin]

Zitat von MyRealName:

Die Bitmaps zum Schreiben auf den Canvas gebe ich immer sofort frei und habe es auch mittlerweile hinbekommen, die auf 8bit runterzunehmen .

Die TPrinter.Canvas haben intern auch ein Speicherformat. Soweit ich mich erinnere hängt das default Speicherformat von Windows Einstellungen ab.
Wenn man ein TBitmap rein zeichnet wird das Bild in das Format vom Canvas umgewandelt.
Es wird nur übernommen wenn man mit Assign arbeitet.

Code:

PrinterPage.Canvas.Assign(SourceBitmap.Canvas)

In älteren Delphi Versionen gab es mit Graphics/Canvas Probleme beim Assign. Keine Ahnung ob es die aktuell noch gibt.

[MyRealName]

Wenn ich den Druckertreiber auf S/W stelle, wandelt der ja intern das zur Not um, aber mein Speicherverbrauch bleibt derselbe.
Ich tippe im Moment auf Speicherfragmentierung, weil ich grosse Blöcke brauche (eine PDF Seite wird von DevExpress als 32bit image ausgelesen (das ist im Code dort scheinbar auch so festgesetzt und er lässt da auch kein anderes Format zu). Und da kommt es dann zu Problemen mit dem Speicher, wenn er versucht, die Grösse des Bildes zu alloziieren. Technisch müsste der Speicher zur Verfügung stehen, aber praktisch gibt er mir keinen.

[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.

{$SetPEFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}

[MyRealName]

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