ActiveDelphi :: Exibir tópico - Delphi 7 + Indy + Post: Erro 403

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Pesquisar

Membros

Grupos

Registrar

Perfil

Entrar e ver Mensagens Particulares

Entrar

Delphi 7 + Indy + Post: Erro 403

ActiveDelphi - Índice do Fórum -> Delphi

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

Marcelo_Ribeiro
Aprendiz

Registrado: Quarta-Feira, 17 de Fevereiro de 2010
Mensagens: 115

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

Mostrar os tópicos anteriores:

	ActiveDelphi - Índice do Fórum -> Delphi	Todos os horários são GMT - 3 Horas
Página 1 de 1

Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.