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.


 

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

41934. Нахождение решений системы линейных уравнений в MathCad 60.43 KB
  Тема: Нахождение решений системы линейных уравнений в MthCd. Цель работы: нахождение решений системы линейных уравнений в программе MthCd. Коэффициенты при неизвестных Свободные члены...
41935. Нахождение решений системы нелинейных уравнений в MathCad 45.24 KB
  Тема: Нахождение решений системы нелинейных уравнений в MthCd. Цель работы: нахождение решений системы нелинейных уравнений в программе MthCd . Задание: 1 Найти решение системы нелинейных уравнений с использованием так называемого блока решений .
41936. Символьные действия математического анализа в MathCad 73.2 KB
  Цель работы: определение неопределенных и определенных интегралов и производных в программе MthCd с использованием символьных операций. Неопределенный интеграл: Определенный интеграл: Производная: Задание: Применяя последовательно к каждой функции команды меню Symbolic Simplify найти: Найти: Неопределенный интеграл. Определенный интеграл 3 Производную первого порядка. Решение: Выводы В ходе выполнения лабораторной работы с помощью Mthcd научились применяя команды меню Symbolic Simplify находить неопределенный интеграл...
41937. Вычисление производных в задачах геометрии и частных производных 47.73 KB
  Тема: вычисление производных в задачах геометрии и частных производных. Цель работы: вычисление производных в задачах геометрии и нахождение частных производных высоких порядков в программе MthCd . 2 Выполнить числовое и символьное вычисление частных производных высшего порядка от функции трех переменных: fx=zsinxyz2 в точке M111.
41938. Вычисление интегралов в задачах геометрии и механики 99.01 KB
  Тема: вычисление интегралов в задачах геометрии и механики. Цель работы: вычисление интегралов в задачах геометрии и механики в программе MthCd. Ход выполнения работы: Выводы В ходе выполнения лабораторной работы с помощью Mthcd научились вычислять интегралы в задачах геометрии и механики а именно: решать систему уравнений; находить площадь через двойной интеграл статические моменты координаты центра тяжести.
41939. Решение обычных дифференциальных уравнений в MathCad 87.45 KB
  Тема: решение обычных дифференциальных уравнений в MthCd. Цель работы: с использованием встроенных функций и блочной структуры найти решение обычных дифференциальных уравнений. Задание: 1 Найти решение обычного дифференциального уравнения y =fxy с использованием блока решений.
41940. Изучение внешнего и внутреннего законов фотоэффекта 83.44 KB
  Цель работы: Изучить законы фотоэффекта вычислить постоянную Планка вычислить работу выхода. Так как фотон движется со скоростью света то он обладает импульсом с абсолютной величиной p = mc = hv c Работа выхода. энергия ε которую нужно сообщить электрону для того чтобы он вырвался с максимальной скоростью Vm из пластины характеризуемой работой выхода А определяется соотношением: ε =1 2 mVm 2 А = eUeU0 где U0 =А e потенциал...
41941. Изучение терморезистора. Определение константы 294.8 KB
  РТ21 Лабораторная работа № 9 Изучение терморезистора. Цель работы: Изучить терморезистор определить константу терморезистора В. Зависимость сопротивления терморезистора от температуры с достаточной точностью выражается формулой: 1 где А константа пропорциональная холодному сопротивлению терморезистора при 20 С В константа зависящая от физических свойств полупроводника терморезистора. Постоянная В является одной из важнейших характеристик терморезистора так как она определяет его температурный коэффициент...
41942. Исследование напряженного состояния тонкостенной цилиндрической оболочки 948.96 KB
  Внутренние силы и напряжения В соответствии с теорией расчета тонкостенные оболочки вращения находятся в плоском напряженном состоянии. В таких оболочках действуют кольцевые σк в первом главном сечении и меридиональные напряжения σм во втором главном сечении которые могут определяться через внутренние силы и моменты: где S меридиональная сила; Т кольцевая сила; М меридиональный момент; К кольцевой момент; δ толщина стенки; z координата точки в которой определяется напряжение; z изменяется в интервале от δ 2 до δ 2....