Jetzt funktioniert es bei mir.
Beim Drucken muss man die Länge mit übergeben
Delphi-Quellcode:
function TfKTESCSequences.GetESCSequenceQRCode: String;
var
sText: String;
iLength: INteger;
begin
sText := 'Thomas kann QR-Code Drucken';
iLength := length(sText);
{ Initialize printer }
Result := #27 + #64;
{ Auf Drucker umschalten }
Result := Result + #27 + #61 + #1;
{ Selectet print modes, Font A }
Result := Result + #27 + #33 + #0 + 'Font A' + #27 + #33 + #0 + cCRLF;
Result := Result + #29 + #40 + #107 + #4 + #0 + #49 +#65 + #50 + #0;
Result := Result + #29 + #40 + #107 + #3 + #0 + #49 +#67 + #20; //#5
Result := Result + #29 + #40 + #107 + #3 + #0 + #49 +#69 + #48;
Result := Result + #29 + #40 + #107 + char(3 + iLength) + #0 + #49 +#80 + #48 + sText;
Result := Result + #29 + #40 + #107 + #3 + #0 + #49 +#81 + #48;
{ Print and feed n lines }
Result := Result + #27 + #100 + #10;
{ Papier abschneiden }
Result := Result + #29 + #86 + #1 + #0;
Wobei die die Parameter für die Länge noch schöner gemacht werden müssen so wie in der Beschreibung. Sonst kann ich maximal 253 Zeichen drucken.