#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#AdditionalJar: sqlite-jdbc-3.36.0.3_min
#End Region
Sub Process_Globals
Private srvr As Server
Dim cp As HikariCP
End Sub
Sub AppStart (Args() As String)
'SQLiteCP
Dim url As String = $"jdbc:sqlite:${File.DirApp}\test.db"$
cp.Initialize("org.sqlite.JDBC",url,Null,Null)
Dim jocp As JavaObject = cp
jocp.RunMethod("setMaximumPoolSize", Array(100))
srvr.Initialize("srvr")
srvr.Port = 5100
srvr.AddHandler("/long", "LongExecQuery", False)
srvr.AddHandler("/fast", "FastExecQuery", False)
srvr.Start
StartMessageLoop
End Sub