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.


 

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

60098. Усний журнал КИМ БУТИ? 58.5 KB
  Ким же я стану Сьогодні ми проведемо усний журнал ‘КИМ БУТИ Яку відповідь на це запитання знайшов наш гість ми зараз послухаємо на першій сторінці яка має назву І сторінка ЦІКАВА ЗУСТРІЧ В гості до нас прийшов щоб розповісти про власний вибір професії Лауреат премії ім. Усі професії потрібні і важливі. Будівельник показую малюнок і слова МАЛЯР МУЛЯР...
60099. Я - українець! 74 KB
  Ведучий: Я українець Над Дніпром Стоїть в саду вишневім хата Криниця журавель з цебром І скибка місяця щербата. Ведуча: Я українка З юних літ Мене пісень навчила мати Які чарують цілий світ Де народився Заповіт...
60100. МАСЛЕНИЦА. СЦЕНАРИЙ 47.5 KB
  Ведущая: А еще для славян масленица долгое время была встречей нового года так как до 16 века он начинался с марта. Дети вместе: У нас горы снежные готовы и блины напечены просим жаловать Мальчик: Масленица объедуха...
60101. Устный журнал: Что в имени тебе моём? 47 KB
  У каждого человека есть имя Нет меж живущих людей да не может и быть безыменных: В первый же миг по рождении каждый убогий и знатный Имя как сладостный дар от родимых своих получает Гомер Прошли тысячелетия а сказанное им и сейчас остается истиной.
60103. Сценарій 9 травня «День памяті та надії» 55 KB
  ХХІ століття. Усе далі й далі відходять грізні роки Великої Вітчизняної війни. Але кожного року 9 травня ми відзначаємо День перемоги, і ніколи не згасне память про всіх тих, хто поліг у боях, хто віддав своє життя для нашого щастя.
60104. Позакласний захід «Що потрібно знати про грип» 60.5 KB
  Тож Що потрібно знати про грип будуть розповідати діти. Сьогодні ми поговоримо про одну з найпоширеніших інфекційних хвороб грип. На грип хворіють і діти і дорослі.
60105. Відкритий виховний захід: «Психологічне здоровя дитини» 49.5 KB
  Мета: розширювати і узагальнювати поняття про поведінку між людьми; про вихованість і чемність людську доброту і милосердя та вплив цих чинників на здоровя людини; прищеплювати бажання свідомо дотримуватися усталених норм поведінки...