IPythonList.ToArray

ToArray: Array;

ToArray(): Array;

Sub UserProc;
Var
    pUtils: IPythonUtils;
    pList: IPythonList;
    Result: Variant;
    Arr: Array;
    i, j: Integer;
Begin
    pUtils := New PythonUtils.Create;
    pUtils.AddFolderToPythonPath("d:\Work\Python\");
    //Получение списка, который является результатом выполнения функции
    Result := pUtils.Invoke("sample", "getArr2Dim");
    //Создание списка из полученного результата функции getArr2Dim
    pList := New PythonList.Create(Result);
    //Т.к. результатом функции getNewList является объект, то созданный список в pList
    //будет состоять из одного элемента. Этот элемент необходимо также привести к типу IPythonList, чтобы
    //работать с отдельными элементами списка из результата getArr2Dim.
    pList := pList.Item(0) As IPythonList;
    Arr := pList.ToArray;
    Debug.WriteLine("Количество измерений: " + Arr.Rank.ToString);
    If Arr.Rank = 2 Then
        For i := Arr.GetLowerBound(1) To Arr.GetUpperBound(1) Do
            For j := Arr.GetLowerBound(2) To Arr.GetUpperBound(2) Do
                Debug.Write(Arr[i, j] + ' ');
            End For;
            Debug.WriteLine("");
        End For;
    End If;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Fore;
Imports Prognoz.Platform.Interop.Python;

Public Shared Sub Main(Params: StartParams);
Var
    RunContext: ForeRuntimeContext;
    pUtils: IPythonUtils = New PythonUtilsClass();
    pList: IPythonList = New PythonListClass();
    Result: Object;
    Arr: Array;
    i, j: Integer;
Begin
    RunContext := (Params.Metabase As IForeServices).GetRuntime().Context;
    pUtils.AddFolderToPythonPath("d:\Work\Python\");
    //Получение списка, который является результатом выполнения функции
    Result := pUtils.Invoke(RunContext, "sample", "getArr2Dim", New Object[0]);
    //Создание списка из полученного результата функции getArr2Dim
    pList.Create(Result);
    //Т.к. результатом функции getNewList является объект, то созданный список в pList
    //будет состоять из одного элемента. Этот элемент необходимо также привести к типу IPythonList, чтобы
    //работать с отдельными элементами списка из результата getArr2Dim.
    pList := pList.Item[0] As IPythonList;
    Arr := pList.ToArray();
    System.Diagnostics.Debug.WriteLine("Количество измерений: " + Arr.Rank.ToString());
    If Arr.Rank = 2 Then
        For i := Arr.GetLowerBound(0) To Arr.GetUpperBound(0) Do
            For j := Arr.GetLowerBound(1) To Arr.GetUpperBound(1) Do
                System.Diagnostics.Debug.Write(Arr[i, j] + " ");
            End For;
            System.Diagnostics.Debug.WriteLine("");
        End For;
    End If;
End Sub;