Delphi Rad Studio 10.3 Сессии Datasnap - PullRequest
Новая
       74

Delphi Rad Studio 10.3 Сессии Datasnap

0 голосов
/ 06 февраля 2020

Я пытаюсь научиться использовать Datasnap. Я создаю .DLL для использования с IIS. Я хочу использовать данные SESSION, но если я попытаюсь, я получу исключение. Я думаю, потому что счетчик сеансов всегда равен 0. Нужно ли где-нибудь создавать экземпляр сеанса? Код ниже. Вы можете видеть в моем простом приложении, все, что я хочу, это счетчик посещений страницы. 

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    var
    info, page , sidx : string;
    idx : integer;
    sesh :  TDSSession ;
    begin
    sidx := '0';
    sesh := TDSSessionManager.GetThreadSession;
    idx  := TDSSessionManager.Instance.GetSessionCount;
    {if sesh.HasData('index') then
      begin
      sidx := session.GetData('index');
      idx := strToint(sidx);
      inc(idx);
      session.PutData('index', intToStr(idx));
      end
    else
      begin
      session.PutData('index', sidx);
      end;    }
    ///if sesh.HasData('index') then
    sidx := intToStr(idx);
    Response.Content := sidx;
...