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

[Redeemer]

Nach diesem Thread hab ich mir überlegt, dass es seltsam ist, dass Leute 3 Seiten mit DLLs rumeiern, statt so'n Ding einfach mal eben selbst zu schreiben. Also hab ich Donnerstag und Freitag nach Feierabend mal schnell eine nahezu komplette Klasse aus dem Boden gestampft. 100% Delphi. Es fehlt an sich nichts Wichtiges:

• Kanji werden nicht unterstützt, braucht in Europa keiner. Könnte man mal irgendwann nachtragen, dafür müsste ich mich aber mit Shift JIS auseinandersetzen, was dem zugrundeliegt.
• ECI (Extended Channel Interpretation) fehlt, gibt kaum Decoder dafür. Gehört zudem nicht unbedingt in die Klasse, da man die ECI-Daten auch als Eingabe übergeben kann.
• Automatische Aufteilung der Eingabe auf mehrere Streams mit jeweils unterschiedlicher Kodierung ist nicht implementiert. Würde was bringen, wenn abschnittsweise nur Ziffern oder abschnittsweise nur Großbuchstaben/Ziffern vorkommen.

Zugrunde liegt meine TRedeemerInheriablePNG, die ich gerne für neue Grafikformate nutze (sie teilt TPNGImage.CreateFromBlank in die Methoden Create und den Rest). LoadFromStream hätte man durch etwas Sinnvolles überschreiben können, am Ende sorgt das wohl für mehr Probleme mit Zeichensätzen. Die Klasse akzeptiert als Eingabedaten ausschließlich einen RawByteString, der Nutzer muss sich über die Daten also selbst Gedanken machen. Nach dem Standard von 2005 soll man Latin-1 nutzen, UTF-8 ist nicht offiziell unterstützt.

Delphi-Quellcode:

var
  QR: TRedeemerQR;
begin
  QR := TRedeemerQR.Create();
  try
    QR.LoadFromString(AnsiString(Edit1.Text), TQRECLevel(ComboBox1.ItemIndex));
    Image1.Picture.Assign(QR);
  finally
    QR.Free();
  end;

Es ist auch eine Klasse enthalten, mit der man allgemein Bitfelder zeichnen kann.

Zur Implementation genutzte Informationen:
- http://www.swetake.com/qrcode/qr1_en.html (allgemeines Verfahren)
- https://www.thonky.com/qr-code-tutorial/introduction (Maskenbewertung und die meisten Konstanten)
- https://en.wikiversity.org/wiki/Reed...al_information (einige weitere Konstanten und Infos über das Interleaving mehrerer auch unterschiedlich großer Reed-Solomon-Blöcke)

GITHUB-PROJEKT
DOWNLOAD (enthält auch eine EXE-Demo und deren Sourcecode)

[Gausi]

Das finde ich jetzt einen interessanten Zufall. Vorgestern hatte ich die Idee, als kleines Gimmick in einem Projekt einen QR-Code anzeigen zu lassen (nichts wildes, nur eine URL), und -schwupps- kommt hier der Code dafür.

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.

(Bisher ist das bei mir nur eine spinnerte Idee, viel Aufwand möchte ich in diese Funktion nicht reinstecken ...)

[jaenicke]

Wichtig wäre noch eine Lizenzangabe. Die Zint Bibliothek verwendet z.B. die Apache Lizenz, die andere hier in der DP vorgestellte Bibliothek (die wir aktuell nutzen) die MPL. Beide Bibliotheken können also auch kommerziell bzw. in Projekten mit der gleichen Lizenz eingesetzt werden.

Wie sieht das hier aus?

Ansonsten sieht das Projekt gut aus und der Quelltext recht übersichtlich.

[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.

[Redeemer]

Das Projekt ist jetzt auf Github.

[TurboMagic]

Super! Danke für's Onlien stellen. Kann man vielleicht mal gebrauchen.
Du könntest es, um seine Verbreitung zu fördern, auch nich hier einstellen:
https://getitnow.embarcadero.com/submit/

Einfach Formular ausfüllen und in den darauf folgenden Tagen sollte es Online sein...
...ich hab' da schon drei Sachen drin...

Grüße
TurboMagic

[Michael Habbe]

Hi zusammen.

Diese Klasse ist super.

Leider bin ich mit meiner Software noch auf Delphi 2006 unterwegs und habe deshalb natürlich Probleme, die Klasse zum Laufen zu bekommen.

Meine Frage wäre, was alles getan werden muss, um sie auch mit älteren Delphis zum Laufen zu bekommen?

Danke
Michael

EDIT: Bin jetzt dabei, eine DLL für den Aufruf aus meinem Programm zu bauen. Der Aufruf funktioniert auch soweit ich die DLL mit Delphi 10.4 Version 27 aufrufe. Beim Aufruf aus Delphi 2006 bekomme ich eine Zugriffsverletzung beim Aufruf der Funktion.

[noisy_master]

Das Problem hatte ich auch:

Zitat von Michael Habbe:

Hi zusammen.
Diese Klasse ist super.

Leider bin ich mit meiner Software noch auf Delphi 2006 unterwegs und habe deshalb natürlich Probleme, die Klasse zum Laufen zu bekommen.

Aber: ich habe ein bisschen gesucht und irgendwer hatte sich tatsächlich die Mühe gemacht das sogar auf D6 zu porten. Ich kann mich leider nicht mehr daran erinnern, wo ich es gefunden habe. Wenn du es nicht findest kannst du mir einfach eine PM schicken, dann sende ich dir mal die D6 Version