иками.
Після створення віддалений модуль даних стає платформою для розміщення компонентів доступу до даних і компонентів провайдерів, які, поряд з модулем даних, реалізують основні функції сервера програми.
У середовищі програмування Delphi існують вже готові компоненти, що реалізують обмін даними між клієнтським і серверним додатками. На об'єкті класу TRemoteDataModule розміщуємо компонент TDataSetProvider. Даний компонент пов'язаний з одним з об'єктів класу TQuery, TTable і TStoredProc, а через них - з таблицями, запитами і збереженими процедурами бази даних. З іншого боку він є джерелом даних для об'єктів класу TClientDataSet на стороні клієнта.
У розробленому сервері додатків для роботи з даними використовуються тільки компоненти типу TQuery. Компонент TQuery дозволяє використовувати оператори SQL для того, щоб визначати або створювати набори даних, які можна відобразити на екрані, вставляти, видаляти і редагувати рядка.
Підключення компонентів TQuery до бази даних здійснюється за допомогою компонента TDataBase. Цей компонент не тільки створює локальний псевдонім бази даних, але і володіє цілим рядом властивостей і методів, які управляють одразу всіма проходять через нього наборами даних. Даний компонент також здійснює кешування даних.
Варто відзначити, що крім цих компонентів сервер додатків може містити будь-які процедури і функції, що реалізують бізнес-функції прикладної системи, і надавати клієнтам доступ до них через інтерфейс IDispatch.
Механізм взаємодії модулів розроблюваної багаторівневої інформаційної системи представлений на малюнку 2.7.
.3.3 Розробка процедур і функцій сервера додатків
Розроблюваний сервер додатків базується на класі TJobs, який є нащадком класу TRemoteDataModule і реалізує методи інтерфейсу IJobs. IJobs у свою чергу є спадкоємцем інтерфейсу IAppServer.
Малюнок 2.7 - Компонентна організація обміну даними системи
IJobs=interface (IAppServer) ExecQuery (const SqlCmd: WideString): WideString; safecall; SelectQuery (const SqlCmd: WideString): OleVariant; safecall; AppSrvConnect (const hostname: WideString; const username: WideString; const pwd: WideString): WideString; safecall; AppSrvInit (const DBSrvName: WideString; const username: WideString; const pwd: WideString): WideString; safecall;
end;
ExecQuery - інтерфейсна функція, яка виконує запит на зміну даних в інформаційній базі даних. SelectQuery - інтерфейсна функція, яка виконує запит на вибірку і повертає дані в XML форматі для відправки клієнтові. В обох функціях виконується розбір запиту, що надійшов від клієнтського додатку. Залежно від результату розбору, запит направляється або безпосередньо до інформаційної бази даних, або в модуль бізнес логіки, який у свою чергу виконує всі необхідні дії над даними.
AppSrvConnect - інтерфейсна функція підключення користувача до сервера додатків, в якій виконується авторизація користувача для підключення до бази даних. AppSrvInit - інтерфейсна функція, инициализирующая роботу сервера додатків.
Так як віддалений модуль даних реалізує сервер Автоматизації, додатково до основного дуальному інтерфейсу IJobs автоматично створений інтерфейс диспетчеризації IJobsDisp. При цьому для інтерфейсу диспетчеризації створені методи, які відповідають методам інтерфейсу IAppServer.
Клас CoJobs забезпечує створення СОМ-об'єктів, що підтримують використання інтерфейсу. Для нього автоматично створені два методи класу:
1) class function CoJobs.Create: IJobs; Використовується при роботі з локальним і внутрішнім сервером (in process);
2) class function CoJobs.CreateRemote (const MachineName: string): IJobs; Використовується в віддаленому сервері.
Обидва методи повертають посилання на інтерфейс IJobs.
Розроблений сервер додатків кешируєт проходять через нього дані. Для організації збереження цих даних у пам'яті використовується компонент TMemoryStream. Примірник класу TMemoryStream створює потік, який зберігає дані в пам'ять. Інформація зберігається в купі з можливістю зміни максимального обсягу збереженої інформації і завдання розмірів використовуваних блоків пам'яті. Процедура RemoteDataModuleCreate (Sender: TObject) створює даний потік при ініціалізації сервера додатків. Процедура RemoteDataModuleDestroy (Sender: TObject) знищує потік закешовану даних при завершенні роботи сервера додатків, щоб вже непотрібні дані не весели в пам'яті.
Сервер додатків містить також процедури та функції для ведення протоколу роботи (фіксуються підключен...
