AppType=StandardJava Build1=Default,b4j.JRDCMulti File1=config.properties FileGroup1=Default Group Group=Default Group Library1=javaobject Library2=jcore Library3=jrandomaccessfile Library4=jserver Library5=jshell Library6=json Library7=jsql Library8=byteconverter Module1=DB1Handler Module2=DB2Handler Module3=DB3Handler Module4=DB4Handler Module5=GlobalParameters Module6=Manager Module7=RDCConnector Module8=TestHandler NumberOfFiles=1 NumberOfLibraries=8 NumberOfModules=8 Version=10 @EndOfDesignText@ 'Non-UI application (console / server application) #Region Project Attributes #CommandLineArgs: #MergeLibraries: True ' VERSION 4.11.09 '########################################################################################################### '###################### PULL ############################################################# 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=git&Args=pull '########################################################################################################### '###################### PUSH ############################################################# 'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\ '########################################################################################################### '###################### PUSH TORTOISE GIT ######################################################### 'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"../"&Args=/closeonend:2 '########################################################################################################### #End Region 'change based on the jdbc jar file '#AdditionalJar: mysql-connector-java-5.1.27-bin '#AdditionalJar: postgresql-42.7.0 #AdditionalJar: ojdbc11 Sub Process_Globals Public srvr As Server ' Public rdcConnectorDB1 As RDCConnector ' Public rdcConnectorDB2 As RDCConnector ' Public rdcConnectorDB3 As RDCConnector ' Public rdcConnectorDB4 As RDCConnector Public const VERSION As Float = 2.23 Type DBCommand (Name As String, Parameters() As Object) Type DBResult (Tag As Object, Columns As Map, Rows As List) Dim listaDeCP As List Dim cpFiles As List Public Connectors, commandsMap As Map End Sub Sub AppStart (Args() As String) listaDeCP.Initialize srvr.Initialize("") Dim con As RDCConnector Connectors = srvr.CreateThreadSafeMap ' commandsMap = srvr.CreateThreadSafeMap commandsMap.Initialize con.Initialize("DB1") 'Inicializamos el default de config.properties Connectors.Put("DB1", con) srvr.Port = con.serverPort listaDeCP.Add("DB1") cpFiles = File.ListFiles("./") If cpFiles.Size > 0 Then Log(cpFiles) For i = 0 To cpFiles.Size - 1 If cpFiles.Get(i) = "config.DB2.properties" Then Dim con As RDCConnector con.Initialize("DB2") Connectors.Put("DB2", con) listaDeCP.Add("DB2") End If If cpFiles.Get(i) = "config.DB3.properties" Then Dim con As RDCConnector con.Initialize("DB3") Connectors.Put("DB3", con) listaDeCP.Add("DB3") End If If cpFiles.Get(i) = "config.DB4.properties" Then con.Initialize("DB4") Connectors.Put("DB4", con) listaDeCP.Add("DB4") End If Next End If ' con.Initialize("DB1") 'Inicializamos el default de config.properties ' Connectors.Put("DB1", con) ' srvr.Port = con.serverPort srvr.AddHandler("/test", "TestHandler", False) srvr.AddHandler("/manager", "Manager", False) srvr.AddHandler("/*", "DB1Handler", False) srvr.AddHandler("/db1", "DB1Handler", False) srvr.AddHandler("/DB1", "DB1Handler", False) srvr.AddHandler("/db2", "DB2Handler", False) srvr.AddHandler("/DB2", "DB2Handler", False) srvr.AddHandler("/db3", "DB3Handler", False) srvr.AddHandler("/DB3", "DB3Handler", False) srvr.AddHandler("/db4", "DB4Handler", False) srvr.AddHandler("/DB4", "DB4Handler", False) srvr.Start Log("===========================================================") Log($"-=== jRDC is running on port: ${srvr.port} (version = $1.2{VERSION}) ===-"$) Log("===========================================================") StartMessageLoop End Sub