IAlgorithmCalculationResult.Load

Executing the example requires that the repository contains a ready calculation algorithm with the ALGORITHM identifier. The calculation algorithm should contain configured objects.

Add links to the Algo and Metabase system assemblies. Add links to the assemblies required for working with calculation algorithms.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObjectDescriptor;
    Algo: ICalcObject;
    CalcAlgo: ICalcAlgorithm;
    CalcResult: IAlgorithmCalculationResult;
    Load, Save: IAlgorithmTimeResults;
    Result: IAlgorithmTimeResult;
    i: Integer;
    Sec: Double;
Begin
    MB := MetabaseClass.Active;
    // Get calculation algorithm
    MObj := MB.ItemById("ALGORITHM");
    Algo := CalcObjectFactory.CreateCalcObject(MObj, True);
    CalcAlgo := Algo As ICalcAlgorithm;
    // Calculate algorithm
    CalcResult := CalcAlgo.Calculate;
    // Display data sources loading result in the console
    Load := CalcResult.Load;
    Debug.WriteLine("Data sources loading result:");
    For i:=0 To Load.Count-1 Do
        Result := Load.Item(i);
        Debug.WriteLine(" Name: " + Result.Name);
        Debug.WriteLine(" Identifier: " + Result.Id);
        Sec := Result.ExecuteMilisecods/1000;
        Debug.WriteLine(" Loading time: " +  Sec.ToString + " sec");
        Debug.WriteLine("");
    End For;
    // Display result of data saving in consumers in the console
    Save := CalcResult.Save;
    Debug.WriteLine("Result of saving data in consumers:");
    For i:=0 To Save.Count-1 Do
        Result := Save.Item(i);
        Debug.WriteLine(" Name: " + Result.Name);
        Debug.WriteLine(" Identifier: " + Result.Id);
        Sec := Result.ExecuteMilisecods/1000;
        Debug.WriteLine(" Saving time: " +  Sec.ToString + " sec");
        Debug.WriteLine("");
    End For;
End Sub UserProc;

IAlgorithmCalculationResult.Load

Syntax

Description

Example