[Bibliothek] Barcode für Delphi (Zint)

[chaosben]

Geschichte & Hintergrund
Ende 2009 entstand hier und im TUO-Repository die TZintBarcode-Komponente. Das war ein Compilat der Zint-Bibliothek als 32bit-Windows-DLL und die dazu passenden Delphi Wrapper-Klassen und Komponenten.
Zint ist ein C-Projekt von Robin Stuart, einem sehr netten Entwickler aus UK.
Nach einer Weile starb das original Zint-Projekt (und damit auch die Weiterentwicklung unserer Komponente) weil Robin das Projekt nicht mehr unterstützte.
Ende Mai 2012 kam wieder frischer Wind in das Zint-Projekt, auch durch den Fork (was auch gleichzeitig der aktuelle Stand der Dinge ist) von Ismael Luceno auf github.
Da wir externe Abhängigkeiten(in diesem Fall die zint.dll) nicht gern haben, entschieden wir uns (nach Absprache mit Robin), den originalen C-Code nach Pascal zu übersetzen.
Dabei gelten 2 Regeln:

1. So nah wie möglich am originalen C-Code bleiben, damit Bugfixes und Features möglichst einfach übernommen werden können
2. So Pascal wie möglich, damit auch die FreePascal-Gemeinde (und damit möglichst viele Plattformen) etwas davon hat.

Und damit sind wir im Heute angekommen. Die Übersetzung ist vollständig erledigt und nun warten wir auf euer Feedback.

Was es ist
Dies ist eine native Pascal-Implementation der Zint-Bibliothek zur Erstellung von verschiedenen 1D- und 2D-Barcodes.

Download
Den Code gibts per SVN.

• Bibliothek
• Komponenten
• Demo

Lizenz
Apache License 2.0

Was im Moment geht
Zur Zeit sind folgende Codes verfügbar:

• 2of5Matrix, 2of5Industrial, 2of5Interleaved, 2of5IATA, 2of5Datalogic
• Deutsche Post Leitcode, Deutsche Post Identcode
• EAN128, Code128, Code128B, NVE18, ITF14, EAN14
• Datamatrix
• Maxicode
• Code 11, Code 39, Pharmacentral (PZN), Extended Code39, Code93
• Pharmacode, 2-Track-Pharmacode, Codabar, Code32
• Australia Post Code, Australia Post Reply Code, Australia Post Route Code, Australia Post Redirect Code
• Aztec, Azrunes
• Code16k
• Code49
• Composites: EAN128
• QR-Code, MicroQR-Code
• Gridmatrix
• Plessey, MSI-Plessey
• EAN13, EAN5, EAN2, UPCA, UPCE, ISBN
• Telepen,
• [Korea|Dutch|Japan]Post
• GS1-Databar

Folgende Rendering-Ziele werden im Moment unterstützt:

• TCanvas (Delphi, FMX, Lazarus)
• TMetafile (Delphi)
• TlmfImage (Lazarus)
• TBitmap (Delphi, FMX, Lazarus)
• SVG nativ (Delphi, FMX, Lazarus)

Was noch fehlt

• Firebird-UDF (man darf doch mal träumen, oder?)

Danke für die Mitarbeit (Ideen, Bugs, ...)

• Codehunter
• 0815achim
• Carsten2
• HighBaer

Fragen, Anregungen, Issues
Falls ihr dergleichen habt, schreibt sie bitte in den Issue-Tracker oder auch in diesen Thread (falls eine akute Google-Allergie besteht ). In der Regel sollte sich eine Lösung finden lassen.
Wünsche, die in Form einer PayPal-Zahlung ankommen, werden bevorzugt bearbeitet.

Viel Spass!

[MarcoWarm]

Hallo Achim,

ich habe eben mal die demo compiled und mit ins SVN gestellt... bringt die Exe bei dir auch keine Ausgabe? Die Quellen sind aktuell.

[0815achim]

Hallo

Auch die von dir compilierte EXE erzeugt bei mir keine Ausgabe.
Meine erste Vermutung das etwas mit meinem Delpi oder Treibern nicht stimmt hat sich leider nicht bewahrheitet.
Sobald ich eine BMP "von Hand" imgResult lade wird dieses auch angezeigt.

Gruß... 0815achim

[0815achim]

Ich noch mal

Es scheint doch irgendwie an meinem Rechner zu liegen.
Bei einem anderen Rechner geht die von dir erzeugte Exe.
Der zweitrechner hat allerding noxh winXP drauf im gegensatz zu meinem Arbeitsrechner mit Win7. Keine Ahnung ob das was zu sagen hat.
Ich werd auf jeden Fall mal bischen weiter testen.

Gruß... 0815achim

[0815achim]

So und jetzt zum dritten mal

Ich habe nochmals an mehreren Rechnern getestet.
An 3 win7 Rechnern -> keine Ausgabe.
An 2 winXP Rechnern -> ordentliche Ausgabe.
An 1 Win2k Rechner -> Exception.

Scheint also doch irgendwie mit dem Betriebssystem zusammen zu hängen.

Es wurde doch mal irgendwan eine "eigene Render Engine" implementriert.
Ist da evtl. die Ursache zu suchen?

Gruß... 0815achim

[Thom]

Die Demo funktioniert bei mir unter Windows 7 64 Bit ohne Probleme.
Tolle Arbeit!

[Codehunter]

Kann ich bestätigen: Win 7 x64 ohne Probleme. Ich könnte mir aber vorstellen, dass der Metafile-Export die Ursache sein könnte. Die Demo basiert ja darauf und die VCL wiederum bedient sich bei Windows wenn es um Metafile geht. Jetzt weiß ich aber nicht, ob sich Grafiktreiber auch um die Metafiles kümmern oder ob das höher im Betriebssystem angesiedelt ist.

[MarcoWarm]

Aaaaalso,

hier kommt der Erklärbär :

die Exception

Code:

Fehler bei der Bereichsprüfung

kommt wenn ich versuche die Druckerliste zu bekommen und es dabei knallt - ich hab keine Ahnung warum das auf einigen Systemen passiert - aber das ist auch nicht Aufgabe unseres Projektes - ich hab die Exception jetzt abgefangen.

Die Darstellung ist anscheinend von System zu System unterschiedlich. Bei manch einem OS (z.B. Win Server 2008) ist es kein Problem, daß ich die Canvas nicht mit BeginScene und EndScene behandle. Nun mache ich es gemäß Lehrbuch und hoffe es funktioniert überall gut.

Gruß
Marco

[0815achim]

Danke!

Jetzt gehts ohne Probleme.

Gruß... 0815achim

[matashen]

Hallo,

ich hab die alte Zint Compo durch die neue ersetzt. Leider hab ich bei der Ausgabe auf ein TImage über den wmfrenderer den gleichen Effekt den ich auch bei der OriginalKompo hatte.

Wenn ich foregroundcolor mittels einer Colorbox setzen will dann bleibt mein Image weis und zeigt nichts mehr an.

Delphi-Quellcode:

    InitRenderTarget(rt);
    rt.ForegroundColor:=barcodefarbe.color;
   rt.backgroundcolor:=colorbox1.Color;
    try
      Symbol.Render(rt);
      imgResult.Picture.Graphic:=wmf;
    finally

Nachdems auch schon im alten Zint das Problem gab, evtl ist das mit rüber portiert worden.

Evtl kann das mal jemand testen, reproduzieren.

meine Umgebung: Win7 32Bit
Delphi XE2 Enterprise

[MarcoWarm]

Hi matashen,

ich kann es leider nicht bestätigen. Ich habe mal Farbauswahlboxen in die VCL Demo reingebaut. Wäre schön, wenn du die Demo mal bei dir builden könntest.

Gruß
Marco