@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