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 

Enviando Parametros do Delphi para o Json

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


Registrado: Quinta-Feira, 11 de Mai de 2017
Mensagens: 2

MensagemEnviada: Qui Mai 11, 2017 4:05 pm    Assunto: Enviando Parametros do Delphi para o Json Responder com Citação

Estou com uma dificuldade em desenvolver uma integração entre o Delphi e o Webservice via json.

O que preciso passar para o

Header Name * Vai precisar dos dois Juntos.

Content-Type: application/x-www-form-urlencoded
Content-Type: multipart/form-data


Nome do parâmetro e Tipo do parâmetro

fileUpload arquivo ****
cnpj Texto – varchar
fileTipo Inteiro - int
data* Inteiro – int

Até aqui blz, como esta o meu configura_Header no delphi

IdHTTP1.Request.CharSet := 'utf-8';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP1.Request.ContentType := 'multipart/form-data';
IdHTTP1.Request.CustomHeaders.AddValue('Content-Type','application/x-www-form-urlencoded');
IdHTTP1.Request.CustomHeaders.AddValue('Content-Type','multipart/form-data');
IdHTTP1.Response.ContentType := 'multipart/form-data';
IdHTTP1.Response.CharSet := 'utf-8';


e o meu envio

//verifica se o campo é nulo ou maior que zero.
if (not dtmPrincipal.cdsConsultaLojaLocal1STR_CNPJ.IsNull) and (Length(Trim(dtmPrincipal.cdsConsultaLojaLocal1STR_CNPJ.Value)) > 0) then
begin
//verificar como envia o arquivo para o webservice
LJsonObject := TJSONObject.Create;
LJsonObject.AddPair('fileUpload',TJSONString.Create(cdsXML_NFeXML.AsString));
LJsonObject.AddPair('cnpj',Trim(dtmPrincipal.cdsConsultaLojaLocal1STR_CNPJ.Value));
LJsonObject.AddPair('fileTipo', TJSONNumber.Create(1));
end;

vN_ID_LOG := Inserir_Log_BD(ID_Integracao,'Legislação Fácil',Metodo,vURL);
LDados := TStringStream.Create(LJsonObject.ToString,TEncoding.UTF8);
try
if Metodo = 'POST' then
begin
IdHTTP1.Post(vURL, LDados);
end;



não esta funcionando assim, e também não sei se esta correto,
Se alguem puder me dar uma luz!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi for PHP 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