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 

Erro HTTP/1.1 406

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


Registrado: Quinta-Feira, 16 de Dezembro de 2010
Mensagens: 5
MensagemEnviada: Ter Abr 08, 2014 4:59 pm    Assunto: Erro HTTP/1.1 406 Responder com Citação
Ola Pessoal

Esto tentando enviar um POST para um script em php.

O codigo a seguir funciona perfeitamente quando o script está hospedado no xampp do meu computador. Porem, quando eu coloco o mesmo script num provedor e tento enviar o POST, recebo a mensagem

"Erro HTTP/1.1 406 Not acceptable"

Alguem poderia me ajudar?

Obrigado.

Código:

s := url + '/testalogin/index/1';

     params := TIdMultiPartFormDataStream.Create;
     resposta := '';
     try
        //enviando
        params.AddFormField('cdempresa', cdempresa);
        params.AddFormField('anobase', anobase);
        params.AddFormField('usuario', edit2.text);
        params.AddFormField('senha'  , trim(maskedit1.text));

        IdHTTP1.Request.CustomHeaders.Clear;
        IdHTTP1.Request.Clear;
        IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
        IdHTTP1.Request.ContentEncoding := 'multipart/form-data';
        resposta := IdHTTP1.Post(s, params);

     finally
        FreeAndNil(params);
     end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular  
claudio.ferreira
Profissional
Profissional


Registrado: Quarta-Feira, 18 de Setembro de 2013
Mensagens: 667
MensagemEnviada: Qua Abr 09, 2014 10:14 am    Assunto: Responder com Citação
Tenho rotinas de post em D7 que funcionam bem e a diferença da minha para a sua é que não seto a propriedade

IdHTTP1.Request.ContentEncoding

E os parâmetros passo via TSringList e não TIdMultiPartFormDataStream

Funciona !

Retire a linha IdHTTP1.Request.ContentEncoding para ver se vai..
_________________
Sistema SNGPC para farmácias
http://www.cmasistemas.com.br
Rastreabilidade de Medicamentos
https://www.sncm.com.br
Soluções em Delphi
https://delphisolutions.wordpress.com/
.
"E não sabendo que era impossível, foi lá e fez"
Mark Twain
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário  
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