QR-Code Komponente TQRBarcode

[key65]

Da ich nach einiger Suche nichts (kostenfreies) gefunden habe, um QR-Code nativ zu erstellen, habe ich mich entschlossen, eine eigene Komponente zu programmieren.
Das erste funktionierende Ergebnis wollte ich hier vorstellen.
Im Moment wird nur 8-bit-Encoding und ECC-Level H unterstützt.

Properties:
AutoVersion:
True: QR-Code-Version wird automatisch bestimmt
False: QR-Code-Version kann ab mindestens erforderlicher Version bis 40 eingestellt werden
Blur: QR-Code wird weichgezeichet (0..10)
Color0: Farbe für '0'-Bits
Color1: Farbe für '1'-Bits
QRImage: TImage, das den berechneten QR-Code enthält
QRBitmap: Berechneter QR-Code als Bitmap (ReadOnly)
QRBitmapEx: Berechneter QR-Code ('Dotted Mode')als Bitmap (ReadOnly)
Overlay: Bitmap, die in der Mitte des QR-Codes plaziert wird (z.B. für Logos)
QRText: Zu codierender Text
QuietZone: Größe des 'leeren' Bereichs um den QR-Code
ShowBorder:
True: Rahmen mit Farbe 'Color1' wird um den QR-Code gezeichnet
False: kein Rahmen
ShowOverlay:
True: Bitmap 'Overlay' wird in der Mitte des QR-Codes angezeigt
False: 'Overlay' wird nicht angezeigt
DottedQR:
True: '1'-Bits werden kreisförmig angezeigt
False: '1'-Bits werden normal angezeigt
ShowOverlayBorder:
True: Rahmen mit Farbe 'Color0' wird um die Overlay-Bitmap gezeichnet
False: kein Rahmen
Version: Lesen/Schreiben der verwendeten QR-Code-Version (1..40)
Zoom: Zoomfaktor für berechnete QR-Code-Bitmap

Methods:
GenerateQR: QR-Code neu berechnen

Events:
OnQRGenerated: QR-Code wurde berechnet

[Mavarik]

Für #C und C++ gibt es doch "haufenweise" Sourcecode für QRCode...

Für Delphi gibt gab es keinen Code zu finden...

Mavarik

PS.: Deswegen hab ich das auch selber programmiert...

[drummer]

code ja, aber eine kostenlose Komponente welche unter c++ builder 5 läuft habe ich leider nicht gefunden.

[capo]

Hallo,

mich würde interessieren wie ich mit der Komponente aus einer Adresse einen QR Code generieren kann?

LG
Grischa

[Sir Rufo]

Zitat von capo:

mich würde interessieren wie ich mit der Komponente aus einer Adresse einen QR Code generieren kann?

Hmmm, die Eigenschaft QRText füllen und dann den QRCode generieren lassen?

[hathor]

Demo im Anhang.

[HPW]

Hallo,

Da gibt es auch noch: DelphiZXingQRCode

http://www.debenu.com/open-source/delphizxingqrcode/

Grüsse,

[Mavarik]

Wieder mal einen 2 Jahre alten Thread gekapert...

Erzeugen ist nicht das Problem...

Sondern das erkennen...

Mavarik

[HPW]

Hallo,

Für erkennen vielleicht dies:

http://zbar.sourceforge.net/index.html

Grüsse

[Mavarik]

Zitat von HPW:

Hallo,

Für erkennen vielleicht dies:

http://zbar.sourceforge.net/index.html

Grüsse

ja... aber selbst ist der Mann...

[HJay]

@key65:

Tolle, einfach zu verwendende Komponente --super und vielen Dank!

Siehst du eine Möglichkeit, die Komponente um "alphanumerisch" zu erweitern? Das ergibt ja doch deutlich kleinere Barcodes und reicht für nahezu alle Fälle (Hyperlinks) aus.

Ich habe schon mal reingeschaut, aber wüsste jetzt nicht, wo du die ganzen Code-Tabellen her hast und wo man überall was anpassen müsste... Die Tabelle für die alphanumerische Kodierung habe ich und EncodeText() wäre leicht, aber MaxH und MaxBytesH und so weiter fehlen mir... wäre toll, wenn du Lust hättest...