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
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)