Printer.Canvas auf Schwarz/weiss zwingen

[MyRealName]

Hallo Delphianer,

eine kleine Frage, vllt. weiss es einer von Euch...
Ich habe einen grossen Druckauftrag, 400+ S/W Scans von Dokumenten. Könnte auch Farbe sein, aber S/W reicht, das heisst, ich könnte diese auf S/W runterrechnen. Leider geht der Windows-Speicher immer irgendwann alle beim Kunden (auf Printer.Canvas zu schreiben nutzt scheinbar nicht den Anwendungsspeicher, der bleibt konstant). Jetzt ist natürlich so ein Bild schonmal ungepackt 135 MB gross, denk mal, die sind intern in einem Farbformat und Printer.Canvas ist auch scheinbar ein Farbformat, weswegen der dann auch soviel Speicher benötigt.

Gibt es eine Möglichkeit, den Printer.Canvas auf Graustufen oder S/W zu forcieren, so dass der auch nur den entsprechenden Speicher nutzt, also max. 1 byte pro Pixel?

Danke schonmal.

[TiGü]

Ich nehme an, ohne wirklich Druckexperte zu sein, dass du die API aus VCL.Printers nutzt.
Meiner Ansicht nach, kapselt das die GDI Print API von Windows (https://docs.microsoft.com/en-us/win...s/gdi-printing).

Anhang 54924


Das Laden des gescannten Dokuments ( = Bildes) und das Zeichnen auf dem TPrinterCanvas ist anscheinend begrenzt.
Hast du überlegt, alternative Möglichkeiten des Druckens zu nutzen?
Der neuste Schrei scheint die Print Document Package API zu sein (https://docs.microsoft.com/en-us/win...api-interfaces), aber vielleicht bringen dich auch diese Quelltext-Schnipsel von der Print Spooler API weiter, indem zu die Dateien direkt per Dateinamen druckst, anstatt zu laden und auf den Canvas zu malen:
http://delphi-kb.blogspot.com/2008/0...o-printer.html

[MyRealName]

DevExpress nutzt GDI+ Objekte zum Drucken, die musste ich rauswerfen, weil sie den Speicher zu sehr füllen, da ist mir das ganze nach 100 Seiten explodiert (Win32 App, Win64 kann ich da im Moment nicht draus machen).
Ich habe auch leider nicht die Zeit, auf eine ganz andere API umzusteigen. Wenn es als S/W Druck mit einem Viertel des augenblicklichen Speichers gehen würde, wäre mir schon geholfen...

[Sinspin]

Was hast du eigentlich damit vor? Drucken oder sollen die eine Datei zusammengeschoben werden?

Für drucken könnte man den Druckauftrag ja zerteilen (falls das was bringt).

[MyRealName]

Es sind einzelne PDFs und Bilder und die müssen als ein Druckauftrag zusammenkommen auf dem Drucker bis zu 400-500 Seiten. kleine Aufträge wären ja kein Problem :D

[TiGü]

Warum können die einzelnen Dateien nicht nacheinander gedruckt werden?

[MyRealName]

Greosse Firma, viele Druckjobs, mann will nicht, dass die durcheinander kommen

[TiGü]

Da stellt sich die Frage, ob da wirklich andere Druckaufträge dazwischen gelangen können, wenn innerhalb weniger Millisekunden alle Druckaufträge von einem Computer aus gesendet werden?!

Letztendlich ist deine aktuelle Lösung Murks und du musst dich mit anderen Druck-APIs oder anderen Lösungen* beschäftigen.
Das Problem verschiebt sich nur, da früher oder später du wieder in Speicherprobleme rennen wirst.

* andere Lösung: Alle Dokumente zu einem (temporären) PDF zusammenfügen und diese Datei drucken.

[BerndS]

Wäre es denn möglich, den gleichen Drucker mir verschiedenen Profilen zu installieren.
Ein Profil wäre dann S/W und das andere farbig.
Es müsste dann nur der entsprechende Drucker ausgewählt werden.

[Sinspin]

Wir haben hier einen Develop Ineo+ 308. Auf dem drucken 50 verschiedene Nutzer. Da kommt immer nur der Kram raus den auch der Nutzer selber gesendet hat.
Der Drucker hat einen Accesscard Reader. Jeder Nutzer hat einen Treiber installiert (Windows, Linux, Mac, alles möglich) in dem ein Nutzerprofil zur Karte des Users existiert.
Anstatt dem Cardreader geht auch Anmeldung via Benutzername und Passwort. Aber die Accesscard ist bei uns die einfachere Lösung.

[TurboMagic]

Weil dann evtl. jemand dazwischen druckt? Könnte mich mir halt vorstellen...

[MyRealName]

Man muss sich das so vorstellen, dass es von vielen Leuten relativ grosse Druckjobs gibt, die da hunderte von Seiten beinhalten. Und es gibt halt auch kleinere.
Einen Druckjob zu erstellen kann schon allein 10 Minuten dauern. Muss alles aus der Datenbank geladen werden, es muss für jede Seite ein Header gemacht werden, Seiten gedreht etc.
Wenn da jemand anders auf einmal noch 5 Seiten druckt, kommen die schnell mal dazwischen. Deswegen ist es auch relativ wichtig, alles in einem Auftrag zu haben, was auch zusammengehört.

Ich habe mal einen Auftrag als Bilder vom Canvas rausgenommen, waren 75 GB Daten. 33mb - 135mb Größe pro Datei.

Deswegen zurück zur Frage : Kann man den Canvas auf eine pixelgröße kleiner als 4 Byte zwingen, Graustufen brauchen ja eigentlich nur 1 Byte und das würde die Datenmenge vierteln..

[Sinspin]

Für ein TBitmap kann man den PixelFormat festlegen, pf8bit wäre dann deins.
Die Canvas haben ein Handle fürs GDI Object. Wenn du auf das GDI objekt drauf kommst sollte das dort auch gehen.

Mehr dazu:
Vcl.Graphics.TCanvas.Handle

[dahead]

So gut wie alle halbswegs modernen Firmendrucker (bspw. Ricoh, Konica) haben sogenannte Druckserver, bzw. Druckboxen, in welche jeder Anwender seine Druckjobs speichern kann.
Diese Druckbox wird in Windows in den Druckereinstellungen hinterlegt.

Am Geraet wird dann der Ordner via Passwort entsperrt und die angeklickten Dokumente aus der Box gedruckt.

So mal als Alternative.

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

Zitat von MyRealName (Beitrag 1503425)

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.

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 :)