ICustomObjectResolver.WriteFromStream

Copy example

Sub UserProc;
Var
    Mb: IMetabase;
    Update: IMetabaseUpdate;
    Progress: MyUpdateProgress;
Begin
    // Get the current repository
    Mb := MetabaseClass.Active;
    // Create an update
    Update := Mb.CreateUpdate;
    // Load update parameters from file
    Update.LoadFromFileNF("C:\CustomObjData.pefx");
    // Create an object that implements events that occur during update
    Progress := New MyUpdateProgress.Create;
    // Execute update
    Update.ApplyEx(Progress, Null);
End Sub UserProc;

// Class that implements events that occur during update
Class MyUpdateProgress: UpdateProgress
    // Event that occurs after applying custom object update,
    // but before it is saved to repository
    Sub OnAfterApplyCustomObject(Resolver: ICustomObjectResolver);
    Var
        StreamR, StreamW: IFileStream;
    Begin
        // Create a stream related with the text file C:\To.txt
        StreamR := New FileStream.Create("C:\To.txt", FileOpenMode.Create, FileShare.DenyNone);
        // Read data from custom object to the stream related with file
        Resolver.ReadToStream(StreamR);
        // Create a stream related with the text file C:\From.txt
        StreamW := New FileStream.Create("C:\From.txt", FileOpenMode.Read, FileShare.DenyNone);
        // Write data to custom object from the stream related with files
        Resolver.WriteFromStream(StreamW);
    End Sub OnAfterApplyCustomObject;
    
End Class MyUpdateProgress;