art-00009

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

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

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

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

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

Очевидно, что работа с метаданными (в контексте 1Cv8) - важнейший аспект при разработке любой программы, претендующей хоть на какую-то обобщенность и универсальность.

На простом примере посмотрим, каким образом можно прочитать (например) список справочников и перечислений информационной базы.
Здесь можно скачать базу данных HomeLib (37 кб) : homelib_04.zip на которой тестировался данный пример.

Создадим новый проект (за основу можно взять любой из предыдущих статей).

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

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

Вопросы соединения с 1Cv8 были рассмотрены ранее и здесь мы на этом останавливаться не будем.
Выберем вариант соединения с 1Cv8 : COM-соединение .

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

procedure TForm1.SpeedButton2Click(Sender: TObject); //Получить cписок справочников и перечислений в информационной базе 1Cv8 Var V, meta_ole : Variant; //ссылка на объект метаданные Sx : string; i,Count : integer; begin meta_ole:=UnAssigned; ListBox1.Items.Clear; //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin if List_What.ItemIndex=0 then begin //Работаем со справочниками //Получаем ссылку на коллекцию справочников (как объекты метаданных) Meta_ole:=s1C8_ole.Метаданные.Справочники; //Определяем количество справочников в информационной базе Count:= Meta_ole.Количество()*1; if Count>0 then begin //сканируем список (коллекцию) справочников for i:=0 to (Count-1) do begin //Получаем ссылку на справочник (по его индексу), как объект метаданных V:= Meta_ole.Получить(i); //Читаем значение его свойства "Имя" (идентификатор) Sx:=Trim(V.Имя); //Визуализируем ListBox1.Items.Add(Sx); end; end; end; if List_What.ItemIndex=1 then begin //Работаем с перечислениями //Получаем ссылку на коллекцию перечислений (как объекты метаданных) Meta_ole:=s1C8_ole.Метаданные.Перечисления; //Определяем количество перечислений в информационной базе Count:= Meta_ole.Количество()*1; if Count>0 then begin //сканируем список (коллекцию) перечислений for i:=0 to (Count-1) do begin //Получаем ссылку на перечисление (по его индексу), как объект метаданных V:= Meta_ole.Получить(i); //Читаем значение его свойства "Имя" (идентификатор) Sx:=Trim(V.Имя); //Визуализируем ListBox1.Items.Add(Sx); end; end; end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

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

Посмотрим на практике, как все это работает.

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

Создадим соединение с 1Cv8.

В выпадающем списке выберем строку "Справочники" и нажмем на кнопку "бегущие человечки".
Результат представлен ниже.

Рис.2. Список справочников информационной базы.