 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Marcelo_Ribeiro
Aprendiz
Registrado: Quarta-Feira, 17 de Fevereiro de 2010
Mensagens: 127
|
 Enviada: Qua Mai 15, 2019 5:09 pm Assunto: Delphi 7 + Indy + Post: Erro 403 |
 |
|
E aí, tudo bem?
Tenho que enviar um Json para um WS. Uso Delphi 7, e Indy.
No postman, tem como deve ser o header:
https://ibb.co/WBXXCJV
O Json:
https://ibb.co/6Jmbmbv
e um exemplo de como chamar o post:
https://ibb.co/4PQQSMv
Estou tentando montar no Delphi.
| Código: |
vHttp.Request.CustomHeaders.FoldLines := False;
vHttp.Request.CustomHeaders.Values['Authorization'] := pToken;
vHttp.Request.ContentType := 'application/json';
vHttp.Request.ContentEncoding := 'raw';
vHttp.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
AssignFile(vArquivo, pDir + 'Exemplo.json');
ReWrite(vArquivo);
Write(vArquivo, EnvioJson);
CloseFile(vArquivo);
vFsParams := TFileStream.Create(pDir + 'Exemplo.json', fmOpenRead or fmShareDenyWrite);
EnvioJson := vHttp.Post(pUrlEnvio), vFsParams);
|
Mas dá erro 403. Como eu deveria configurar o idhttp pra conseguir enviar?
Obrigado |
|
| Voltar ao Topo |
|
 |
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
| Enviada: Ter Jun 18, 2019 12:37 pm Assunto: |
|
|
No delphi 7 você tem de atualizar a Indy, pelo menos nele você pode fazer isto, nos delphis novos não, pois alguns componentes estão amarrados na Indy e se atualizar dá erro nestes componentes.
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
