Anzahl von Bytes aus Datei ausschneiden/löschen

[marabu]

Hallo Bea,

die CSA-Datei ist eigentlich eine PCL-Steuerdatei, angereichert um die DOCUWARE-Steuerdaten. Ich würde zuerst die DOCUWARE-Steuerdaten herausnehmen. Das geht am besten mit einem latch buffer. Die Datei beginnt mit der 9 Byte langen UEL-Sequenz #27%-12345X wodurch die aktuelle printer language deaktiviert wird. Dann folgen Befehle in der device native language (PCL). Irgenwann folgt wieder eine UEL-Sequenz gefolgt von @@DOCUWARE. An dem zweiten Klammeraffen erkennt das device, dass es sich nicht um PJL handelt und überlässt diese Steuerdaten einer anderen Instanz zur Interpretation.

Du kannst die Datei per FileStream lesen. Zuerst dimensionierst du den latch buffer (ein string) für die UEL-Sequenz - SetLength(latch, 9) - und füllst ihn voll auf. Die Extraktion startet, wenn du nach der UEL-Sequenz einen Befehl der Docuware Job Language entdeckst. Auf der sicheren Seite bist du da mit einem 10 Byte latch buffer, denn es könnten ja auch noch andere job languages eingebettet sein. Das Ende einer DJL-Passage wird wieder über eine UEL-Sequenz angezeigt. Um es zu erkennen schiebst du die Eingabedaten byteweise durch den latch buffer (vorne ein Byte abschneiden, hinten eines anfügen).

Alles inklusive der beiden UEL-Sequenzen möchtest du extrahieren. Warum möchtest du es eigentlich auch aus der Datei entfernen - ein Drucker ignoriert diese Befehle doch.

Das zerlegen der DJL-Befehle kannst du mit der gleichen Technik machen, aber ich würde wohl eher eine Vorbehandlung mittels StringReplace() durchführen und den list parser (Commatext, DelimitedText) aus der StringList verwenden. Die gefilterte PCL-Ausgabedatei kannst du mit CopyFrom-Aufrufen des Ausgabe-Filestreams bewerkstelligen, da du dir die Positionen der UEL-Sequenzen leicht merken kannst.

Grüße vom marabu