ActiveDelphi

[feknigth@hotmail.com]

Bom Dia Amigos, estou com um problemão, estou criando uma etiqueta na impressora Argox 214, porém não consigo que ela imprima uma imagem.

Mesmo realizando uma dica,dando um savetofile na imagem em Timage, depois lendo esse arquivo hexadecimal,porém ela não imprime de maneira nenhuma, estou desesperado pois já tentei de tudo e não sei o que acontece

Agradeço mesmo a ajuda de vocês.

Segue meu código

procedure MotaCabecalho;
Var arq : TextFile;
sline : String;
begin
Say.EjectEnd := False;

Image1.Picture.savetofile('C:\Teste.txt');
AssignFile(arq,'C:\Teste.txt');
Reset(arq);

Say.Say(iLinha, 0, '<xpml><page></xpml>'+CHR(2)+'n');
Inc(iLinha);
Say.Say(iLinha, 0, CHR(2) + 'M0739');
Inc(iLinha);
Say.Say(iLinha, 0, CHR(2) + 'O0220');
Inc(iLinha);
Say.Say(iLinha, 0, CHR(2) + 'V0');
Inc(iLinha);
Say.Say(iLinha, 0, CHR(2) + 'f220');
Inc(iLinha);
Say.Say(iLinha, 0, CHR(2) + 'SE');
Inc(iLinha);
Say.Say(iLinha, 0, '
D');
Inc(iLinha);
Say.Say(iLinha, 0, CHR(2) + 'ICPgfx0');
Inc(iLinha);

while not Eof (arq) do
begin
sline := '';
ReadLn(arq,sline);
Say.Say(iLinha,0,sline);
Inc(iLinha);
end;

CloseFile(arq);

Say.Say(iLinha, 0, '<xpml></page></xpml><xpml><page></xpml>'+CHR(2)+'L');
Inc(iLinha);
Say.Say(iLinha, 0, 'D11');
Inc(iLinha);
Say.Say(iLinha, 0, 'H20');
Inc(iLinha);
Say.Say(iLinha, 0, 'PE');
Inc(iLinha);
Say.Say(iLinha, 0, 'A2');
Inc(iLinha);


bMontaCabec := True;
end;
///***************************************************************************


/// MONTA LINHA **************************************************************
procedure MontaEtiqueta(iEtiqueta : Integer);
Var
sAlinhamento1, sAlinhamento2, sAlinhamento3, sAlinhamento4, sAlinhamento5, sAlinhamento6,sAlinhamento7, sAlinhamento8,sAlinhamento9,sAlinhamento10,sAlinhamento11,sAlinhamento12,sAlinhamento13,sAlinhamento14,sAlinhamento15,sAlinhamento16,sAlinhamento17,sAlinhamento18,sAlinhamento19,sAlinhamento20,sAlinhamento21,sAlinhamento22, sLetra : String;

begin

case iEtiqueta of
1 : begin
sAlinhamento1 := '1911A1202580012Destinat rio';
sAlinhamento2 := '1911A1202270012';
sAlinhamento3 := '1911A1002100012';
sAlinhamento4 := '1911A1001940012';
sAlinhamento5 := '1911A1001780012';
sAlinhamento6 := '1911A1001630012CEP:';
sAlinhamento7 := '1911A0801420012OBSERVAیES';
sAlinhamento8 := '1iA403402550197A';
sAlinhamento9 := '1911A0602430272';
sAlinhamento10 := '1911A1001230016Transporte:';
sAlinhamento11 := '1911A1001090020Pedido:';
sAlinhamento12 := '1911A1000940020Volumes:';
sAlinhamento13 := '1911A1001090205Nota Fiscal:';
sAlinhamento14 := '1911A1000940205Peso:';
sAlinhamento15 := '1911A1000720012REMETENTE';
sAlinhamento16 := '1911A1000570012';
sAlinhamento17 := '1911A0800400012';
sAlinhamento18 := '1911A0800280012';
sAlinhamento19 := '1911A0800160012';
sAlinhamento20 := '1911A0800040012CEP:';
sAlinhamento21 := '1X1100000910007B372049001001';
sAlinhamento22 := '1Y1100000130306gfx0';
end;

end; /// FIM: case iEtiqueta of

E no fim:

with Say do
begin

Output := sSaidaImpressao;

if PrintOn then
begin

if not bMontaCabec then
MotaCabecalho;

MontaEtiqueta( 1 );

Say(iLinha, 0, 'Q'+FormatFloat('0000',1));
Inc(iLinha);
Say(iLinha, 0, 'E');
Inc(iLinha);
Say(iLinha, 0, CHR(2) + 'xCGgfx0');
Inc(iLinha);
Say(iLinha, 0, '<xpml></page></xpml><xpml><end></xpml>');
Inc(iLinha);


Só para complementar, a etiqueta imprime sem problema, porém somente sem a imagem.

[joemil]

eu uso FastReport pra imprimir as etiquetas e vai de boa. so instalar a impressora no Windows como uma impressora normal. funciona pra daruma, bematech, argox, epson...
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[feknigth@hotmail.com]

Bom Dia Joemil

Via FastReport, como você carrega a imagem dinamicamente,convertendo dessa mesma maneira?

Grato