roberto
2ac1d5ccb7
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@3 0c75b7a4-871f-7646-8a2f-f78d34cc349f
326 lines
9.4 KiB
Plaintext
326 lines
9.4 KiB
Plaintext
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
|