delphi rest getdatasnapWebModule - PullRequest
Новая
       19

delphi rest getdatasnapWebModule

0 голосов
/ 30 апреля 2018

В моем приложении что-то странное. Интересно, что я сделал не так или что я не понял.

Цель состоит в том, чтобы создать две функции в ServerMethodsUnit для изменения переменной веб-модуля.

Для этого

Я использовал мастер Datasnap Rest Server со следующими параметрами

Автономное приложение VCL Gui Нет авторизации, из Тдатамодуля Методы работы сервера EchoString и ReverseString работают хорошо.

Сначала я добавил в WebModuleUnit1 переменную var1: string; 

TWebModule1 = class(TWebModule)
DSHTTPWebDispatcher1: TDSHTTPWebDispatcher;
DSServer1: TDSServer;
DSServerClass1: TDSServerClass;
ServerFunctionInvoker: TPageProducer;
ReverseString: TPageProducer;
WebFileDispatcher1: TWebFileDispatcher;
DSProxyGenerator1: TDSProxyGenerator;
DSServerMetaDataProvider1: TDSServerMetaDataProvider;

procedure DSServerClass1GetClass(DSServerClass: TDSServerClass;
var PersistentClass: TPersistentClass);
procedure ServerFunctionInvokerHTMLTag(Sender: TObject; Tag: TTag;
const TagString: string; TagParams: TStrings; var ReplaceText: string);
procedure WebModuleDefaultAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure WebModuleBeforeDispatch(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure WebFileDispatcher1BeforeDispatch(Sender: TObject;
const AFileName: string; Request: TWebRequest; Response: TWebResponse;
var Handled: Boolean);
procedure WebModuleCreate(Sender: TObject);
private
{ Déclarations privées }
FServerFunctionInvokerAction: TWebActionItem;
function AllowServerFunctionInvoker: Boolean;
public
{ Déclarations publiques }
var1:string;
end;

Я добавил в ServerMethodsUnit1 2 функции в ServerMethodsUnit1

функция SetVar1 (астр: строка): строка; функция GetVar1 (): строка;

и использование Datasnap.DSHTTPWebBroker (интерфейс) и WebModuleUnit1 (реализация) 

function TServerMethods1.GetVar1: string;
var oweb : TWebModule1;
begin
   oweb := TWebModule1(GetDataSnapWebModule);
   result := oweb.var1;
end;

function TServerMethods1.SetVar1(astr: string): string;
var oweb : TWebModule1;
begin
   oweb := TWebModule1(GetDataSnapWebModule);
   oweb.var1 := astr;
   result := oweb.var1;
end;

все казалось нормальным!

Я проверяю свои 2 функции с http://localhost:xxxx/ServerFunctionInvoker

Все работает нормально, когда у меня только одно соединение с моим веб-сервером.

Когда у меня несколько соединений, оно больше не работает. У меня сложилось впечатление, что переменная используется разными экземплярами WebModule.

Пример: 

    Instance 1 (Chrome) -> SetVar1('TOTO')

    Instance 2 (Firefox) -> SetVar1('HELLO')

    Instance 1 (Chrome) -> GetVar1 : return 'TOTO'

    Instance 1 (Chrome) -> GetVar1 : return 'HELLO'

    Instance 1 (Chrome) -> GetVar1 : return ''

Если я запускаю одну и ту же функцию 3 раза, у меня нет одинакового ответа !!!

Это как если бы функция GetDataSnapWebModule не возвращала правильный веб-модуль.

Что я сделал не так?

Как разделить переменную (или TfdmemTable) между 2 вызовами функции rest

заранее благодарю за помощь.

@ + Romuald

...