Sub Process_Globals
Public srvr As Server
Public rdcConnector1 As RDCConnector
Public PathToConfigFile As String
Type DBCommand (Name As String, Parameters() As Object)
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Private dbpool As ConnectionPool
Private Tm As Timer
End Sub
Sub AppStart (Args() As String)
srvr.Initialize("")
If PathToConfigFile <> "" Then srvr.LogsFileFolder = PathToConfigFile
rdcConnector1.Initialize
srvr.Port = rdcConnector1.serverPort
srvr.AddHandler("/rdc", "RDCHandler", False)
srvr.Start
dbpool.Initialize( "org.firebirdsql.jdbc.FBDriver",....)
Dim jo As JavaObject = dbpool
jo.RunMethod("setMaxPoolSize", Array As Object(100))
Tm.Initialize("TM",10000)
Tm.Enabled = True
StartMessageLoop
End Sub