freie QR-Code Komponente mit Error Correction Level M

[jus]

@Rollo62: Danke für den Code.

Ich habe da ein mysteriöses Problem und zwar erkennt meine e-banking app von meinem Iphone die von Zint erzeugten QR-Codes nicht. Sehr wohl erkennt es die von Google erzeugten QR-Codes und den QR-Code von der Referenzimplementierung Stuzza.

Und zwar geht es um folgenden Text/Payload:

Code:

BCD
001
1
SCT
ABCDATWW
Example with fictive data
AT611904300234573201

Ich erzeuge den QR-Code mit Zint mit folgenden Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  zb : TZintBarcode;
  bmp : TBitmap;
  s: String;
  i: Integer;
begin
  Repaint;
  bmp := TBitmap.Create;
  s:='';
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    s:=s+Memo1.Lines.Strings[i]+#10;
  end;
  SetLength(s,Length(s)-1);

  zb := TZintBarcode.Create;
  zb.BarcodeType := tBARCODE_QRCODE;
  zb.Scale:=3;
  zb.Option1:=2; // <---Error Correction Level M
  zb.Option2:=5; // <---Version 5
  zb.Data := s;
  zb.GetBarcode(bmp);

  Canvas.Draw(10, 10, bmp);
  bmp.Free;
  zb.Free;

end;

Wenn ich an Google den QR-Code erzeugen lassen möchte, so schicke ich:

Code:

http://chart.apis.google.com/chart?chs=300x300&cht=qr&chld=M&chl=BCD%0A001%0A1%0ASCT%0AABCDATWW%0AExample+with+fictive+data%0AAT611904300234573201&chof=gif

Hat jemand eine Idee woran es scheitern könnte?

Lg,
jus

[mkinzler]

Alle Daten sind in einem Wert kodiert.

Versuche statt

Delphi-Quellcode:

  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    s:=s+Memo1.Lines.Strings[i]+#10;
  end;

s := Memo1.Lines.Text;

[Dejan Vu]

Ist verlustbehaftetes JPG nicht das falsche Format für einen Barcode? Wäre komprimiertes BMP oder GIF nicht besser, da verlustfrei? Auch PNG kommt mit scharfen Kanten besser zurecht. Gerade beim skalieren könnte es zu Leseproblemen wegen der Artefakte kommen.

[mkinzler]

Das kommt nach dazu, aber das Hauptproblem ist das fehlenden Trennkennzeichen.

IM QR-Code mit Zint ist

Code:

BCD0011SCTABCDATWWExample with fictive dataAT611904300234573201

kodiert.

in den anderen

Code:

BCD
001
1
SCT
ABCDATWW
Example with fictive data
AT611904300234573201

[Rollo62]

Vielleicht kannst du die C++ Zeichen statt LF ausprobieren: also '\n'

Siehe unten der Auszug von hier ftp://ftp.heanet.ie/mirrors/sourcefo...manual_242.pdf
(sorry für die schlechte Formatierung, das war Copy-aus-PDF, damits schnell geht).

Rollo

Zitat:

Non-printing characters can be entered on the command line using the backslash (\) as an escape
character. Permissable characters are shown in the table below. Note that only applies on the
command line.
Escape
Character
ASCII
Equivalent
Interpretation
\0
0x00
Null
\E
0x04
End of
Transmission
\a
0x07
Bell
\b
0x08
Backspace
\t
0x09
Horizontal Tab
\n
0x0a
Line Feed
\v
0x0b
Vertical Tab
\f
0x0c
Form Feed
\r
0x0d
Carriage Return
\e
0x1b
Escape
\G
0x1d
Group Selector

[mkinzler]

Das wird ihm hier nichts helfen

Zitat:

Note that only applies on the command line.

[Rollo62]

Hallo kinzler,

ich hab schon Pferde kxxxxn sehen.

Die DLL ist in C/C++ geschrieben, wer weiss wie ZINT das intern interpretiert ?
Man könnte natürlich in die Sourcen schauen, wenn man Zeit dafür hat.

Aber einen Versuch wär es do Wert stat #0A '≠n' zu schreiben, oder nicht ?

Rollo

[Mavarik]

Was erwartet den die Bankingsoftware

LF oder CRLF oder nur CR?


Mavarik

PS: QR-Code Erzeugung ist doch nicht der Faktor... Das lesen ist schon schwieriger...