SystemAssemblies: IStringList;
Свойство SystemAssemblies возвращает коллекцию описаний системных сборок, на которые имеются ссылки в текущей .NET-сборке.
Данный список включает в себя:
ссылки на системные сборки платформы.
ссылки на сборки, зарегистрированные в GAC.
ссылки на внешние библиотеки.
Для выполнения примера предполагается наличие в репозитории .NET-сборки с идентификатором "NETAssembly_1".
Sub UserProc;
Var
MB: IMetabase;
NETAssembly: IForeNETAssembly;
SysAssembly: IStringList;
Reference: IForeNETSystemAssemblyReference;
i: Integer;
Begin
MB := MetabaseClass.Active;
NETAssembly := MB.ItemById("NETAssembly_1").Bind As IForeNETAssembly;
SysAssembly := NETAssembly.SystemAssemblies;
For i := 0 To SysAssembly.Count - 1 Do
Reference := ForeNETAssemblyClass.SystemAssemblyReference(SysAssembly.Item(i));
Debug.WriteLine("Сборка: " + Reference.AsString);
If Reference.IsFile Then
Debug.WriteLine("Путь к файлу внешней сборки: " + Reference.FilePath);
End If;
Debug.WriteLine("Системное наименование сборки: " + Reference.SystemName.Name);
Debug.WriteLine("---");
End For;
End Sub UserProc;
После выполнения примера в консоль среды разработки будет выведена информация обо всех системных сборках, ссылки на которые имеются в .NET-сборке.
См. также: