swissqr generator

[HolgerX]

Hmm..

Schau Dir mal diese Komponente an:

https://www.delphipraxis.net/173262-...qrbarcode.html

Mit 2 Anpassungen (ReplaceText mit StringReplace getauscht, const aus der Class ins implementation verschoben) läuft diese bei mir mit Delphi 6, sollte somit dann auch bei Dir laufen.
Das Kreutz kannst Du dann als 'Overlay' Bitmap angeben und es wird in den QR-Code platziert.

Leider kann die Größe des eingefügten Bildes nicht angepasst werden, und es ist im Vergleich zum SwissQR etwas größer.
Mit Anpassungen am beigelegtem Demo konnte ich dann Mehrzeiligen Text (notwendig für die SwissQR Datenzeilen) und das Kreuz im QRCode erzeugen und unser 2D-Barcode Scanner auf der Arbeit konnte die Daten lesen...

Den angehängten QR-Code habe ich mit Mülldaten gefüllt, also nicht wundern.
Leider konnte ich das bmp nicht anhängen (trotz nur 178x178 pixel bei 5 kb Größe), somit könnte das JPG vielleicht nicht gescannt werden.


Mal sehen, ob ich Lust habe diese Komponente etwas zu überarbeiten