Users: Object;
Users: System.Object;
Свойство Users устанавливает список пользователей репозитория, права которых будут распространяться на объекты опубликованного контейнера мобильного приложения.
Допустимые значения:ISecuritySubjects, IMetabaseUsers, IDictionary<ISecuritySubject>, Null.
Примечание. Свойство является устаревшим.
Для выполнения примера в репозитории предполагается наличие контейнера мобильного приложения с идентификатором «MOBILE_APP».
Добавьте ссылки на системные сборки: Metabase, Mobile, Xml.
Sub UserProc;
Var
mb: IMetabase;
Mobile: IMobileApplication;
Publicator: IMobileApplicationPublicator;
res: MobilePublishResult;
XmlDoc: IXmlDomDocument3;
el: IXmlDomElement;
mbUsers: IMetabaseUsers;
Begin
mb := MetabaseClass.Active;
// Получаем публикуемое мобильное приложение (МП)
Mobile := mb.ItemById("MOBILE_APP").Bind As IMobileApplication;
// Создаем публикатор МП
Publicator := Mobile.CreatePublicator;
// Задаем веб-сервер и виртуальный каталог для публикации МП
Publicator.WebApplication := "http://prognoz/PPMobile_App";
mbUsers := mb.Security.Users;
//Список пользователей репозитория для выгрузки прав на объекты МП
Publicator.Users := mbUsers;
// Выполняем публикацию МП
Publicator.Execute(Null);
// Обрабатываем результаты публикации МП
If res = MobilePublishResult.Ok Then
Debug.WriteLine("Публикация выполнена успешно");
Else
Debug.WriteLine("В процессе публикации произошла ошибка");
End If;
// Сохраняем параметры публикации МП в XML-файл
XmlDoc := New DOMDocument60.Create;
el := XmlDoc.createElement("Root");
XmlDoc.appendChild(el);
Publicator.SaveToXml(el);
XmlDoc.save("C:\Publicator.xml");
End Sub UserProc;
В результате выполнения примера будет осуществлена публикация мобильного приложения. В окне консоли будет выведено сообщение о результате публикации. Параметры публикации выгружены в файл «C:\Publicator.xml». Установлен список пользователей репозитория, права которых будут распространяться на объекты контейнера мобильного приложения.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Mobile;
Imports Prognoz.Platform.Interop.MsXml2;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
Mobile: IMobileApplication;
Publicator: IMobileApplicationPublicator;
res: MobilePublishResult;
XmlDoc: IXmlDomDocument3;
el: IXmlDomElement;
mbUsers: IMetabaseUsers;
Begin
mb := Params.Metabase;
// Получаем публикуемое мобильное приложение (МП)
Mobile := mb.ItemById["MOBILE_APP"].Bind() As IMobileApplication;
// Создаем публикатор МП
Publicator := Mobile.CreatePublicator();
// Задаем веб-сервер и виртуальный каталог для публикации МП
Publicator.WebApplication := "http://prognoz/PPMobile_App";
mbUsers := mb.Security.Users;
//Список пользователей репозитория для выгрузки прав на объекты МП
Publicator.Users := mbUsers;
// Выполняем публикацию МП
Publicator.Execute(Null);
// Обрабатываем результаты публикации МП
If res = MobilePublishResult.mprOk Then
System.Diagnostics.Debug.WriteLine("Публикация выполнена успешно");
Else
System.Diagnostics.Debug.WriteLine("В процессе публикации произошла ошибка");
End If;
// Сохраняем параметры публикации МП в XML-файл
XmlDoc := New DOMDocument60.Create();
el := XmlDoc.createElement("Root");
XmlDoc.appendChild(el);
Publicator.SaveToXml(el);
XmlDoc.save("C:\Publicator.xml");
End Sub;
См. также: