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.