ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Delphi 7 + Indy + Post: Erro 403

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Marcelo_Ribeiro
Aprendiz
Aprendiz


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

MensagemEnviada: Qua Mai 15, 2019 5:09 pm    Assunto: Delphi 7 + Indy + Post: Erro 403 Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10411
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Jun 18, 2019 12:37 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

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


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB