Integração Onvio (Dominio)

[rodrigoogioni]

Boa tarde! 

Estou tentando conectar com a Onvio, para enviar xml para o sistema da Dominio Contabilidade, porem no idhttp retorna 400 - bad request.

o codigo é esse:

var Response: TStringStream;
    Arquivo: TIdMultipartFormDataStream;
begin
     Response := TStringStream.Create('');

     Arquivo := TIdMultiPartFormDataStream.Create;
     Arquivo.AddFile('file[]', nomearquivo.FileName, 'application/xml');
     Arquivo.AddFormField('query', '{"boxe/File":true}', '', 'application/json');

     IdHTTP1.Request.Clear;
     IdHTTP1.Request.CustomHeaders.Clear;
     IdHTTP1.Request.BasicAuthentication := false;
     IdHTTP1.Request.CustomHeaders.AddValue('Authorization', 'Bearer ' + Trim(token.Lines.Text));
     IdHTTP1.Request.ContentType := 'multipart/form-data';
     IdHTTP1.Request.ContentEncoding := '';
     IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions + [hoKeepOrigProtocol];
     IdHTTP1.Request.Referer := linkenvio;

     IdHTTP1.Post(linkenvio, Arquivo, Response);

     resposta.Lines.Text:= response.DataString;

 

Utilizo Delphi 10.1.2

Sera o que estou fazendo errado? 

Grato

No Postman envia normal.

[Juliomar Marchetti]

Tente usar o RestClient

[rodrigoogioni]

32 minutos atrás, Juliomar Marchetti disse:

Tente usar o RestClient

Nunca usei o RestClient, é da mesma forma do idhttp?

Teria algum exemplo?

Grato

[Juliomar Marchetti]

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Tutorial:_Using_the_REST_Client_Library_to_Access_REST-based_Web_Services

[rodrigoogioni]

1 hora atrás, Juliomar Marchetti disse:

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Tutorial:_Using_the_REST_Client_Library_to_Access_REST-based_Web_Services

parece bem mais complicado

 

alguem tem algum exemplo que esta funcionando feito com idhttp? 

achei esse link 

aqui no acbr mesmo, mas mesmo utlizando os exemplos que foi marcado como funcionando, nao estou conseguindo fazer dar certo.

Grato pela ajuda!