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.14 '########################################################################################################### '###################### 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 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.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 ' Si existe el archivo DB2, lo usamos. Dim con As RDCConnector con.Initialize("DB2") Connectors.Put("DB2", con) listaDeCP.Add("DB2") End If If cpFiles.Get(i) = "config.DB3.properties" Then ' Si existe el archivo DB3, lo usamos. Dim con As RDCConnector con.Initialize("DB3") Connectors.Put("DB3", con) listaDeCP.Add("DB3") End If If cpFiles.Get(i) = "config.DB4.properties" Then ' Si existe el archivo DB4, lo usamos. con.Initialize("DB4") Connectors.Put("DB4", con) listaDeCP.Add("DB4") End If Next End If srvr.AddHandler("/test", "TestHandler", False) ' Agrega un manejador a la ruta "/test", asignando las solicitudes a la clase TestHandler, el último parámetro indica si el manejador debe ejecutar en un nuevo hilo (False en este caso) srvr.AddHandler("/manager", "Manager", False) srvr.AddHandler("/*", "DB1Handler", False) ' Si no se especifica una base de datos, entonces asignamos la solicitud a la DB1. 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