Tiskanje QR code na POS termični tiskalnik
Objavljeno: 09.02.2016 23:51:36
Uporabljam BlueTooth termični tiskalnik. Tiskam direktno v tisklanik -RAW printing, ker drugače, prek bluetootha, tiska počasi. Vse dela lepo, ustavi se pri QRcodi. Tiskalnik uporablja standardne EPSON(ESC/POS) komande.
Mi lahko kdo pomaga, kako poslati tiskalniku pravilno ESC komando za tiskanje QR code.
Hvala!
Mi lahko kdo pomaga, kako poslati tiskalniku pravilno ESC komando za tiskanje QR code.
Koda: Izberi vse
var Myprinter : TRawPrinter;
oldprinter : TPrinter;
Printdialog1 : TPrintDialog;
begin
Printdialog1 := TPrintDialog.Create(nil);
MyPrinter:=TRawPrinter.Create;
oldprinter:=setprinter(MyPrinter);
try
if Printdialog1.execute then
begin
myprinter.startraw;
Myprinter.write(#29#40#107#3#0#49#67#3);
Myprinter.write(#29#40#107#3#0#49#69#48);
Myprinter.write(#29#40#107#3#0#49#80#48'123456789');
Myprinter.write(#29#40#107#3#0#49#81#48);
myprinter.endraw;
end
finally
setprinter(oldprinter);
myprinter.free;
end