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