Envio de Arquivo XML com Parametros para WebService php

03/05/2017

0

0
votar contra
favorita


Boa tarde Galera!

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;


Quanto ele entra no POST, da a seguinte mensagem...

---------------------------
Debugger Exception Notification
---------------------------
Project Integracao.exe raised exception class EAccessViolation with message 'Access violation at address 0064FEA4 in module 'Integracao.exe'. Read of address 0000008C'.
---------------------------


Não sei o que pode ser, sou novo em Delphi e meu patrão já me colocou nesse projeto...

Desde Já agradeço!
Erick Arruda

Erick Arruda

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar