IMetabaseCheckList.SaveToStream

Синтаксис

SaveToStream(Writer: IIOStream);

SaveToStream(Writer: System.IO.Stream);

Параметры

Writer. Поток, в который будут сохранены контрольные суммы объектов репозитория.

Описание

Метод SaveToStream осуществляет сохранение в поток списка объектов репозитория и рассчитанных для них контрольных сумм.

Комментарии

Для загрузки контрольных сумм и проверки объектов репозитория используйте метод LoadFromStream.

Пример

Добавьте ссылки на системные сборки: IO, Metabase.

Sub SaveCheckList(ParentID: String; Var Writer: IIOStream);
Var
    MB: IMetabase;
    CheckList: IMetabaseCheckList;
    MObj, MObj1: IMetabaseObjectDescriptor;
Begin
    MB := MetabaseClass.Active;
    CheckList := MB.CreateCheckList;
    MObj := MB.ItemById(ParentID);
    CheckList.Add(MObj);
    For Each MObj1 In MObj.Children Do
        CheckList.Add(MObj1);
    End For;
    CheckList.SaveToStream(Writer);
End Sub SaveCheckList;

Public Shared Sub SaveCheckList(MB: IMetabase; ParentID: string; Var Writer: Stream);
Var
    CheckList: IMetabaseCheckList;
    MDesc: IMetabaseObjectDescriptor;
    MDescs: IMetabaseObjectDescriptors;
    i, c: integer;
Begin
    CheckList := MB.CreateCheckList();
    MDesc := MB.ItemById[ParentID];
    CheckList.Add(MDesc);
    MDescs := MDesc.Children;
    c := MDescs.Count;
    For i := 0 To c - 1 Do
        MDesc := MDescs.Item[i];
        CheckList.Add(MDesc);
    End For;
    CheckList.SaveToStream(Writer);
End Sub;

Указанная процедура позволяет сохранять контрольные суммы в поток. В качестве параметров процедуры передаются идентификатор папки, для дочерних объектов которой будут считаться контрольные суммы, и поток, в который происходит сохранение.

См. также:

IMetabaseCheckList