ESC-Sequenze für QR-Code

[Thomas Feichtner]

Hallo,

hat schon jemand einen QR-Code auf einen Epson TM88 IV über ESC-Sequenzen gedruckt?

Leider komme ich mit der Beschreibung nicht recht weiter.

Diese Daten schicke ich an den Drucker:

Delphi-Quellcode:

function TfKTESCSequences.GetESCSequenceQRCode: String;
begin
  { 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;

  { Daten für QR }
  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 + #3 + #0 + #49 +#80 + #48 + 'www.mgm.at';
  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;
end;