freie QR-Code Komponente mit Error Correction Level M

[jus]

Heureka ich habs, es lag an "InputMode" den mußte man unbedingt auf UNICODE_MODE umstellen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  zb : TZintBarcode;
  s: String;
  i: Integer;
begin
  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;
  zb.InputMode:=UNICODE_MODE;  //<----sehr wichtig!!!
  zb.Data := s;
  zb.GetBarcode(image1.Picture.Bitmap);
  zb.Free;

  image1.Refresh;
end;

Ich habe mal eine Demo Anwendung angehängt. Für den Fall, dass jemand das mal auch benötigt. Funktioniert zumindest mit meiner österreichischen E-Banking App. Interessant wäre, ob es auch in Deutschland funktioniert. Vielleicht kann jemand dazu auch mal ein Feedback geben.

Danke nochmals für eure Hilfe.

Lg,
jus