Einzelnen Beitrag anzeigen

jus

Registriert seit: 22. Jan 2005
343 Beiträge
 
Delphi 2007 Professional
 
#18

AW: freie QR-Code Komponente mit Error Correction Level M

  Alt 17. Jun 2015, 12:27
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
Angehängte Dateien
Dateityp: rar QRCode_Ueberweisung_Demo.rar (374,4 KB, 40x aufgerufen)
  Mit Zitat antworten Zitat