Envio de Arquivo XML com Parametros para WebService php
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
e o meu envio
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!
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
Curtidas 0