Daniel,
este é o código Delphi do exemplo que a Elgin fornece para testar a impressão de QRCode na VOX e que funciona:
procedure TfrmPrincipal.ButtonImprimirQrcodeClick(Sender: TObject); var
s:String; printerName:String; width:Integer; begin
printerName:= ComboBoxImpressoras2.Text; // nome da impressora width:= StrToInt(ComboBoxWidth.Text); //largura { (Gs,o,NUL,width,NUL,STX,Gs,k,m,L,k) - comando ESC/POS para impressao do QRcode para outros comandos, consulte o manual. } s:=Char(29)+ Char(111)+Char(0)+Char(width)+Char(0)+Char(2)+Char(29)+Char(107)+Char(11)+Char(76)+Char(107)+EditUrl.Text+Char(0)+Char(12); WriteRawStringToPrinter(printerName,s);
end;
//15/10/2014 Genilton souza //metodo para enviar dados no formtato puro (Raw) para a impressora. procedure TfrmPrincipal.WriteRawStringToPrinter(PrinterName:String; S:String); { o nome da impressora e passado como parametro - PrinterName:String o nome da mesma pode ser verificada em "Dispositivos e impressoras"
} var Handle: THandle; N: DWORD; DocInfo1: TDocInfo1; begin if not OpenPrinter(PChar(PrinterName), Handle, nil) then begin ShowMessage('error ' + IntToStr(GetLastError)); Exit; end; with DocInfo1 do begin pDocName := PChar('test doc'); pOutputFile := nil; pDataType := 'RAW';
end; StartDocPrinter(Handle, 1, @DocInfo1); StartPagePrinter(Handle); WritePrinter(Handle, PChar(S), Length(S), N); EndPagePrinter(Handle); EndDocPrinter(Handle); ClosePrinter(Handle); end;
Ajuda em algo no contexto ACBrSATExtratoESCPOS ?
Obrigado