object dmServer: TdmServer
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 307
  Width = 382
  object HTTPServer: TROIndyHTTPServer
    Encryption.UseCompression = True
    Dispatchers = <
      item
        Name = 'BINMessage'
        Message = BINMessage
        Enabled = True
        PathInfo = 'Bin'
      end>
    OnBeforeServerActivate = HTTPServerBeforeServerActivate
    IndyServer.Bindings = <>
    IndyServer.CommandHandlers = <>
    IndyServer.DefaultPort = 8099
    IndyServer.Greeting.NumericCode = 0
    IndyServer.MaxConnectionReply.NumericCode = 0
    IndyServer.ReplyExceptionCode = 0
    IndyServer.ReplyTexts = <>
    IndyServer.ReplyUnknownCommand.NumericCode = 0
    Port = 8099
    Left = 40
    Top = 16
  end
  object BINMessage: TROBinMessage
    Left = 136
    Top = 16
  end
  object IBXDriver: TDAIBXDriver
    Left = 304
    Top = 16
  end
  object DriverManager: TDADriverManager
    DriverDirectory = '%SYSTEM%\'
    AutoLoad = False
    TraceActive = True
    TraceFlags = [toPrepare, toExecute, toFetch, toError, toStmt, toConnect, toTransact, toBlob, toService, toMisc, toParams]
    OnTraceEvent = DriverManagerTraceEvent
    Left = 136
    Top = 80
  end
  object ConnectionManager: TDAConnectionManager
    MaxPoolSize = 10
    PoolTimeoutSeconds = 60
    PoolBehaviour = pbWait
    WaitIntervalSeconds = 1
    Connections = <
      item
        Name = 'IBX'
        ConnectionString = 
          'IBX?Server=localhost;Database=D:\Proyectos\FactuGES (Luis Leon)\Codigo' +
          '\BD\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Char' +
          'set=ISO8859_1;'
        Default = True
        Tag = 0
      end>
    DriverManager = DriverManager
    PoolingEnabled = True
    Left = 40
    Top = 80
  end
  object JvAppRegistryStorage: TJvAppRegistryStorage
    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
    RegRoot = hkLocalMachine
    Root = 'Software\%APPL_NAME%'
    SubStorages = <>
    Left = 304
    Top = 208
  end
  object JvLogFile1: TJvLogFile
    FileName = 'serverlog.txt'
    AutoSave = True
    Left = 248
    Top = 208
  end
  object DBSessionManager: TDADBSessionManager
    SessionDuration = -1
    OnSessionCreated = DBSessionManagerSessionCreated
    OnSessionDeleted = SessionManagerSessionDeleted
    Schema = schSesiones
    FieldNameSessionID = 'SessionID'
    FieldNameCreated = 'Created'
    FieldNameLastAccessed = 'LastAccessed'
    FieldNameData = 'Data'
    InsertSessionCommand = 'Insert_Session'
    UpdateSessionCommand = 'Update_Session'
    DeleteSessionCommand = 'Delete_Session'
    ClearSessionsCommand = 'ClearSessions'
    GetSessionCountDataSet = 'GetSessionCount'
    GetSessionDataSet = 'GetSession'
    Connection = 'IBX'
    Left = 48
    Top = 216
  end
  object schSesiones: TDASchema
    ConnectionManager = ConnectionManager
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 'SELECT'#10'    COUNT(*)'#10'  FROM'#10'    Sessions'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'GetSessionCount'
        Fields = <>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'SessionID'
            DataType = datString
            Size = 38
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT'#10'    SessionID, Created, LastAccessed, Data'#10'  FROM'#10'    Ses' +
              'sions'#10'  WHERE'#10'    SessionID = :SessionID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'SessionID'
                TableField = 'SessionID'
              end
              item
                DatasetField = 'Created'
                TableField = 'Created'
              end
              item
                DatasetField = 'LastAccessed'
                TableField = 'LastAccessed'
              end
              item
                DatasetField = 'Data'
                TableField = 'Data'
              end>
          end>
        Name = 'GetSession'
        Fields = <
          item
            Name = 'SessionID'
            DataType = datString
            Size = 38
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Created'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'LastAccessed'
            DataType = datDateTime
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Data'
            DataType = datBlob
            BlobType = dabtBlob
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'SessionID'
            DataType = datString
            Size = 38
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'Created'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'LastAccessed'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'Data'
            DataType = datBlob
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = '[TABLENAME]'
            SQL = 
              'INSERT'#10'  INTO Sessions'#10'    (SessionID, Created, LastAccessed, Da' +
              'ta)'#10'  VALUES'#10'    (:SessionID, :Created, :LastAccessed, :Data)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Session'
      end
      item
        Params = <
          item
            Name = 'LastAccessed'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'Data'
            DataType = datBlob
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SessionID'
            DataType = datString
            Size = 38
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'UPDATE'#10'    Sessions'#10'  SET'#10'    LastAccessed = :LastAccessed,'#10'    ' +
              'Data = :Data'#10'  WHERE'#10'    SessionID = :SessionID'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Session'
      end
      item
        Params = <
          item
            Name = 'LastAccessed'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'DELETE'#10'  FROM'#10'    Sessions'#10'  WHERE'#10'    LastAccessed < :LastAcces' +
              'sed'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'ClearSessions'
      end
      item
        Params = <
          item
            Name = 'SessionID'
            DataType = datString
            Size = 38
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 'DELETE'#10'  FROM'#10'    Sessions'#10'  WHERE'#10'    SessionID = :SessionID'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Session'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 48
    Top = 160
  end
end
