Tiskanje QR code na POS termični tiskalnik

Vse v zvezi s tiskanjem, urejanjem izpisov in reporting komponentami.
dr*no
Prispevkov: 11
Pridružen: 19.07.2013 08:47:29

Tiskanje QR code na POS termični tiskalnik

OdgovorNapisal/-a dr*no » 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.

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


Hvala!

dr*no
Prispevkov: 11
Pridružen: 19.07.2013 08:47:29

Re: Tiskanje QR code na POS termični tiskalnik

OdgovorNapisal/-a dr*no » 10.02.2016 16:56:01

Pozdravljeni.

Z naslednjo kodo brez težav izpišem BAR CODO128. Nikakor pa ne pogruntam QRCode.

Lp

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(chr(29)+'h'+chr(100));  //Velikost
    Myprinter.write(chr(29)+'w'+chr(3));    //Širina
    Myprinter.write(chr(29)+'f'+chr(2));    //Font
    Myprinter.write(chr(29)+'H'+chr(1));    //Pozicija
    Myprinter.write(chr(29)+'k'+chr(73)+chr(8)+'12345678'); //Bar code128
    Myprinter.write(chr(0));
    Myprinter.write(chr(27)+'d'+chr(3));
    Myprinter.write(chr(29)+'@');
    myprinter.endraw;
  end
 finally
  setprinter(oldprinter);
  myprinter.free;
 end;


Vrni se na

Kdo je na strani

Po forumu brska: Google [Bot] in 1 gost