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.

Bom dia, consegui reinstalar através deste tópico já aberto.