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 

Web Service

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


Registrado: Terça-Feira, 24 de Julho de 2012
Mensagens: 107

MensagemEnviada: Qui Mai 23, 2013 8:40 am    Assunto: Web Service Responder com Citação

Bom dia
To implementado um Web service de cotação de frete, porém estou com alguns problemas na passagem dos parametros, que são muitos não estou coneguindo corretamente.

Então,
Com o método “teste”, usando a linha de comando abaixo, funciona, retorna o xml corretamente e tal... O retorno ta fixo...
IdHTTP.Post('http://177.101.97.134:9550/WSElog/Elog.asmx/testar',Resposta, Resposta);

Mas com o método “cotacaoFrete”, não funciona, usei o comando abaixo.
Sendo que params é do tipo TIdMultipartFormDataStream, e foi passado pra ele este exemplo:
Código:
    Resposta   := TStringStream.Create('');
    params := TIdMultiPartFormDataStream.Create;
    params.AddFormField('docEmbarcador',     '82.699.588/0001-88');
    params.AddFormField('docTransportador',  '88.317.847/0006-50');
    params.AddFormField('cidadeOrigem',      'Blumenau');
    params.AddFormField('sigaEstadoOrigem',  'SC');
    params.AddFormField('cidadeDestino',     'Dourados');
    params.AddFormField('sigaEstadoDestino', 'SC');
    params.AddFormField('peso',              '27.8');
    params.AddFormField('volume',            '1');
    params.AddFormField('pesoCubado',        '0.1');
    params.AddFormField('valorCarga',        '899.8');

    IdHTTP.Post('http://177.101.97.134:9550/WSElog/Elog.asmx/CotacaoFrete', params, Resposta); // nesta linha retorna erro "HTTP/1.1 500 Internal Server Error."


alguma luz?
Agradeço desde ja
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
cyberdisk
Colaborador
Colaborador


Registrado: Domingo, 4 de Julho de 2010
Mensagens: 2391
Localização: São José dos Campos - SP

MensagemEnviada: Sáb Mai 25, 2013 10:28 pm    Assunto: Responder com Citação

tente usar virgulas para delimitar cada parametro

abraço
_________________
O conhecimento abre muitas portas
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
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