×
Ir ao conteúdo
  • Cadastre-se

Delphi Erro 400 Rest Delphi components "TRESTRequestMethod.rmPOST" para enviar XML


Posts recomendados

Bom dia,

 

Estou com problemas de enviar o XML , o RESTResponse.StatusCode retorna sempre 400 com

a mensagem "Sintaxe do XML Invalida".

ao usar o HTTP POST request.

No REQBIN com o mesmo XML o retorno eh 200 , e com o xml assinado OK ,

e com Authorization: Bearer   com Token sem erros

 

Xml anexado.

 

Se alguém identificar a causa do problema.

 

Obrigado.

ReSTRequest := TRESTRequest.Create(Application);
RESTResponse  := TRESTResponse.Create(Application);
RESTClient := TRESTClient.Create(nil);

OAuth2_PMF:= TOAuth2Authenticator.Create(Application);
OAuth2_PMF.AuthorizationEndpoint := https://nfps-e.pmf.sc.gov.br/api/v1/processamento/notas/processa;
OAuth2_PMF.RedirectionEndpoint := https://nfps-e.pmf.sc.gov.br/api/v1/processamento/notas/processa;

RESTRequest.ResetToDefaults;
RESTClient.ResetToDefaults;
RESTResponse.ResetToDefaults;

OAuth2_PMF.AccessToken := pAnsichar( pToken);

   RESTRequest.Client      := RESTClient;
   RESTRequest.Response    := RESTResponse;

   RESTClient.BaseURL :=https://nfps-e.pmf.sc.gov.br/api/v1/processamento/notas/processa

   //RESTClient.Authenticator := nil;
   RESTClient.Authenticator :=  OAuth2_PMF;

   RESTRequest.Method := TRESTRequestMethod.rmPOST;

   LDocument := TXMLDocument.Create(nil);
   LDocument.LoadFromFile( pAnsichar( pArquivoXML)); { File should exist. }

   RESTRequest.Params.AddItem('Authorization', ' Bearer ' + OAuth2_PMF.AccessToken, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
   //RESTRequest.Params.AddItem('Host', 'nfps-e.pmf.sc.gov.br', TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]);
   //RESTRequest.Params.AddItem('Content-Type', 'application/xml', TREstRequestParameterKind.pkHTTPHEADER, [poDoNotEncode], TRESTContentType.ctMULTIPART_FORM_DATA);

   RESTRequest.AddBody(LDocument.XML.Text ,  ctAPPLICATION_XML );
   RESTRequest.Accept := 'application/xml';
   showmessage('ANTES EXECUTE');
   RESTRequest.Execute;
   showmessage('depois EXECUTE');

<>

99886_env.xml

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Curso de Hacker Ético

LANÇAMENTO!

CLIQUE AQUI E CONFIRA!

* Este curso não é ministrado pela equipe do Clube do Hardware.