11733

Клиентская часть: размещение не визуальных компонентов соединения с базой данных

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа №5 Клиентская часть: размещение не визуальных компонентов соединения с базой данных. Цель: закрепить практические умения и навыки управления не визуальными компонентами отображения соединения с базой данных. Закрепление навыков работы в среде п...

Русский

2013-04-10

17.34 KB

4 чел.

Лабораторная работа №5

Клиентская часть: размещение не визуальных компонентов соединения с базой данных.

Цель: закрепить практические умения и навыки управления не визуальными компонентами отображения соединения с базой данных.

Закрепление навыков работы в среде программирования Delphi.

  Выполнил: Скворцов И.А.

  Группа: 091-ПО

Преподаватель: Афанасьева Г.Ю.

      Дата:15.02.2013

Ход работы:

Создание сервера СОМ:

FileNewOther (ФайлСоздатьДругое), на вкладке ActiveX выбирал  ActiveX Library (Библиотека объектовActiveX).

Библиотека представляет собой сервер СОМ, хранящий набор объектов. В библиотеку добавим объект СОМ:

FileNewOther (ФайлСоздатьДругое), на вкладке ActiveX выбрал  COM Object. В поле ClassName ввел имя объекта «TestObj». Нажал ОК. В появившейся Библиотеке типов (Type Library) выделил строку «ITestObj» (интерфейс объекта TestObj) и создал новый МЕТОД интерфейса. В новом поле ввел название метода «GetSum». В правой части редактора перешел на вкладку Parameters (Параметры функции) и в поле «Return Type» (Тип возвращаемого значения) выбрал «integer».       Создал выходные параметры метода «а1» и «а2». В поле Type  (Тип входящих значений ) ввел «integer». Щёлкнул по кнопке «Refresh Implementation». Перешел в модуль Unit1, где хранится описание объекта «TestObj».В тело метода GetSum  добавил строку-обработчик входных параметров «а1», «а2»: «Result:=a1+a2;». Серверный объект СОМ создан. Теперь его следует зарегистрировать в Windows. RunRegister ActiveX Server. Сохранил проект в «Мои документы» в папке «COM object». FileSave All.

Создание клиента СОМ.

FileNewApplication. Сохранил сразу новый проект в «Мои документы» в папке «Client». FileSave All.

На форме разместил два компонента TEdit  и одну кнопку TButton. При нажатии на кнопку программа клиент установит связь с сервером, отправит 2 переменные и получит значение их суммы.

Для соединения c сервером СОМ у программы клиента должно быть описание самого объекта и его интерфейсов (Project2_TLB.pas). Скопировал файл  Project2_TLB.pas из папки «COM object» в папку «Client».Теперь необходимо прописать этот файл в проекте клиента. На вкладке «Project2» в разделе «uses» добавил строку: Project2_TLB in 'Project2_TLB.pas'; Теперь клиент знает о наличии соответствующего интерфейса. Чтобы программа могла использовать СОМ сервер на вкладке «Unit1» в списке подключаемых модулей указал модуль Project2_TLB. Опишем в разделе public 2 переменные «Bik1» и «Bik2». Написал обработчик щелчка по кнопке:

Bik1:=CoTestObj.Create;

Bik1.QueryInterface(ITestObj,bik2);

Showmessage(inttostr(bik2.getsum(strtoint(form1.edit1.Text),

Strtoint(form1.Edit2.Text))));

Сохранил проект ещё раз: FileSave All и скомпилировал программу (F9).

Удаление сервера СОМ

Открыл проект СОМ сервера  в «Мои документы» в папке «COM object». FileOpen Project.

Удалил его из списка зарегистрированных СОМ объектов. RunUnregister ActiveX Server.

Вывод: закрепили практические умения и навыки управления не визуальными компонентами отображения соединения с базой данных.

Закрепили навыки работы в среде программирования Delphi.


 

А также другие работы, которые могут Вас заинтересовать

6571. Генетические основы онтогенеза 27.97 KB
  Генетические основы онтогенеза Онтогенез - непрерывный процесс количественных и качественных изменений, происходящих в организме в течение всей жизни при постоянном взаимодействии генотипа и условий среды. Термины онтогенез и филогенез ввел...
6572. Генетика популяций. Понятие о популяции и чистых линиях. Эффективность отбора в чистых линиях и популяциях 47.82 KB
  Генетика популяций Понятие о популяции и чистых линиях. Эффективность отбора в чистых линиях и популяциях. Популяция - это группа организмов одного вида, свободно скрещивающихся друг с другом, имеющая определённый ареал обитания и изолированная...
6573. Иммлуногенетика. Группы крови человека и животных 34.01 KB
  Иммлуногенетика Группы крови человека и животных. В пределах вида особи различаются не только по морфологическим признакам, но и по ряду биохимических, которые могут быть выявлены иммуногенетически в виде системы антигенов. Антигены - это вещества б...
6574. Наследование количественных признаков 46.79 KB
  Наследование количественных признаков Все признаки у животных разделяются на две группы - качественные и количественные. К качественным признакам относятся: масть животных, пол, тип конституции, устойчивость к заболеваниям и другие....
6575. Генетические основы иммунитета. Понятие об иммунитете и иммунной системе организма 35.33 KB
  Генетические основы иммунитета Понятие об иммунитете и иммунной системе организма. Мы живем в потенциально враждебном мире, наполненном огромным множеством инфекционных агентов, которые имеют различные размеры форму, строение и раз...
6576. Наследственные аномалии и болезни с наследственной предрасположенностью. Селекция животных на устойчивость к заболеваниям 33.59 KB
  Наследственные аномалии и болезни с наследственной предрасположенностью. Селекция животных на устойчивость к заболеваниям Генетические аномалии у сельскохозяйственных животных. В результате мутаций у животных и человека возникают различные наследств...
6577. Генетика крупного рогатого скота, свиней, овец и птицы 42.86 KB
  Генетика крупного рогатого скота, свиней, овец и птицы Генетика крупного рогатого скота. Скотоводство представляет в нашей стране главную отрасль животноводства. Дальнейшее его развитие связано с увеличением генетического потенциала, возможности кот...
6578. Дидактические материалы к конструированию и анализу урока 191.5 KB
  Дидактические материалы к конструированию и анализу урока Требования к современному уроку 1. Точное и творческое выполнение программно-методических требований к уроку грамотное определение типа урока, его места в разделе, курсе, системе внутрикурсо...
6579. Философия, ее смысл и функции 30.78 KB
  Философия, ее смысл и функции. Истоки философии и её смысл. Философское мировоззрение. Методы философии Структура и функции философии. Термин философия означает буквально любовь к мудрости. Его впервые употребил Пифагор по отнош...