Казус проста услуга datasnap XE - Калкулатор - софтуер

Анотация: В статията се създаването на опростена услуга Delphi XE например "калкулатор", която изпълнява основните функции на аритметични изчисления. Тази стъпка по стъпка казус е много проста, така че дори начинаещите програмисти Delphi, ще могат да го играят. Целта на настоящия казус е да се запознаят с процеса на създаване на клиенти и DataSnap сървъри. Нашата прост "калкулатор като услуга" означава заявления за клиента и сървъра. И двете програми - Delphi VCL Форми Win32, и да общуват, използвайки TCP / IP протокол. Надяваме се да се радвате!

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

Започнете Delphi XE.

На първата страница, оставете по подразбиране "тип проект" опцията как да се "VCL формулярите за кандидатстване".

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

В третия образ ще оставим стойността по подразбиране "211" за броя на TCP / IP порт. Винаги се старайте да се запознаят с налични портове, като натиснете бутона "Test Пристанище".

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

Кликнете върху бутона "Finish", съветникът ще създаде нов проект с три модула.

Запазване на целия проект опция "File -> Save All".

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

Дръжте главния формуляр за кандидатстване за "FormServerUnit", докато за другите имена, използвайте стандартните имена - "ServerContainerUnit1" и "ServerMethodsUnit1" - и да спаси проекта като "SimpleCalcServer".

На този етап в прозореца на Delphi ръководител на проекта, ще видите следната картина:

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

Сорс кодът за "ServerMethodsUnit1" модул трябва да изглежда така:

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

Изберете "Run -> Run Без грешки", за да стартирате сървъра (извън дебъгер) и минимизиране на прозореца му.

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

Щракнете с десния бутон върху групата по проекта в рамките на ръководителя на проекта и изберете "Add New Project".

Натиснете бутона "ОК". За текущата група на проекта, за да добавите нов проект.

Следвайте опазването на нов проект "File -> Save All".

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

Сега прозореца ръководителят на проекта трябва да изглежда така:

Уверете се, че приложението на клиента, проектът е активен, след това изберете "File -> New -> Други", а в прозореца "Нови артикули", изберете "DataSnap Client модул".

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

На първата страница, оставете "място DataSnap сървър" като "локален сървър".

Сървърът ни DataSnap е "самостоятелно" (независим заявление самостоятелен), така че просто натиснете "Next".

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

Кликнете върху "Проверка на връзката", за да се провери дали сървърът е всъщност "слушания" на пристанището 211, а след това щракнете върху "Finish".

Съветник за добавяне на два блока в нашия клиентско приложение "ClientClassesUnit1" и "ClientModuleUnit1".

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

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

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

И накрая, формата ми е, както следва:

Вероятно, не е нужно да ви кажа как да го играят!

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

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