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: 20415
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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