como gerar o codigo binario da imagem para a impressora zebra tlp-2844

Question

ESTOU TENTANDO ENVIAR UMA IMAGEM

PARA A IMPRESSORA ZEBRA TLP-2844

JA PESQUISEI NOS FORUNS E ENCONTREI A ETIQUETA PRONTA E FUNCIONANDO.

AMINHA DUVIDA É COMO GERAR ESSE CODIGO BINARIO PRA CONTENAR

COM O COMANDO GW

I8,A,001


Q320,024
q831
rN
S4
D7
ZT
JF
OD
R175,0
f100
N
GW205,20,8,63,ñÀãÀ
ñÀãÀ
ñÀãÀ
ãÿøÇÿñãÿøÇÿñãÿøÇÿñð àqÇ qð àqÇ qð àqÇ qãøãÇ qãøãÇ qãøãÇ qñÇ
Ç qñÇ
Ç qñÇ
Ç qðÿÇÿñðÿÇÿñðÿÇÿñ qÿÿÀ
qÿÿÀ
qÿÿÀ
þüqÿÿÿþüqÿÿÿþüqÿÿÿþ àqÀàþ àqÀàþ àqÀàð8ÿøàð8ÿøàð8ÿøàŽ àqÀÿŽ àqÀÿŽ àqÀÿ ~8ãÿÿ ~8ãÿÿ ~8ãÿÿãñÿÇqãñÿÇqãñÿÇqÿÿÿüÿÿÿÿÿÿüÿÿÿÿÿÿüÿÿÿ  qÀ
 qÀ
 qÀ
ÿÇãÇÿñÿÇãÇÿñÿÇãÇÿñ
Ç qÇ q
Ç qÇ q
Ç qÇ q
ÇÿÇ q
ÇÿÇ q
ÇÿÇ q
Ç Ç q
Ç Ç q
Ç Ç qÿÇàqÇÿñÿÇàqÇÿñÿÇàqÇÿñ  ÿÿÀ
 ÿÿÀ
 ÿÿÀ

A460,261,2,1,1,1,N,"Texto4"
P1

UTILIZEI A ROTINA ABAIXO MAS NAO DEU CERTO.

var
  Arq: TextFile;
  Arq1: File;

  MemoryStream : TMemoryStream;
  Jpg : TJpegImage;
  ByteArray : TByteDynArray;
  bin1 : TByteDynArray;
  S, str : String;

begin
  inherited;

        Jpg := TJpegImage.Create;
        MemoryStream := TMemoryStream.Create;
        Jpg.LoadFromFile('C:\figura.jpg');
        Jpg.SaveToStream(MemoryStream);
        StreamToByteArray(MemoryStream,ByteArray);
        bin1 := ByteArray;
        MemoryStream.Free;
        Jpg.Free;
        AssignFile(Arq1, 'c:\img1.bin');
        Rewrite(Arq1);
        BlockWrite(Arq1, bin1, SizeOf(bin1));
        CloseFile(Arq1);

      AssignFile(Arq, 'c:\etiqueta.txt');
      Rewrite(Arq);
      Writeln(Arq, '');
      Writeln(Arq, 'N');
      Writeln(Arq, 'D4');
      Writeln(Arq, 'S2');
      Writeln(Arq, 'R32,0');

       Writeln(Arq, 'GW10,10,50,50,' + bin1);

       Writeln(Arq, 'P0001' );
       Writeln(Arq, 'N');
       Writeln(Arq, '');

      CloseFile(Arq);

  ===================================

     a linha  

       Writeln(Arq, 'GW10,10,50,50,' + bin1);

  da erro de  incompatibilidade de campos string e array.

como monto essa linha em delphi ??

Answer 1

Boa tarde tudo bem ?

Estou com esse mesmo problema.

Você conseguiu gerar esse código pelo delphi para concatenar com o comando GW?

Abraço..