ActiveDelphi

[erickcordeiroa]

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!

[johnny-walker]

Você deu uma olhada neste link, o Adriano está tratando do mesmo assunto, só que em multithread:


http://www.activedelphi.com.br/forum/viewtopic.php?t=93642&sid=7b7c1e3296572b47708374d24ab3c58d


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I