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.


 

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

54438. Die Ukraine − unsere Heimat 49.5 KB
  Die Ukrine − unsere Heimt Мета. Мовна зарядка Welche Tg ist heute Der wievielte ist heute Sind lle Schen in Ordnung Ist die Tfel suber 3. Де ви живете Ви живете в Києві Ми живемо на вулиці Шевченка 12 Konjugiert die folgenden Verben im Präsens sprechen wohnen leben. Die Hupstdt der Ukrine heißt Kyjiw.
54439. Лексикологія. Багатозначність слів, вживання їх у прямому та переносному значеннях, синоніми і антоніми 44.5 KB
  Сухомлинський Мова жива сходинка людського духу Панас Мирний Мова коштовній скарб народу І. Франко Мова життя духовного основа М. Рильский Мова генофонд культури О.Завжди йдуть у парі мова й думка.
54440. Голос рідної природи серцем слухати навчись 84.5 KB
  Полтави Голос рідної природи серцем слухати навчись Мова найбільший скарб який є у кожного народу. Навчальний процес в початковій школі ми намагаємося організувати так щоб перші кроки до науки маленькі школярі робили на уроках мислення серед природи гортаючи сторінку за сторінкою Книгу рідної землі. Дитина від своєї природи писав Сухомлинський допитливий дослідник відкривач світу. Один із перших кроків наближення дітей до природи розуміння її це спостереження що проводиться безпосередньо в довкіллі.
54441. ЦІКАВИНКИ РІДНОЇ МОВИ 53 KB
  Закріплювати знання учнів формувати вміння думатислухати. Ви підросли порозумнішали навчилися застосовувати практично наявні знання. Вітаю тих хто не отримав перемогу але показав міцні знання стійкий бійцівський характер.
54442. ЦВІТИ І СМІЙСЯ, РІДНЕ СЛОВО! У СЕРЦІ ЩИРОМУ ЗВУЧИ! 66 KB
  Нам стежку в світ дано топтати Поки в нас рідна мова є Учениця І як гуртом не поодинці Почнемо в світ її нести То й доти будем українці Поміж народів сміло йти Учень А знехтуємо рідне слово Земля цього нам не простить То ж сяй над світом рідна мово Тобі в віках судилось жить Учениця Цвіти і смійся рідне слово У серці щирому звучи Моя чарівна рідна мово Лети над світом не мовчи Звучить музика Ведучий. Ведучий. Ведучий. Ведучий.
54443. Соловїна, барвінкова, українська рідна мова 205 KB
  Мета: навчальна поглибити знання учнів про рідну мову її символи традиції впроваджувати елементи естетичного виховання культури спілкування; розвивальна розвивати українське мовлення культуру поведінки; виховна виховувати любов і повагу до своєї Батьківщини України її символів традицій обрядів почуття глибокої поваги до предків своїх рідних і близьких творчу самостійність і відповідальність уміння самоорганізовуватись вміння...
54444. Мово моя рідна, не мовчи! 522.5 KB
  А вчителька мовила що якби ваші словасуржики перетворились і справді на страшні дерева та ще на страшніших звірів я б побачила які ви герої Іванко. Багато віків люди засмічували рідну мову то модним словечком яке нічого спільного з рідною мовою не мало то вживали надмірно російські слова на український лад бо свого ліньки було підшукати а рідним словом нехтували цуралися його. Це не просто деревця це ті слова які ви щоденно говорите. А ви щодня сієте словазернятка і не задумуєтеся на тим що з того виросте.
54445. О рідна мовонько, о мово! В тобі від Бога кожне слово 115.5 KB
  Вчити учнів застосовувати набуті знання на практиці; Розвивати командний дух швидкість реакції прагнення перемоги вміння працювати в команді толерантне ставлення до думок інших Виховувати любов до рідної мови гордість за свою Батьківщину прагнення до самовдосконалення ХІД ЗАХОДУ Слово учителя Моя прекрасна українська мово Найкраща пісня в...
54446. Мова, наша мова ― пісня стоголоса! 1.51 MB
  Приспів: Калинова соловїна Вишиванками рясна Наша рідна Україна Розцвіте немов весна У нас на всіх одна надія Одна і радість і біда Ми землю мудрістю засієм Розквітне мова золота. Ви самі побачите яка чудова наша українська мова Багато тисяч літ тому жила в Україні прекрасна дівчина. А називалася ця красуня УКРАЇНСЬКА МОВА.