RedeemerQR: QR-Code-Encoder-Klasse für Delphi

[Redeemer]

Zitat von Gausi:

Aber eine Frage dann: Über eine kurze Suche bin ich bereits über dieses Topic in der DP auf dieses Projekt gestoßen, was ja gegen Ende auch in dem von dir verlinkten Topic verlinkt wird. Kannst du (da du dich mit der Materie jetzt auskennst) kurz die Unterschiede bzw. Vor- und Nachteile erläutern? Eine dll scheint man in beiden Fällen nicht zu benötigen.[/I]

Ich hatte den Thread so verstanden, dass das jeweils nur Header sind. Im Prinzip sind die beiden Projekte somit doppelt. Mein Ansatz ist eher minimalistisch (dürfte deutlcih geringe Auswirkungen auf die Anwendungsgröße haben) und vielleicht ist

Zitat von jaenicke:

der Quelltext recht übersichtlich.

Das finde ich nämlich bei ZINT sehr schlimm.

Dadurch, dass es schon was Vergleichbares gibt, ist natürlich der Sinn des Projekts geringer, aber ich finde es gerade sehr interessant, dass ich im ZINT-Quelltext immer wieder Stellen finde, die meinem Ansatz sehr ähnlich sehen, obwohl ich mir bis jetzt noch nie Quelltext über QR-Codes angesehen habe und somit einfach so von mir aus programmiert habe, wie ich die Doku verstanden habe.

Da meinem Quelltext nichts zugrunde liegt, veröffentliche ich ihn hiermit unter WTFPL.

[jsp]

Hallo Janni

ich möchte mich an dieser Stelle für deinen Code bedanken
Hat mir viel Arbeit gespart, und macht für unsere Zwecke alles perfekt.
Das Feierabendbierchen hast Du dir redlich verdient

Gruss, Jörn

[TSchnuckenbock]

Schönes Projekt.

Allerdings würde ich bei Veröffentlichung immer Kommentare mit emotional geprägter Wortwahl vorher elemenieren.

[Rolf Frei]

Wäre das für dich ein grosser Aufwand, wenn man da in der Mitte noch ein Bild platzieren könnte? (siehe Swiss QRCode)

[Gausi]

Wie ich ja weiter oben schon schrieb, wollte ich in einem Projekt eine QR-Code-Anzeige einbauen. Der Code hier funktioniert soweit einwandfrei, und die Lizenz ist sogar offiziell kompatibel zur GPL.

Eine Anmerkung vielleicht: Ich nutze in dem Projekt VCL-Styles, und da primär dunkle Themes. Wenn ich dort nun das TRedeemerQR-Bild einem Image zuweise, dann erkennt das mein QR-Code-Scanner nicht - dem fehlt anscheinend ein weißer (bzw. heller) Rahmen um den hier generierten QR-Code herum. Wenn ich den hinzufüge, klappt es ohne Murren.

Delphi-Quellcode:

var QR: TRedeemerQR;
    QRBitmap: TBitmap;
// ...
QR.LoadFromString(AnsiString(s), ecHigh);
QRBitmap := TBitmap.Create;
try
  QRBitmap.Width := QR.Width + 2;
  QRBitmap.Height := QR.Height + 2;
  QRBitmap.Canvas.Draw(1,1, QR);
  imgQRCode.Picture.Assign(QRBitmap);
finally
  QRBitmap.Free;
end;

(Ist vielleicht nicht optimal gelöst, aber bei einer Anwendung, die ohnehin 100 MB und mehr frisst, geht ein derartiges Umkopieren eines kleinen Bildchens wohl in Ordnung.)

Ein weißes TShape im Hintergrund hilft auch, oder eben das Abschalten des VCL-Styles für diese Form bzw. den Teil der Form.

Weißt du vielleicht, ob der helle Rahmen drumherum Teil des QR-Standards ist, oder ist mein Scanner einfach Murks in der Hinsicht?

Auf jeden Fall danke dafür. Ist ein schönes Stück Code, dass sehr einfach zu verwenden ist!

[himitsu]

Un Barcodes drumrum muß immer ein gewisser Abstand sein.
auch bei den einfachen 2D-Strichcodes ist davor/dahinter ein gewisser Abstand von nöten, ähnliche Farbe wie der Strichzwischenraum.

[Rolf Frei]

Ich habe eben ein Problem mit deiner QRCode Komponente gefunden. Das +-Zeichen wird da falsch encoded und liefert beim Zurücklesen des QR-Codes mit einem Reader den ASCII HEX Wert A8 retour anstatt dem +-Zeichen. Ob da noch andere Zeichen davon betroffen sind, kann ich leider nicht sagen.

Nehme ich das Testprogramm und gebe da als Text "+++" ein und erstelle den QR-Code, wird der erstellte QR-Code von einem Reader falsch ausgelesen, oder besser gesagt, der erzeugte QR-Code macht aus dem + ein falsches Zeichen.

EDIT:
Anscheinend ist das ein Eisntellungproblem bei meinem QR-Code Reader.