Printer.Canvas auf Schwarz/weiss zwingen

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