Казус Проста услуга DataSnap XE - Калкулатор - Общността на Embarcadero

Написано от Всеволод L1433 в сряда, 20 април 2011 г. Публикувано в ПРЕДПРИЯТИЕ

Изграждане на просто сървърно приложение

Първата стъпка е да създадете ново сървърно приложение DataSnap с помощта на съветника "DataSnap Server".

Стартирайте Delphi XE.

Скриване на изображението

На първата страница оставете опцията „Тип проект“ като „Приложение за VCL формуляри“ по подразбиране.

На втората страница на съветника също оставете вече избраните опции. След това ще заменим примерните методи на сървъра с наши собствени.

В третото изображение ще оставим стойността по подразбиране „211“ за номера на TCP/IP порта. Опитайте се винаги да проверявате наличността на порта, като щракнете върху бутона „Тест порт“.

На последната страница също ще използваме опцията по подразбиране, за да изберем базов клас като „TComponent“, от който ще бъде извлечен нашият клас, който прилага сървърните методи.

Щракнете върху бутона „Край“ и съветникът ще създаде нов проект с три модула.

Запазете целия проект, като изберете „Файл -> Запази всичко".

Създайте нова папка за всички файлове за този казус „C:\DataSnapLabs\SimpleCalc\“.

Запазете основната форма на приложението като „FormServerUnit“, а за останалите имена използвайте стандартните имена – „ServerContainerUnit1“ и „ServerMethodsUnit1“ – и запазете проекта като „SimpleCalcServer“.

На този етап в прозореца на Delphi Project Manager виждате следната картина:

Скриване на изображението

Отворете модула „ServerMethodsUnit1.pas“ и внедрете функционалността на проста услуга, която извършва аритметични операции. Заменете демонстрационните методи, добавени от съветника („EchoString“ и„ReverseString“), към опциите, от които се нуждаем „Добавяне“ („добавяне“), „Изваждане“ („изваждане“), „Умножение“ („умножение“) и „Разделение“ („разделяне“).

Изходният код за модула „ServerMethodsUnit1“ трябва да изглежда така:

Вие внедрихте напълно нашия сървър. За да се реализира клиентско приложение, сървърът трябва да работи.

Изберете „Изпълни -> Изпълнение без отстраняване на грешки“, за да стартирате сървъра (извън програмата за отстраняване на грешки) и да минимизирате неговия прозорец.

Не прекъсвайте сървърното приложение до края на урока.

Изграждане на просто клиентско приложение

Щракнете с десния бутон върху групата проекти в Project Manager и изберете „Добавяне на нов проект“.

Скриване на изображението

Натиснете OK. Новият проект трябва да се добави към съществуващата група проекти.

Запазете новия проект „Файл -> Запази всичко".

Изберете папката, която сте създали, за да запазите файловете на сървърния проект, и запазете основната форма на клиентското приложение там като „FormClientUnit“, самия проект като „SimpleCalcClient“ и цялата група проекти като „SimpleCalcGrp“.

Прозорецът на Project Manager сега трябва да изглежда така:

Скриване на изображението

Проверете дали проектът на клиентското приложение е активен, след което изберете „Файл -> Ново -> Други“ и в диалоговия прозорец „Нови елементи“, който се показва, изберете „DataSnap Client Module“.

Скриване на изображение

Както миналия път, моля, запазете всички опции по подразбиране, докато работите със съветника.

На първата страница оставете „Местоположение на сървъра на DataSnap“ като „Локален сървър“.

Нашият DataSnap сървър е „самостоятелен“ (независимо самостоятелно приложение), така че просто щракнете върху „Напред“.

Ние се съгласихме да използваме "TCP/IP" като протокол, така чезапишете избраната опция.

Щракнете върху „Тест на връзката“, за да проверите дали сървърът наистина „слуша“ на порт 211, след което щракнете върху „Край“.

Помощникът ще добави два модула към нашето клиентско приложение „ClientClassesUnit1“ и „ClientModuleUnit1“.

Последната задача в този урок е да внедрите интерфейса на клиентското приложение.

Сега, в кода на формуляра на клиента, трябва да използвате правилно методите, изложени (предлагани) чрез свойството „ClientModule1.ServerMethods1Client“. Тези методи имат същите имена и сигнатури като методите, внедрени на сървъра.

Изпълнението на основната форма на клиентското приложение е показано по-долу.

Окончателният ми формуляр изглежда така:

Скриване на изображение

Вероятно няма нужда да ви се казва как да го възпроизведете!

Сега виждате колко лесно е да създавате DataSnap сървъри и клиенти с помощта на Delphi XE J

В този урок използвахме Delphi XE, за да изградим проста услуга DataSnap XE в стил калкулатор, която на ниво внедряване е Win32 приложение, което комуникира през TCP/IP.