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.


 

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

11000. Основные особенности досократовской философии 30.5 KB
  Основные особенности досократовской философии. Космоцентризм и основные понятия античной философииКосмос Природа Логос Эйдос Душа Спецификой греческой философии особенно в начальный период ее развития является стремление понять сущность природы космоса ми...
11003. Система и метод философии Гегеля. Диалектический метод Гегеля 25.46 KB
  Система и метод философии Гегеля. Выдающееся значение философии Гегеля заключалось в том что в ней в систематической форме было изложено диалектическое миропонимание и соответствующий ему диалектический метод исследования. Гегель разрабатывал д...
11004. Соотношение философии и науки по предмету. Предмет философии как отношение человека к миру 73.5 KB
  Соотношение философии и науки по предмету. Предмет философии как отношение человека к миру 1. Соотношение философии и науки по предмету. Множество определений философии. Существует множество определений философии и ее предмета1. Древнегреческий философ Платон пола...
11005. Жизнь и философствования Сократа 62 KB
  Жизнь и философствования Сократа Поворотным пунктом в развитии античной философии явились воззрения Сократа 469 399 до н.э.. Его имя стало нарицательным и служит для выражения иди мудрости. Сам Сократ ничего не писал был близким к народу мудрецом; философствовал на улиц...
11006. Основные черты средневекового христианского мировоззрения.(Бог, человек и мир в средневековой христианской философии) 38 KB
  Основные черты средневекового христианского мировоззрения.Бог человек и мир в средневековой христианской философии. Особенности философии СредневековьяВыделяют следующие особенности философии Средневековья: философское учение теоцентрично философия Средневеко
11007. Рационалистическая метафизика 17 века (Декарт, Спиноза, Лейбниц) 38 KB
  Рационалистическая метафизика 17 века Декарт Спиноза Лейбниц Рационализм направление признающее разум основой познания и поведения людей. Начал складывать в результате развития математики и естествознания. Исходит из идеи естественного порядка. Утверждает опр
11008. Полемика славянофилоф и западников в русской философии 74 KB
  Полемика славянофилоф и западников в русской философии Своеобразным направлением в русской философии явилось славянофильство ярким представиетелм которого были А.С.Хомяков 18041860 и И.В.Киреевский 18061856 оказавшие значительное воздействие на развитие русской мыс