ICalcAlgorithm.CalculateAsync

Copy example

Function GetState(CalcResult: IAlgorithmCalculationAsyncResult): CalculateState;
Var
    State: CalculateState;
    i: Integer = 1000;
Begin
    // Check calculation state
    If CalcResult <> Null Then
        State := CalcResult.State;
        While 
            (State <> CalculateState.PausedOnDebug) And
            (State <> CalculateState.PausedOnError) And 
            (State <> CalculateState.Aborted) And 
            (State <> CalculateState.Stoped) Do
            State := CalcResult.State;
        End While;
    End If;
    While i > 0 Do
        i := i - 1;
    End While;
    Return State;
End Function GetState;

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    ObjList, CloneList: ICalcObjectsList;
    CalcAlgo: ICalcAlgorithm;
    CalcResult: IAlgorithmCalculationAsyncResult;
    Result: IAlgorithmCalculationResult;
    Load: IAlgorithmTimeResults;
    TimeResult: IAlgorithmTimeResult;
    ErrEvent: IAlgorithmCalculateErrorEvent;
    State: CalculateState;
    i: Integer;
    Sec: Double;
Begin
    MB := MetabaseClass.Active;
    // Get calculation algorithm
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Get list of calculation algorithm objects
    ObjList := CalcAlgo.Items;
    // Copy list of calculation algorithm objects
    CloneList := ObjList.Clone;
    // Delete excluded objects before calculation
    For i := CloneList.Count - 1 To 0 Step - 1 Do
        If Not CalcAlgo.Included(CloneList.Item(i)) Then
            CloneList.Remove(CloneList.Item(i));
        End If;
    End For;
    // Display the number of objects included in algorithm calculation in the console
    Debug.WriteLine("Number of objects: " + CloneList.Count.ToString);
    // Execute asynchronous algorithm calculation
    CalcResult := CalcAlgo.CalculateAsync(CloneList);
    State := GetState(CalcResult);
    // Check if error occurs on calculation
    If State = CalculateState.PausedOnError Then
        ErrEvent := CalcResult.ErrorEvent;
        If ErrEvent <> Null Then
            // If an error occurs, display information about the error and about the object, on which it occurred, in the console
            Debug.WriteLine(ErrEvent.Message);
            Debug.WriteLine("Object with error: " + CalcResult.CurrentObject.Name);
            // Skip occurred error and continue calculation
            ErrEvent.ErrorState := SkipErrorState.IgnoreAll;
        End If;
    Elseif State = CalculateState.Stoped Then // Check if algorithm calculation is finished
        // Display message about algorithm calculation completion in the console
        Debug.WriteLine("Algorithm calculation is finished:");
        // Data about calculation results
        Result := CalcResult.Result;
        Load := Result.Load;
        Debug.WriteLine("Result of loading data sources:");
        For i := 0 To Load.Count - 1 Do
            TimeResult := Load.Item(i);
            Debug.WriteLine(" Name: " + TimeResult.Name);
            Debug.WriteLine(" Identifier: " + TimeResult.Id);
            Sec := TimeResult.ExecuteMilisecods / 1000;
            Debug.WriteLine(" Loading time: " + Sec.ToString + " sec.");
            Debug.WriteLine("");
        End For;
    End If;
End Sub UserProc;

Function GetState(CalcResult: IAlgorithmCalculationAsyncResult): CalculateState;
Var
    State: CalculateState;
    i: Integer = 1000;
Begin
    // Check calculation state
    If CalcResult <> Null Then
        State := CalcResult.State;
        While 
            (State <> CalculateState.PausedOnDebug) And
            (State <> CalculateState.PausedOnError) And 
            (State <> CalculateState.Aborted) And 
            (State <> CalculateState.Stoped) Do
            State := CalcResult.State;
        End While;
    End If;
    While i > 0 Do
        i := i - 1;
    End While;
    Return State;
End Function GetState;