Адрес этой странички : http://doc-prg.narod.ru/art_00010/art_00010.htm 
Дата последнего обновления : 25.08.2007
 

© 24.08.2007 Сергей Попов

Здесь следует отметить, что приведенная ниже статья носит чисто иллюстративный характер и не претендует на бОльшее.
Для серьезной и углубленной проработки специальных вопросов информационного обмена крайне рекомендуется использовать фирменное техническое описание системы 1Cv8.

1Cv8 + Delphi-5.
OLE (COM).
Метаданные информационной базы.
Свойства и реквизиты справочников.
 

Статью в виде файла (277 кб) можно скачать здесь: art_00010.zip

В предыдущей статье был рассмотрен пример, иллюстрирующий считывание списка справочников и перечислений из информационной базы 1Cv8.
Расширим функционал этого примера и попробуем прочитать свойства справочника (как объекта метаданных) и список его реквизитов.

На рис.1 представлена форма нашего Delphi-проекта.

Рис.1. Форма проекта   meta_1cv8_COM.dpr

Свойство Items компонента List_What_1 содержит след. строки :

наименованию
индексу
 

Внесем изменения в обработчик создания формы :

procedure TForm1.FormCreate(Sender: TObject);
begin
    ...
    ...
    List_What_1.ItemIndex:=0;
    Edit_Meta_Name.Text:='КнигиВидеоАудио';
end;
 

Создадим обработчик события компонента ListBox1 : "Двойной щелчок мышкой"

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
    if ListBox1.ItemIndex>=0 then begin
        Edit_Meta_Name.Text:=ListBox1.Items[ListBox1.ItemIndex];
    end;
end;
 

Ниже приведен текст обработчика события : нажатие на кнопку "?".

procedure TForm1.SpeedButton3Click(Sender: TObject); Var V, V1, V2, meta_ole : Variant; //ссылка на объект метаданные Sx : string; i,Count : integer; begin meta_ole:=UnAssigned; V:=UnAssigned; V1:=UnAssigned; V2:=UnAssigned; ListBox1.Items.Clear; Edit_Meta_Name.Text:=Trim(Edit_Meta_Name.Text); if length(Edit_Meta_Name.Text)>0 then begin //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin //Получаем ссылку на коллекцию справочников (как объекты метаданных) Meta_ole:=s1C8_ole.Метаданные.Справочники; if List_What_1.ItemIndex=0 then begin //Обращаясь к методу "Найти" объекта "Метаданные.Справочники" - получаем ссылку //на справочник по его Идентификатору V:=Meta_ole.Найти(Edit_Meta_Name.Text); end; if List_What_1.ItemIndex=1 then begin //Обращаясь к методу "Получить" объекта "Метаданные.Справочники" - получаем ссылку //на справочник по его Индексу V:=Meta_ole.Получить(StrToInt(Edit_Meta_Name.Text)); end; //Проверяем корректность ссылки на найденный объект метаданных if YesLinkToVariant(V) then begin //Визуализируем информацию ListBox1.Items.Add('ПолноеИмя='+Trim(V.ПолноеИмя)); ListBox1.Items.Add('Имя='+Trim(V.Имя)); ListBox1.Items.Add('Представление='+Trim(V.Представление)); ListBox1.Items.Add('Синоним='+Trim(V.Синоним)); ListBox1.Items.Add('Комментарий='+Trim(V.Комментарий)); ListBox1.Items.Add('Родитель='+Trim(V.Родитель.Имя)); ListBox1.Items.Add('ИндексМетаОбъекта='+Trim(Meta_ole.Индекс(V))); //------------------------------------------------------- //Используем функцию EvalExprStr_OLE, которую мы создали //в общем модуле 1Cv8 (http://doc-prg.narod.ru/art_00011/art_00011.htm) V1 := s1C8_ole.EvalExprStr_OLE(V.ОсновноеПредставление); //------------------------------------------------------- ListBox1.Items.Add('ОсновноеПредставление='+Trim(V1)); //------------------------------------------------------- //Здесь следует помнить, что значение = -1 - это TRUE в "терминах" OLE Automation, //а = 0 -> FALSE ListBox1.Items.Add('Иерархический='+Trim(V.Иерархический)+ ' -> Здесь следует помнить, что значение = -1 - это TRUE в "терминах" OLE Automation,а = 0 -> FALSE'); //------------------------------------------------------- //------------------------------------------------------- //А вот так это "выглядит", если мы будем использовать //функцию EvalExprStr_OLE V1 := s1C8_ole.EvalExprStr_OLE(V.Иерархический); ListBox1.Items.Add('Иерархический_='+Trim(V1)+' -> А вот так это "выглядит", если мы будем использовать функцию EvalExprStr_OLE'); //------------------------------------------------------- V1 := s1C8_ole.EvalExprStr_OLE(V.ВидИерархии); ListBox1.Items.Add('ВидИерархии='+Trim(V1)); ListBox1.Items.Add('ОграничиватьКоличествоУровней='+Trim(V.ОграничиватьКоличествоУровней)); ListBox1.Items.Add('КоличествоУровней='+Trim(V.КоличествоУровней)); ListBox1.Items.Add('ГруппыСверху='+Trim(V.ГруппыСверху)); Sx := Trim(s1C8_ole.EvalExprStr_OLE(V.СпособРедактирования)); ListBox1.Items.Add('СпособРедактирования='+Sx); V1 := s1C8_ole.EvalExprStr_OLE(V.ИспользованиеПодчинения); ListBox1.Items.Add('ИспользованиеПодчинения='+Trim(V1)); ListBox1.Items.Add('ДлинаКода='+Trim(V.ДлинаКода)); V1 := s1C8_ole.EvalExprStr_OLE(V.ТипКода); ListBox1.Items.Add('ТипКода='+Trim(V1)); V1 := s1C8_ole.EvalExprStr_OLE(V.СерииКодов); ListBox1.Items.Add('СерииКодов='+Trim(V1)); ListBox1.Items.Add('ДлинаНаименования='+Trim(V.ДлинаНаименования)); ListBox1.Items.Add('КонтрольУникальности='+Trim(V.КонтрольУникальности)); ListBox1.Items.Add('АвтоНумерация='+Trim(V.АвтоНумерация)); //Получаем ссылку на коллекцию (список) реквизитов справочника (как объекта метаданных) V1:=V.Реквизиты; //Определяем количество реквизитов Count:= V1.Количество()*1; if Count>0 then begin ListBox1.Items.Add('Реквизиты :'); //Сканируем список реквизитов справочника for i:=0 to (Count-1) do begin //Получаем ссылку на реквизит справочника (по его индексу), как объект метаданных V2:= V1.Получить(i); //Читаем значение его свойства "Имя" (идентификатор) Sx:=Trim(V2.Имя); //Визуализируем имя (идентификатор) реквизита ListBox1.Items.Add(' '+Sx); end; end; end else begin ShowMessage('Объект метаданных "Справочник.'+Edit_Meta_Name.Text+'" в информационной базе не существует ?'); end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end; end;

Здесь требуются некоторые дополнительные пояснения ...

Прежде, чем считывать свойства заданного справочника - нужно получить ссылку на этот справочник, как объект метаданных.
Это можно сделать двумя (как минимум) способами, используя методы Найти и Получить объекта Метаданные.Справочники системы 1Cv8.

//Получаем ссылку на коллекцию справочников (как объекты метаданных)
Meta_ole:=s1C8_ole.Метаданные.Справочники;
if List_What_1.ItemIndex=0 then begin
    //Обращаясь к методу "Найти" объекта "Метаданные.Справочники" - получаем ссылку
    //на справочник по его Идентификатору
    V:=Meta_ole.Найти(Edit_Meta_Name.Text);
end;
if List_What_1.ItemIndex=1 then begin
    //Обращаясь к методу "Получить" объекта "Метаданные.Справочники" - получаем ссылку
    //на справочник по его Индексу
    V:=Meta_ole.Получить(StrToInt(Edit_Meta_Name.Text));
end;
 

Когда мы желаем получить свойства справочника примитивных типов (строка, дата, число, логический) - это можно
сделать "прямым" считыванием.
Например :

ListBox1.Items.Add('ПолноеИмя='+Trim(V.ПолноеИмя));
ListBox1.Items.Add('Иерархический='+Trim(V.Иерархический));
ListBox1.Items.Add('ДлинаНаименования='+Trim(V.ДлинаНаименования));

Но здесь следует помнить, что для логических значений :
    значение =  -1  - это TRUE  в "терминах" OLE Automation, а =  0 -> FALSE
 

Если свойства справочника имеют "объектный тип", то требуется соответственно иной подход. 
В этом примере мы (для визуализации значений свойств "объектных типов") использовали
функцию  EvalExprStr_OLE из статьи :
1Cv8. Возможный вариант эмуляции метода EvalExpr (системы 1Cv7)

Например, так :

    Sx := Trim(s1C8_ole.EvalExprStr_OLE(V.ОсновноеПредставление));
    ListBox1.Items.Add('ОсновноеПредставление='+Sx);
 

Кстати, если использовать функцию EvalExprStr_OLE  для визуализации значений свойств логического типа,
то возвращаемые программой 1Cv8 значения принимают "привычный" вид (истина, ложь).

Например,

если прочитать так :

    ListBox1.Items.Add('Иерархический='+Trim(V.Иерархический));

то результат будет следующим :

А если так :

    V1 := s1C8_ole.EvalExprStr_OLE(V.Иерархический);
    ListBox1.Items.Add('Иерархический_='+Trim(V1));

то результат будет следующим :

Список реквизитов справочника можно прочитать следующим образом :

//Получаем ссылку на коллекцию (список) реквизитов справочника (как объекта метаданных) V1:=V.Реквизиты; //Определяем количество реквизитов Count:= V1.Количество()*1; if Count>0 then begin ListBox1.Items.Add('Реквизиты :'); //Сканируем список реквизитов справочника for i:=0 to (Count-1) do begin //Получаем ссылку на реквизит справочника (по его индексу), как объект метаданных V2:= V1.Получить(i); //Читаем значение его свойства "Имя" (идентификатор) Sx:=Trim(V2.Имя); //Визуализируем имя (идентификатор) реквизита ListBox1.Items.Add(' '+Sx); end; end;

Здесь дополнительный комментарий не требуется ...

Скомпилируем наш Delphi-проект и запустим программу на выполнение.

После соединения с 1Cv8 - прочитаем свойства и реквизиты справочника КнигиВидеоАудио, как объекта метаданных (нужно нажать на кнопку "?").

Результат считывания представлен ниже :

Для сравнения - ниже представлен соответствующий фрагмент текстового файла, куда из 1С-конфигуратора была
выгружена структура информационной базы homelib_05.zip.

Исходные тексты этого проекта можно взять здесь (15 кб) :  meta_1cv8_com_v02.zip

Здесь можно скачать базу данных HomeLib (38 кб) : homelib_05.zip

© 24.08.2007 Сергей Попов