QR Code Komponente

[stalkingwolf]

Hallo,

wir haben vor kurzem für die Österreicher die tolle RKSV Kassensignierung programmiert und uns auf die DLL von A-Trust gestützt.
Diese generiert allerdings einen ziemlich bescheiden einzustellenden QR Code und dazu imo auch einen viel zu feinen QR Code.
Sprich ich kann zwar bei der Generierung des QR Codes einen Skalierungsfaktor mitgeben, aber der ist INT und damit ist Ding zu groß oder zu klein zum scannen. Aktuell habe ich eine Kantenlänge von 4cm und das ist imo zu groß. Der nächste kleine Skalierungsfaktor gibt mir dann aber 2cm Kantenlänge raus. 3cm wäre mir lieber.
Wir erhalten die QR Code als BITMAP und wenn ich diesen skaliere und auf einen 150DPI Belegdrucker drucke, dann ist dieser fast nicht mehr lesbar. Man brauch schon eine sehr gute Kamera und Software und viel Geduld.

D.h ich würde mich gern selber darum kümmern. ei normalen Strichcodes ist das ja noch relativ simpel. aber bei QR Code bräuchte ich dafür wohl eine verlässliche Komponente.

Oder eine sauberere Skalierung der Bitmap.
Aber wie gesagt. ich habe den QR Code von A-Trust mit anderen verglichen und dieser ist viel feiner. ES wirkt als wären mehr Informationen darin enthalten.

[Der schöne Günther]

Also vielleicht habe ich zu wenig Praxiserfahrung mit Reports oder ich verstehe das Problem nicht, aber eine Bitmap ist eine Pixeltapete. Was du in Zentimetern draus machst bleibt dir überlassen. Wie skalierst du denn? Die Delphi-Standard-Skalierung über

Delphi-Quellcode:

TImage

oder so ist, meine ich, ein potthässliches Next-Neighbour, das ist für Informationsgrafiken wie Strich- oder QR-Codes natürlich der Tod.

[Mavarik]

QRCode erzeugen ist in ca. 1000 LOC zu machen....

Aber ein Punkt ist nun mal ein Punkt...

Halbe Punkte kann kein Drucker drucken, also reicht ein Integer-Multiplikator...

Wenn Dein QRCode also 60 Pixel breit ist, ist die nächste mögliche Größe eben 120, 180... usw...

Damit solltest Du bei 150DPI also auf 2.41 cm hinkommen...

[SebastianZ]

Je nachdem wie du den Beleg druckst, kann dir das Erzeugen des QR-Codes das mitunter auch dein Reporting-System oder der Bon-Drucker übernehmen (es gibt zB ESC/POS Befehle zum Drucken von QR-Codes).

[stalkingwolf]

Nun ja die A-Trust DLL gibt bei Skalierungsfaktor 1 ein 80x80 Pixel Bitmap aus.
Bei Faktor 2 = 160
Bei Faktor 3 = 240 usw.
160 Pixel ergeben ausgedruckt 4cm.

Anbei einmal ein Foto von dem was ich drucke.
Unten rechts ist der 1 zu 1 Druck des QR Codes von 160Pixel generiert von der A-Trust DLL.
Darüber mein skalierter. Der ist nicht mehr lesbar.
Links ist ein QR Code von einem Gasthaus Zettel. Man erkennt den Unterschied direkt zu dem aus der A-Trust DLL.
Das meine ich mit "feiner" und "mehr Informationen". Es sind natürlich nicht mehr Informationen.

skaliert habe ich mit

Code:

procedure ResizeBitmap(var Bitmap: TBitmap; Width, Height: Integer);
var
  R: TRect;
  B: TBitmap;
  X, Y: Integer;
begin
  if assigned(Bitmap) then begin
    B:= TBitmap.Create;
    try
      if Bitmap.Width > Bitmap.Height then begin
        R.Right:= Width;
        R.Bottom:= ((Width * Bitmap.Height) div Bitmap.Width);
        X:= 0;
        Y:= (Height div 2) - (R.Bottom div 2);
      end else begin
        R.Right:= ((Height * Bitmap.Width) div Bitmap.Height);
        R.Bottom:= Height;
        X:= (Width div 2) - (R.Right div 2);
        Y:= 0;
      end;
      R.Left:= 0;
      R.Top:= 0;
      B.PixelFormat:= Bitmap.PixelFormat;
      B.Width:= Width;
      B.Height:= Height;
      B.Canvas.Brush.Color:= clwhite;
      B.Canvas.FillRect(B.Canvas.ClipRect);
      B.Canvas.StretchDraw(R, Bitmap);
      Bitmap.Width:= Width;
      Bitmap.Height:= Height;
      Bitmap.Canvas.Brush.Color:= clwhite;
      Bitmap.Canvas.FillRect(Bitmap.Canvas.ClipRect);
      Bitmap.Canvas.Draw(X, Y, B);
    finally
      B.Free;
    end;
  end;
end;

Zitat:

Zitat von SebastianZ (Beitrag 1373052)

Je nachdem wie du den Beleg druckst, kann dir das Erzeugen des QR-Codes das mitunter auch dein Reporting-System oder der Bon-Drucker übernehmen (es gibt zB ESC/POS Befehle zum Drucken von QR-Codes).

Wir drucken seler über die GMPrintSuite. Über den Drucker selber wäre das Problem das ich dann ein Druckcontext von Windows habe und darein meinen QR bräuchte. Das könnte ich dann nur NACH dem Beleg drucken und wäre damit auch nicht in unseren Belegarchiv mit abgespeichert.

Edit: Der Drucker hat 180 nicht 150dpi.

[bytecook]

Schau mal hier im Forum:

http://www.delphipraxis.net/143986-%...i-zint-13.html

oder hier:

http://www.consert.net/shop/?page=sh...d=2d-bardcodes

HTH!

[Mavarik]

Zitat:

Zitat von stalkingwolf (Beitrag 1373060)

Nun ja die A-Trust DLL gibt bei Skalierungsfaktor 1 ein 80x80 Pixel Bitmap aus.
Bei Faktor 2 = 160
Bei Faktor 3 = 240 usw.
160 Pixel ergeben ausgedruckt 4cm.

:stupid: NEIN...

bei 180 DPI sollte ein Bild mit 160 Pixeln 2,28 cm groß sein...

2,54(cm) * 160(Pixel) / 180(DPI) = 2,28cm

[TiGü]

Lass dir doch einfach nur den Signaturstring* geben und nehme eine beliebige QR-Code Komponente und füttere sie damit. Klappt wunderbar.
Bspw. diese hier: http://www.delphipraxis.net/173262-q...qrbarcode.html


*also der jetzt hier: _R1-AT0_DEMO-CASH-BOX524_366596_2015-12-17T11:23:44_0,00_0,00_3,64_-2,60_1,79_VFJB_47be737cb1f6d1f1_ZvNxJw6a1A4= _J7YC28zquHfHzMpx02TqElbXOTSgXQu5JAA9Xu1Xzzu5p8eUY T+sgmyhzRps5nYyEp5Yh8ATIa9130zmuiACHw==

[stalkingwolf]

Zitat:

Zitat von Mavarik (Beitrag 1373113)

Zitat:

Zitat von stalkingwolf (Beitrag 1373060)

Nun ja die A-Trust DLL gibt bei Skalierungsfaktor 1 ein 80x80 Pixel Bitmap aus.
Bei Faktor 2 = 160
Bei Faktor 3 = 240 usw.
160 Pixel ergeben ausgedruckt 4cm.

:stupid: NEIN...

bei 180 DPI sollte ein Bild mit 160 Pixeln 2,28 cm groß sein...

2,54(cm) * 160(Pixel) / 180(DPI) = 2,28cm

unsere GMPrintSuite druckt das auf 4cm siehe Bild. Skalierung in der Funktion deaktiviert. Ich lege nun aber nicht meine Hand ins Feuer ob das korrekt ist was das Ding macht.

Ich versuche gerade mein Glück mit der ZXing QRCode

[stalkingwolf]

Mit der ZXing funktioniert das 1a. Kleine handliche Unit zum generieren von 2D QR Codes.
Damit sieht das Ding auch so aus wie ich es gern hätte und konnte es damit verkleinern.

Was die GMPrintSuite genau berechnet habe ich nun nicht ganz raus bekommen.
Bei einer 175 Pixel Bitmap kommt er auf 1,83inch. Das mal 25,4 = 46,48mm.
Übrigens auf jeder DPI Anzahl gleich.

Ich war gerade aber zu faul das ganze zu debuggen und habe die QR Bitmap so verkleinert das ich auf 3cm komme.
Aber http://www.unitconversion.org/typogr...onversion.html kommt man auf das gleiche.