Адрес этой странички : http://doc-prg.narod.ru/art_00006/art_00006.htm 

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

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

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

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

Простой пример, иллюстрирующий  процесс считывания списка значений перечисления с использованием механизма OLE Automation.

Информационная база 1Cv8 ( 29 кб): homelib_02.zip - та же, что и в предыдущих примерах.
Вспомним, что в контексте информационной базы создано перечисление : ТипНосителя :

 Рис.1. Перечисление ТипНосителя информационной базы 1Cv8

Попробуем прочитать его значения.

Создадим новый Delphi-проект (Load_from_Enum_COM.dpr).
Ниже представлена форма проекта :

 Рис.2. Форма проекта Load_from_Enum_COM.dpr

Вопросы соединения с 1Cv8 были рассмотрены ранее.
Поэтому сразу же перейдем к программированию процесса считывания информации.

В данном случае будем ориентироваться на вариант : "COM-соединение"

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

procedure TForm1.SpeedButton2Click(Sender: TObject); //Прочитать информацию из перечисления ТипНосителя Var TN_name : string; //имя значения перечисления TN_ole : variant; //cсылка на объект : Перечисления.ТипНосителя TN_meta_ole : variant; //cсылка на перечисление ТипНосителя, как объект метаданных i_Val, //индекс (номер) значения перечисления Count_Val : integer;//кол-во значений в перечислении begin ListBox1.Items.Clear; //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin //Получаем ссылку на объект : Перечисления.ТипНосителя TN_ole := s1C8_ole.Перечисления.ТипНосителя; //Получаем кол-во значений у данного перечисления Count_Val:=TN_ole.Количество()*1; //ShowMessage(IntToStr(Count_Val)); if Count_Val>0 then begin //Сканируем список значений перечисления и получаем их наименование for i_Val:=0 to (Count_Val-1) do begin //Теперь обращаемся к заданному перечислению, как объекту метаданных TN_meta_ole := s1C8_ole.Метаданные.Перечисления.ТипНосителя; //Читаем наименование значения перечисления TN_name:=Trim(TN_meta_ole.ЗначенияПеречисления.Получить(i_Val).Имя); //Записываем в список ListBox1 ListBox1.Items.Add(TN_name); end; end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

Здесь все прозрачно (пояснения в тексте обработчика).

Теперь скомпилируем наш проект и запустим его на выполнение :

 Рис.3. Главное окно приложения Load_from_Enum_COM.exe

Сравним результат считывания (с использованием механизма OLE Automation) - с фактической информацией (рис.1).
Для этого нужно запустить конфигуратор 1Cv8 ...

Здесь также все понятно.

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

Модифицируем наш проект (расположим на форме еще одну кнопку и реализуем вид соединения с 1Cv8 : "OLE Automation Client/Server").

Рис.4. Форма проекта Load_from_Enum_OLE.dpr

Создадим обработчик события: нажатие на эту кнопку ("?") :

procedure TForm1.SpeedButton3Click(Sender: TObject); //Открыть форму списка значений перечисления Var TN_ole : variant; //cсылка на объект : Перечисления.ТипНосителя TN_form_ole : variant; //cсылка на форму списка значений объекта : Перечисления.ТипНосителя begin //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin //Получаем ссылку на объект : Перечисления.ТипНосителя TN_ole := s1C8_ole.Перечисления.ТипНосителя; //Получаем ссылку на соответствующую форму TN_form_ole := TN_ole.ПолучитьФормуСписка(); if YesLinkToVariant(TN_form_ole) then begin //проверяем состояние формы if TN_form_ole.Открыта() then begin ShowMessage('Форма уже открыта !'); end else begin //открываем форму TN_form_ole.Открыть(); end; end else begin ShowMessage('Ссылка на форму не корректна !'); end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

Текст обработчика достаточно прост и доп. комментарий не требуется.

Теперь скомпилируем наш проект и запустим его на выполнение.
На рис.5 представлен результат открытия формы списка значений перечисления.

 Рис.5. Главное окно приложения Load_from_Enum_OLE.exe.
Метод объекта 1Cv8 "Форма" - Открыть()

Если нажать еще раз на кнопку "?" (при открытой форме), то на экране появится сообщение :

 Рис.6. Главное окно приложения Load_from_Enum_OLE.exe.
Метод объекта 1Cv8 "Форма" - Открыта()

Еще усложним наш проект (расположим на форме кнопку "m?" (рис.7).

Рис.7. Форма проекта Load_from_Enum_OLE.dpr

Создадим обработчик события: нажатие на эту кнопку :

procedure TForm1.SpeedButton4Click(Sender: TObject); //Открыть модально форму для выбора значения перечисления Var TN_meta_ole : variant; //cсылка на перечисление ТипНосителя, как объект метаданных TN_ole : variant; //cсылка на объект : Перечисления.ТипНосителя TN_form_ole : variant; //cсылка на форму списка значений объекта : Перечисления.ТипНосителя TN_val_ole : variant; //выбранное значение перечисления TN_num : integer; //индекс (номер) значения перечисления TN_name : string; //имя значения перечисления begin TN_val_ole := UnAssigned; //Проверяем, существует ли соединение с 1Cv8 if YesLinkToVariant(s1C8_ole) then begin //Получаем ссылку на объект : Перечисления.ТипНосителя TN_ole := s1C8_ole.Перечисления.ТипНосителя; //Получаем ссылку на соответствующую форму TN_form_ole := TN_ole.ПолучитьФормуВыбора(); if YesLinkToVariant(TN_form_ole) then begin //Проверяем состояние формы. //В данном случае это избыточный код, поскольку при открытии формы //модально - управление вызывающему приложению не возвращается, //пока форма не будет закрыта if TN_form_ole.Открыта() then begin ShowMessage('Форма уже открыта !'); end else begin //Открываем форму модально. //Метод возвращает выбранное значение TN_val_ole := TN_form_ole.ОткрытьМодально(); if YesLinkToVariant(TN_form_ole) then begin //---------------------------- //Вычисление имени выбранного значения перечисления //Индекс (номер) выбранного значения перечисления TN_num := TN_ole.Индекс(TN_val_ole)*1; //cсылка на перечисление ТипНосителя, как объект метаданных TN_meta_ole := s1C8_ole.Метаданные.Перечисления.ТипНосителя; //Имя значения перечисления (как объекта метаданных) TN_name:=Trim(TN_meta_ole.ЗначенияПеречисления.Получить(TN_num).Имя); //---------------------------- ShowMessage('Выбрано значение: '+TN_name); end else begin ShowMessage('Значение не выбрано !'); end; end; end else begin ShowMessage('Ссылка на форму не корректна !'); end; end else begin ShowMessage('Сначала нужно установить соединение с 1Cv8 !'); end; end;

Текст обработчика достаточно прост и доп. комментарий не требуется.

Теперь скомпилируем наш проект и запустим его на выполнение.
На рис.8 представлен результат открытия формы списка значений перечисления для выбора.

 Рис.8. Главное окно приложения Load_from_Enum_OLE.exe.
Метод объекта 1Cv8 "Форма" - ОткрытьМодально()

Теперь нужно выбрать какое-либо значение перечисления (двойной щелчок левой кнопкой мышки по соотв.строке или нажатие на кнопку "Выбрать", рис.8).

Результат представлен на рис.9.

 Рис.9. Главное окно приложения Load_from_Enum_OLE.exe.
Метод объекта 1Cv8 "Форма" - ОткрытьМодально()

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

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