IResourceExporter.Consumer

Синтаксис

Consumer: Object;

Описание

Свойство Consumer определяет объект, в который будет произведен экспорт ресурсов.

Пример

Для выполнения примера предполагается наличие в репозитории ресурсов с идентификатором «RESOURCES». В данных ресурсах должны присутствовать русский и английский языки.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    ExpObj: ResourceExporter;
    Cons: DtTextConsumer;
    ResObj : IResourceObject;
    CountrysArr: Array[0..1Of String;
Begin
    Cons := New DtTextConsumer.Create;
    ExpObj := New ResourceExporter.Create;
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("RESOURCES").Edit;
    ResObj := MObj As IResourceObject;
    Cons.File := "C:\Res.txt";
    Cons.WriteHeader := True;
    ExpObj.Consumer := Cons;
    CountrysArr[0] := "ru";
    CountrysArr[1] := "en";
    ExpObj.Locales := CountrysArr;
    ExpObj.Resource := ResObj;
    ExpObj.Export;
End Sub UserProc;

После выполнения примера все строки ресурсов, относящиеся к русскому и английскому языкам, будут экспортированы в файл «C:\Res.txt».

См. также:

IResourceExporter