Carregar XML através da API do Mercado Livre

[programadorbq]

Boa tarde,

estou realizando a integração com a Api do Mercado Livre e não consigo realizar a carga do XML, sempre me retorna o erro: {"statusCode":400,"code":"bad_request","message":"Filename cannot be empty","requestId":"b70110a2-ed52-4d41-9125-e08d43c0a0fb"}

"Filename cannot be empty" - Gostaria de saber aonde informar o "Filename", segue meu código.

 

try
  dmML.ResetRESTComponentsToDefaults;
  //
  streamArquivo := TMemoryStream.Create;
  streamArquivo.LoadFromFile(strArquivoXML);
  streamArquivo.Position := 0;
  //
  dmML.RESTClientML.ContentType := 'multipart/form-data';
  dmML.RESTClientML.BaseURL := 'https://api.mercadolibre.com/';
  dmML.RESTRequestML.Resource := 'packs/' + strPackID + '/fiscal_documents';
  dmML.RESTRequestML.Method := TRESTRequestMethod.rmPOST;
  dmML.RESTRequestML.Params.Clear;
  dmML.RESTRequestML.Params.AddItem;
  dmML.RESTRequestML.Params.Items[0].name := 'fiscal_document';
  dmML.RESTRequestML.Params.Items[0].Value := strArquivoXML;
  dmML.RESTRequestML.Params.Items[0].ContentType := ctMULTIPART_FORM_DATA;
  dmML.RESTRequestML.Params.Items[0].Kind := pkFILE;
  dmML.RestRequestML.AddBody(streamArquivo, ctMULTIPART_FORM_DATA);
  dmML.RestRequestML.Execute;
  //
  Memo1.Text := dmML.RESTResponseML.Content.Trim;
except
  on E: Exception do
  begin
    MessageDlg(E.Message, mtError, [mbOK], 0);
  end;
end; 

Desde já agradeço.

[raosistemas]

bom dia, você conseguiu resolver esse problema? se puder compartilhar agradeço.

[programadorbq]

Bom dia, 

alterei o código para esse

dmML.ResetRESTComponentsToDefaults;

dmML.RESTClientML.ContentType := 'application/xml';
dmML.RESTClientML.BaseURL := 'https://api.mercadolibre.com/';
dmML.RESTRequestML.Resource := 'shipments/' + strShippingID + '/invoice_data?access_token=' + dmML.OAuth2AuthenticatorML.AccessToken + '&siteId=MLB';
dmML.RESTRequestML.Method := TRESTRequestMethod.rmPOST;
dmML.RESTRequestML.Params.Clear;
dmML.RestRequestML.AddBody(MemoXML.Text, ctAPPLICATION_XML);
dmML.RestRequestML.Execute;

MessageDlg(dmML.RESTResponseML.Content, mtInformation, [mbOK], 0);

e funcionou.

 

Espero que ajude!
 

[raosistemas]

e o que seria esse siteid = MLB??? 

[raosistemas]

Já achei aqui meu amigo... sua solução funcionou uma maravilha pra mim... obrigado.
se precisar de alguma ajuda me avise.

[programadorbq]

Que ótimo, sucesso nos negócios.

[Renato Rubinho]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.