11733

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

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

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

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

Русский

2013-04-10

17.34 KB

5 чел.

Лабораторная работа №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.


 

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

19006. Примеры нахождения функции Лагранжа, составления уравнений Лагранжа и их использования для описания движения простейших механических систем 1.35 MB
  Лекция 4. Примеры нахождения функции Лагранжа составления уравнений Лагранжа и их использования для описания движения простейших механических систем Рассмотрим применение метода Лагранжа к описанию движения простейших систем. Но сначала повторим основные идеи и р
19007. Интегралы движения. Однородность времени и закон сохранения энергии. Однородность пространства и закон сохранения импульса 328.5 KB
  Лекция 5. Интегралы движения. Однородность времени и закон сохранения энергии. Однородность пространства и закон сохранения импульса. Изотропность пространства и закон сохранения момента импульса Величины и меняются со временем. Однако существуют такие их комбина
19008. Общие свойства одномерного движения. Интегрирование уравнения одномерного движения. Период финитного движения в произвольном потенциале 301 KB
  Лекция 6. Общие свойства одномерного движения. Интегрирование уравнения одномерного движения. Период финитного движения в произвольном потенциале Одномерным называется движение системы с одной степенью свободы: . в самом общем виде функция Лагранжа выглядит так:
19009. Движение двух взаимодействующих частиц. Приведение к задаче о движении в цен-тральном поле. Общие закономерности движения в центральном поле 268 KB
  Лекция 7. Движение двух взаимодействующих частиц. Приведение к задаче о движении в центральном поле. Общие закономерности движения в центральном поле Полное аналитическое решение в общем виде допускает чрезвычайно важная задача о движении системы из взаимодействую
19010. Движение в центральном поле. Финитное и инфинитное движение. Падение на центр 828 KB
  Лекция 8. Движение в центральном поле. Финитное и инфинитное движение. Падение на центр Выберем начло координат в центре поля См. рисунок. В начальный момент времени частица находилась в какото точке имела импульс и следовательно имела относительно центра поля м...
19011. Общие закономерности движения частицы в кулоновском поле притяжения. Эффективный потенциал. Минимальное и максимальное расстояние до центра поля 1.28 MB
  Лекция 9. Общие закономерности движения частицы в кулоновском поле притяжения. Эффективный потенциал. Минимальное и максимальное расстояние до центра поля Рассмотрим движение частицы массы во внешнем поле ; 1 когда Это соответствует полю притяж...
19012. Движение в кулоновском поле притяжения (задача Кеплера). Классификация орбит при финитном и инфинитном движении 281 KB
  Лекция 10. Движение в кулоновском поле притяжения задача Кеплера. Классификация орбит при финитном и инфинитном движении В предыдущей лекции мы выяснили при каких значениях энергии движение будет инфинитным финитным а так же определили условия при которых траект
19013. Кинематика и динамика упругого столкновения частиц. Переход в Ц-систему. Импульсные диаграммы. Связь углов рассеяния в Л- и Ц-системах 1.06 MB
  Лекция 11. Кинематика и динамика упругого столкновения частиц. Переход в Цсистему. Импульсные диаграммы. Связь углов рассеяния в Л и Цсистемах Столкновение двух частиц называется упругим если оно не сопровождается изменением их внутреннего состояния в том числе не ...
19014. Дифференциальное сечение рассеяния частиц. Формула Резерфорда 2.55 MB
  Лекция 12. Дифференциальное сечение рассеяния частиц. Формула Резерфорда Для изучения характера взаимодействия частиц друг с другом обычно проводятся эксперименты по рассеянию целого пучка одинаковых частиц которые падают из бесконечности с одинаковой начальной с...