IMetabaseUpdate.Refresh

Copy example

Sub Main;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Progress: MyUpdateProgress;
Begin
    MB := MetabaseClass.Active;
    Update := Mb.CreateUpdate;
    Update.LoadFromFile("C:\Update.pef");
    Progress := New MyUpdateProgress.Create;
    Update.Refresh(Progress);
    Update.SaveToFileNF("C:\Update.pefx");
End Sub Main;

Class MyUpdateProgress:UpdateProgress
    Sub OnProgress(Data: IMetabaseUpdateProgressData);
    Begin
        Select Case Data.Stage
            Case MetabaseUpdateProgressStage.LoadPrepare: Debug.WriteLine("Prepare to synchronize");
            Case MetabaseUpdateProgressStage.LoadApply: Debug.WriteLine("Synchronizing objects...");
            Case MetabaseUpdateProgressStage.LoadFinish: Debug.WriteLine("Synchronization complete");
        End Select;
    End Sub OnProgress;
 
    Sub OnError(Data: IMetabaseUpdateProgressData; Var Ignore: Boolean);
    Begin
        Debug.WriteLine("Update object synchronization error '" + Data.Node.Label + "'");
        Debug.WriteLine("Error text: " + Data.Error.Message);
        If Data.Object <> Null Then
            Debug.WriteLine("Error source: " + Data.Object.Id);
            Debug.WriteLine("Object key: " + Data.Object.Key.ToString);
        End If;
        Debug.WriteLine("Object will be skipped");
        Ignore := True;
    End Sub OnError;
End Class MyUpdateProgress;