dws2sessionlibmodule.dfm

script language

object dws2SessionLib: Tdws2SessionLib
  OldCreateOrder = False
  Left = 275
  Top = 161
  Height = 479
  Width = 741
  object customSessionUnit: Tdws2Unit
    Arrays = <>
    Classes = <
      item
        Name = 'Session'
        Constructors = <>
        Fields = <>
        Methods = <
          item
            Name = 'GetActiveUsers'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesUserMethodsGetActiveUsersEval
            Kind = mkClassFunction
          end
          item
            Name = 'SetIpAddr'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2UnitClassesUserMethodsSetIpAddrEval
            Kind = mkClassProcedure
          end
          item
            Name = 'GetIpAddr'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2UnitClassesUserMethodsGetIpAddrEval
            Kind = mkClassFunction
          end
          item
            Name = 'SetCState'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Integer'
              end>
            OnEval = dws2UnitClassesUserMethodsSetSstateEval
            Kind = mkClassProcedure
          end
          item
            Name = 'GetCState'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesUserMethodsGetSstateEval
            Kind = mkClassFunction
          end
          item
            Name = 'SetSBrand'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2UnitClassesUserMethodsSetSBrandEval
            Kind = mkClassProcedure
          end
          item
            Name = 'GetSBrand'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2UnitClassesUserMethodsGetSBrandEval
            Kind = mkClassFunction
          end
          item
            Name = 'SetTLogin'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = dws2UnitClassesUserMethodsSetTLoginEval
            Kind = mkClassProcedure
          end
          item
            Name = 'GetTLogin'
            Parameters = <>
            ResultType = 'DateTime'
            OnEval = dws2UnitClassesUserMethodsGetTLoginEval
            Kind = mkClassFunction
          end
          item
            Name = 'SetTLastAction'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = dws2UnitClassesUserMethodsSetTLastActionEval
            Kind = mkClassProcedure
          end
          item
            Name = 'GetTLastAction'
            Parameters = <>
            ResultType = 'DateTime'
            OnEval = dws2UnitClassesUserMethodsGetTLastActionEval
            Kind = mkClassFunction
          end
          item
            Name = 'Param'
            Parameters = <
              item
                Name = 'Name'
                DataType = 'string'
              end>
            ResultType = 'variant'
            OnEval = dws2UnitClassesUserMethodsGetUserdataEval
            Kind = mkClassFunction
          end
          item
            Name = 'Store'
            Parameters = <
              item
                Name = 'name'
                DataType = 'string'
              end
              item
                Name = 'value'
                DataType = 'variant'
              end>
            OnEval = customSessionUnitClassesUserMethodsSetUserDataEval
            Kind = mkClassProcedure
          end>
        Properties = <
          item
            Name = 'ActiveUsers'
            DataType = 'Integer'
            ReadAccess = 'GetActiveUsers'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'IpAddr'
            DataType = 'String'
            ReadAccess = 'GetIpAddr'
            WriteAccess = 'SetIpAddr'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'ClientState'
            DataType = 'Integer'
            ReadAccess = 'GetCState'
            WriteAccess = 'SetCState'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'SBrand'
            DataType = 'String'
            ReadAccess = 'GetSbrand'
            WriteAccess = 'SetSbrand'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'TLogin'
            DataType = 'DateTime'
            ReadAccess = 'GetTlogin'
            WriteAccess = 'SetTlogin'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'TLastAction'
            DataType = 'DateTime'
            ReadAccess = 'GetTLastAction'
            WriteAccess = 'SetTLastAction'
            Parameters = <>
            IsDefault = False
          end>
      end>
    Constants = <
      item
        Name = 'dwstateTOUT'
        DataType = 'integer'
        Value = '-2'
      end
      item
        Name = 'dwstateLOFF'
        DataType = 'Integer'
        Value = '-1'
      end
      item
        Name = 'dwstateNLI'
        DataType = 'Integer'
        Value = 0
      end
      item
        Name = 'dwstateGLI'
        DataType = 'Integer'
        Value = 1
      end
      item
        Name = 'dwstatePRF'
        DataType = 'Integer'
        Value = 9
      end
      item
        Name = 'dwstateULI'
        DataType = 'Integer'
        Value = 10
      end
      item
        Name = 'dwstateNAT'
        DataType = 'Integer'
        Value = 12
      end
      item
        Name = 'dwstateVIP'
        DataType = 'Integer'
        Value = 20
      end
      item
        Name = 'dwstateSU'
        DataType = 'Integer'
        Value = 100
      end
      item
        Name = 'Version'
        DataType = 'String'
        Value = '2.1.2001.6.20'
      end>
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'TIDfunc'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitFunctionsTIDEval
      end
      item
        Name = 'ActiveSession'
        Parameters = <>
        ResultType = 'boolean'
        OnEval = customSessionUnitFunctionsActivSessionEval
      end
      item
        Name = 'URL'
        Parameters = <
          item
            Name = 'AnURL'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = customSessionUnitFunctionsURLEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'SessionManager'
    Variables = <>
    Left = 36
    Top = 12
  end
end