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

  • Pergunta

  • 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 ??

    sábado, 22 de julho de 2017 15:30