erickcordeiroa Novato

Registrado: Quinta-Feira, 11 de Mai de 2017 Mensagens: 2
|
Enviada: Qui Mai 11, 2017 4:05 pm Assunto: Enviando Parametros do Delphi para o Json |
|
|
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! |
|