請問各位大大 我要在程式中判斷目前有多少session數應該怎麼做ㄋ

可以用 TIWServerController 的 OnNewSession 和 OnCloseSession 自行加減一變數, 如:

unit ServerController;    interface    uses
  SysUtils, Classes, IWServerControllerBase, IWBaseForm, HTTPApp,
  // For OnNewSession Event
  UserSessionUnit, IWApplication, IWAppForm;    type
  TIWServerController = class(TIWServerControllerBase)        procedure IWServerControllerBaseNewSession(ASession: TIWApplication;
      var VMainForm: TIWBaseForm);
    procedure IWServerControllerBaseCloseSession(ASession: TIWApplication);      private
  public
    ActiveSessions : Integer;
  end;
....
implementation
....
procedure TIWServerController.IWServerControllerBaseNewSession(
  ASession: TIWApplication; var VMainForm: TIWBaseForm);
begin
  ASession.Data := TIWUserSession.Create(nil);
  Inc(ActiveSessions);
end;    procedure TIWServerController.IWServerControllerBaseCloseSession(
  ASession: TIWApplication);
begin
  Dec(ActiveSessions);
end;

讀取 Session 數:

uses ServerController;
procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
  WebApplication.ShowMessage(InttoStr(IWServerController.ActiveSessions));
end;

註: 如果是 StandAlone Mode 可以直接讀取 TIWStandAloneServer.ActiveSessions Property 如

uses IWMain;
type TempMain=class(TFormIWMain); // 爲了取得 Protected 區段
procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
  WebApplication.ShowMessage(InttoStr(TempMain(formIWMain).FStandaloneServer.ActiveSessions));
end;

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.