Envio de arquivo pelo webservice

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
Wanderlei
Usuário Nível 3
Usuário Nível 3
Mensagens: 196
Registrado em: 25 Jan 2008 13:19
Localização: Goiânia - GO

Envio de arquivo pelo webservice

Mensagem por Wanderlei »

Pessoal estou desenvolvendo a integração do meu sistema com a IntegraFarma e preciso enviar os arquivos zipados com o gzip no webservice, alguém já fez isso?

oServer:=CreateObject( "MSXML2.ServerXMLHTTP")
oServer:Open( "POST", 'https://hml-integration.yandeh.com.br/categories' , .f. )
oServer:setRequestHeader("Content-Type", "application/gzip; charset=utf-8")
oServer:setRequestHeader("accept", "application/json" )
oServer:Send()
Wanderlei Cardoso
Analista / Programador
XHarbour + GtWvW + FiveWin + HwGui + Firebird
Skype: cwanderlei
cwanderlei@yahoo.com.br
(62)98171-3059 - whatsapp

Imagem
Avatar do usuário
Daniel
Usuário Nível 3
Usuário Nível 3
Mensagens: 373
Registrado em: 13 Ago 2003 22:42
Localização: Apucarana - PR

Envio de arquivo pelo webservice

Mensagem por Daniel »

Ola tente assim

Código: Selecionar todos

oServer:=CreateObject( "MSXML2.ServerXMLHTTP")
oServer:Open( "POST", 'https://hml-integration.yandeh.com.br/categories' , .f. )
oServer:setRequestHeader("Content-Type", "application/gzip; charset=utf-8;application/x-www-form-urlencoded")
oServer:setRequestHeader("accept", "application/json" )
oServer:Send(arquivo64)
Talvez será necessário transformar em base64
https://pctoledo.org/forum/viewto ... =4&t=13915
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar do usuário
Wanderlei
Usuário Nível 3
Usuário Nível 3
Mensagens: 196
Registrado em: 25 Jan 2008 13:19
Localização: Goiânia - GO

Envio de arquivo pelo webservice

Mensagem por Wanderlei »

oi Daniel, valeu pela atenção, mas lá tem que enviar o arquivo mesmo sem transformar, estou tentando assim:

oServer:open("POST", "https://hml-integration.yandeh.com.br/categories")
oServer:setRequestHeader("content-type", "multipart/form-data; boundary=----WebKitFormBoundary7MA4YWxkTrZu0gW")
oServer:setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
oServer:setRequestHeader("Authorization", "D45F40CD443E486B96BC7E551991AA0A")
oServer:setRequestHeader("User-Agent", "PostmanRuntime/7.15.0")
oServer:setRequestHeader("Accept", "* /*")
oServer:setRequestHeader("Cache-Control", "no-cache")
oServer:setRequestHeader("Postman-Token", "97e7f6bd-29af-40bb-9aca-f0303d2a2430,402dca22-1443-4ba2-b70b-969f93f6f253")
oServer:setRequestHeader("Host", "hml-integration.yandeh.com.br")
oServer:setRequestHeader("accept-encoding", "gzip, deflate")
oServer:setRequestHeader("content-length", "553")
oServer:setRequestHeader("Connection", "keep-alive")
oServer:setRequestHeader("cache-control", "no-cache")
cParm := '------WebKitFormBoundary7MA4YWxkTrZu0gW\r\nContent-Disposition: form-data; name=\"file\"; filename=\"datarey.gz\"\r\nContent-Type: false\r\n\r\n\r\n------WebKitFormBoundary7MA4YWxkTrZu0gW--'
oServer:Send(cParm)

pelo programa do postman funciona ele até me dá esse código aqui, mas na minha aplicação não envia.
Wanderlei Cardoso
Analista / Programador
XHarbour + GtWvW + FiveWin + HwGui + Firebird
Skype: cwanderlei
cwanderlei@yahoo.com.br
(62)98171-3059 - whatsapp

Imagem
Avatar do usuário
Daniel
Usuário Nível 3
Usuário Nível 3
Mensagens: 373
Registrado em: 13 Ago 2003 22:42
Localização: Apucarana - PR

Envio de arquivo pelo webservice

Mensagem por Daniel »

Ola
voce tem o arquivo que esta enviando
normal sem compactar
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Envio de arquivo pelo webservice

Mensagem por JoséQuintas »

É comum, parece até meio idiota comentar isso mas....
Se não me engano essa é a comunicação que NÃO funciona no XP, no Windows 7 só se atualizar/configurar.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder