СИТ "Сетевые Информационные Технологии (в машиностроении)"
Неформальное объединение IT специалистов
 
tltr
..Visual Loodsman for Delphi
Предыдущая страницаСледующая страницаГлавная страницаКарта сайтаКарта сайта
   
   
   
  Главная
  Карта сайта
  Контакты
   
  Учебное пособие:
  Содержание
   
   
  Компания АСКОН
.....
Урок 3 - Подключение к серверу приложений через DCOM соединение (продолжение).
 

Шаг 3.4 - Инициализация компонентов.

     Итак, мы с Вами установили на главную форму приложения необходимые компоненты, настроили их соответствующим образом, теперь необходимо провести их инициализацию.
     Для этого перейдем в Delphi на главную форму, в инспекторе объектов перейдем на закладку Events для этой формы и создадим событие OnShow. Будет создана соответсвующая процедура события, в которой необходимо ввести следующие строчки:

procedure TPLMCom.FormShow(Sender: TObject);
begin
     Self.vlrvl.CreateList;
     // создать набор системных переменных
     Self.vlrvl.ReadRegistry;
     // загрузить переменные из реестра (если они там есть)
     Self.DCOM.LoadDBData;
     // подключиться к серверу приложений
     // подключиться к базе данных
     // загрузить из базы данных информацию в компоненты окружения

end;

     Аналогично создайте для главной формы приложения событие OnClose и в созданной процедуре события введите следующие строчки:

procedure TPLMCom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Self.vlrvl.SaveRegistry;
     // записать системные переменные в реестр
end;

     Скомпилируйте приложение и запустите на выполнение. Если не будет выдано никакой ошибки, значит соединение с сервером приложений прошло нормально (если будет выдана ошибка - проверьте соединение с сервером приложений с помощью приложения ЛОЦМАН-Клиент). Закройте приложение. Загрузите редактор реестра (Кнопка Пуск -> Выполнить -> regedit). Зайдите на ветку HKEY_CURRENT_USER\Software\VisualLoodsman\PLM Commander. Вы увидите сохраненные системные переменные в реестре, как показано на рисунке 3.5.

Рис. 3.5

     На этом урок закончим. Продолжение...

Предыдущая страницаСледующая страницаГлавная страницаКарта сайтаКарта сайта
 
...© 2010 "Сетевые Информационные Технологии" ...Главная...Карта сайта...Контакты