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