CURL: Previsualizar etiquetas ZPL sem impressora Zebra

[rochinha]

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

[Heero]

Deus te abençoe! hahahahahaha

[asimoes]

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

Código: Selecionar todos

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

[asimoes]

Na documentação do WS

Código: Selecionar todos

:SetRequestHeader( "Content-Type", 'application/x-www-form-urlencoded; charset="utf-8"' )

Com ou sem o request, funciona.

[asimoes]

Pode adicionar:

:SetRequestHeader( "Accept", "application/pdf")

[asimoes]

Agora completo

Código: Selecionar todos

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

[rochinha]

Amiguinhos,

Bastou a semente para conseguimos o fruto. Parabens.

[asimoes]

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.

[cleitonLC]

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

Código: Selecionar todos

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