Clipper On Line • Ver Tópico - CURL: Previsualizar etiquetas ZPL sem impressora Zebra

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor rochinha » 11 Mar 2021 20:41

Amiguinhos,

Seu cliente solicitou impressão de etiquetas em impressoras Zebra? Mas você não tem uma nas mãos.

Veja esta dica MA.GA.VI.LIO.SA:

curl --get http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/ --data-urlencode "^XA^MMT^PW400^LL0400^LS0^FT5,384^A0N,41,40^FH\^FDwww.pctoledo.com.br^FS^BY1,3,99^FT70,322^BCN,,Y,N^FD>:Forum do Programador^FS^FT10,46^A0N,38,60^FH\^FDLinguagem ZPL^FS^BY1,3,104^FT96,182^B3N,N,,Y,N^FD1135265909+^FS^PQ1,0,1,Y^XZ" > label.png
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor Heero » 11 Mar 2021 21:10

Deus te abençoe! hahahahahaha
Ricardo Rodrigues
Harbour 3.2 + BCC + Minigui
Cursando Análise e Desenvolvimento de Sistemas
Heero
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 51
Data de registro: 13 Jul 2015 22:10
Cidade/Estado: Guarulhos/SP
Curtiu: 13 vezes
Mens.Curtidas: 5 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor asimoes » 11 Mar 2021 22:45

Uma alternativa ao CURL
Pode salvar como PDF, PNG, JPG não testei BMP

oServerWS := Win_OleCreateObject("MSXML2.ServerXMLHTTP")
oXMLDoc   := Win_OleCreateObject("MSXML2.DOMDocument")
   
cUrlWS := 'http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/'
cData :=  '"^XA^MMT^PW400^LL0400^LS0^FT5,384^A0N,41,40^FH\^FDwww.pctoledo.com.br^FS^BY1,3,99^FT70,322^BCN,,Y,N^FD>:Forum do Programador^FS^FT10,46^A0N,38,60^FH\^FDLinguagem ZPL^FS^BY1,3,104^FT96,182^B3N,N,,Y,N^FD1135265909+^FS^PQ1,0,1,Y^XZ"'

nResolve := 5 * 1000 
nConnect := 5 * 1000 
nSend    := 30 * 1000 
nReceive := 30 * 1000 
   
With Object oServerWS
   :SetTimeouts( nResolve, nConnect, nSend, nReceive )
   :Open( "POST", cUrlWS, .F. )
   :SetRequestHeader( "Content-Length", hb_NtoS( 1024 ) )
   :Send( cData )
   Do While :readyState != 4
      :WaitForResponse( 1000 )
   Enddo
   cResp := :responseBody
   Hb_Memowrit("teste.pdf", cResp )
End
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor asimoes » 11 Mar 2021 23:13

Na documentação do WS
:SetRequestHeader( "Content-Type", 'application/x-www-form-urlencoded; charset="utf-8"' )


Com ou sem o request, funciona.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor asimoes » 11 Mar 2021 23:18

2021-03-11 23_18_10-Greenshot.png


Pode adicionar:

:SetRequestHeader( "Accept", "application/pdf")
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor asimoes » 11 Mar 2021 23:24

Agora completo

oServerWS := Win_OleCreateObject("MSXML2.ServerXMLHTTP")
oXMLDoc   := Win_OleCreateObject("MSXML2.DOMDocument")
   
cUrlWS := 'http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/'
cData :=  '"^XA^MMT^PW400^LL0400^LS0^FT5,384^A0N,41,40^FH\^FDwww.pctoledo.com.br^FS^BY1,3,99^FT70,322^BCN,,Y,N^FD>:Forum do Programador^FS^FT10,46^A0N,38,60^FH\^FDLinguagem ZPL^FS^BY1,3,104^FT96,182^B3N,N,,Y,N^FD1135265909+^FS^PQ1,0,1,Y^XZ"'

nResolve := 5 * 1000 
nConnect := 5 * 1000 
nSend    := 30 * 1000 
nReceive := 30 * 1000 
   
With Object oServerWS
   :SetTimeouts( nResolve, nConnect, nSend, nReceive )
   :Open( "POST", cUrlWS, .F. )
   :SetRequestHeader( "Content-Type", 'application/x-www-form-urlencoded; charset="utf-8"' )
   :SetRequestHeader( "Accept", "application/pdf")
   :SetRequestHeader( "Content-Length", hb_NtoS( 3000 ) ) //3000 é o máximo
   :Send( cData )
   Do While :readyState != 4
      :WaitForResponse( 1000 )
   Enddo
   cResp := :responseBody
   Hb_Memowrit("teste.pdf", cResp )
End
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor rochinha » 12 Mar 2021 12:15

Amiguinhos,

Bastou a semente para conseguimos o fruto. Parabens.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor asimoes » 12 Mar 2021 13:23

rochinha escreveu:Amiguinhos,

Bastou a semente para conseguimos o fruto. Parabens.

Agradeço a você Rochinha que trouxe mais uma possibilidade para nos ajudar, eu só adicionei uma alternativa.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

CURL: Previsualizar etiquetas ZPL sem impressora Zebra

Mensagempor cleitonLC » 22 Set 2021 14:02

asimoes escreveu:Uma alternativa ao CURL
Pode salvar como PDF, PNG, JPG não testei BMP

oServerWS := Win_OleCreateObject("MSXML2.ServerXMLHTTP")
oXMLDoc   := Win_OleCreateObject("MSXML2.DOMDocument")
   
cUrlWS := 'http://api.labelary.com/v1/printers/8dpmm/labels/4x6/0/'
cData :=  '"^XA^MMT^PW400^LL0400^LS0^FT5,384^A0N,41,40^FH\^FDwww.pctoledo.com.br^FS^BY1,3,99^FT70,322^BCN,,Y,N^FD>:Forum do Programador^FS^FT10,46^A0N,38,60^FH\^FDLinguagem ZPL^FS^BY1,3,104^FT96,182^B3N,N,,Y,N^FD1135265909+^FS^PQ1,0,1,Y^XZ"'

nResolve := 5 * 1000 
nConnect := 5 * 1000 
nSend    := 30 * 1000 
nReceive := 30 * 1000 
   
With Object oServerWS
   :SetTimeouts( nResolve, nConnect, nSend, nReceive )
   :Open( "POST", cUrlWS, .F. )
   :SetRequestHeader( "Content-Length", hb_NtoS( 1024 ) )
   :Send( cData )
   Do While :readyState != 4
      :WaitForResponse( 1000 )
   Enddo
   cResp := :responseBody
   Hb_Memowrit("teste.pdf", cResp )
End


Kkkkkk, show...fiz algo parecido dias atrás, mas com foco em impressoras Argox OS-2140 , no site https://layoutview.evolabel.com/, porém usando python...
cleitonLC
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 37
Data de registro: 17 Ago 2021 14:38
Cidade/Estado: Cariacica/ES
Curtiu: 18 vezes
Mens.Curtidas: 11 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro