Spanish jrdc2 con B4J

java.net.SocketTimeoutExcepcyion.connect timed Out

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Type DBCommand (Name As String, Parameters() As Object)
Private rdcLink As String = "http://192.168.0.2:10199/rdc"
End Sub

#Region  Project Attributes 
 #ApplicationLabel: B4A Example
 #VersionCode: 1
 #VersionName: 
 'SupportedOrientations possible values: unspecified, landscape or portrait.
 #SupportedOrientations: unspecified
 #CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes 
 #FullScreen: False
 #IncludeTitle: True
#End Region
Sub Process_Globals
 'These global variables will be declared once when the application starts.
 'These variables can be accessed from all modules.
 Type DBResult (Tag As Object, Columns As Map, Rows As List)
 Type DBCommand (Name As String, Parameters() As Object)
 Private rdcLink As String = "http://192.168.0.2:10199/rdc"
End Sub
Sub Globals
 'These global variables will be redeclared each time the activity is created.
 'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
 'Do not forget to load the layout file created with the visual designer. For example:
 'Activity.LoadLayout("Layout1")
  testconnection

End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub testconnection
 Wait For (GetRecord(25)) Complete (result As DBResult)
 If result = Null Then
 Msgbox("SIN CONEXION","ERR")
 Return
 End If
 Log(result.Rows.Size)
 
 If result.Rows.Size > 0 Then
 Dim r() As String = result.Rows.Get(0)
 Log(r(0))
 End If
End Sub
Sub CreateRequest As DBRequestManager
 Dim req As DBRequestManager
 req.Initialize(Me, rdcLink)
 Return req
End Sub
Sub CreateCommand(Name As String, Parameters() As Object) As DBCommand
 Dim cmd As DBCommand
 cmd.Initialize
 cmd.Name = Name
 cmd.Parameters = Parameters
 Return cmd
End Sub
Sub GetRecord (id As Int) As ResumableSub
 Dim req As DBRequestManager = CreateRequest
 Dim cmd As DBCommand = CreateCommand("create_table", Null)
 'req.ExeucteQuery returns a HttpJob. The returned HttpJob is used as the sender filter.
 Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
 If j.Success Then
 req.HandleJobAsync(j, "req")
 Wait For (req) req_Result(res As DBResult)
 'work with result
' req.PrintTable(res)
 Return res
 Else
 Msgbox(j.ErrorMessage,"eRR") ' Log("ERROR: " & j.ErrorMessage)
 End If
 j.Release
 Dim res As DBResult = Null
 Return res
End Sub
Sub InsertRecord (Name As String)
 Dim cmd As DBCommand = CreateCommand("insert_animal", Array(Name, Null))
 Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
 Wait For(j) JobDone(j As HttpJob)
 If j.Success Then
 Log("Inserted successfully!")
 End If
 j.Release
End Sub

#Lines starting with '#' are comments.
#Backslash character at the end of line means that the command continues in the next line.
#DATABASE CONFIGURATION
DriverClass=com.mysql.jdbc.Driver
JdbcUrl=jdbc:mysql://localhost/test?characterEncoding=utf8
User=root
Password=rgg1968
#Java server port
ServerPort=10199
#example of MS SQL Server configuration:
#DriverClass=net.sourceforge.jtds.jdbc.Driver
#JdbcUrl=jdbc:jtds:sqlserver://<server address>/<database>
#example of postegres configuration:
#JdbcUrl=jdbc:postgresql://localhost/test
#DriverClass=org.postgresql.Driver
#SQL COMMANDS
#sql.create_table=CREATE TABLE IF NOT EXISTS animals (\
#  id INTEGER PRIMARY KEY AUTO_INCREMENT,\
#  name CHAR(30) NOT NULL,\
#  image BLOB)
#sql.insert_animal=INSERT INTO animals VALUES (null, ?,?)
#sql.select_animal=SELECT name, image, id FROM animals
sql.create_table=CREATE TABLE article (col1 numeric(10,4) ,col2\ text);
sql.select=select * from article
sql.insert=INSERT INTO article VALUES(?, ?)

Sub GetRecord (id As Int) As ResumableSub
 Dim req As DBRequestManager = CreateRequest
 Dim cmd As DBCommand = CreateCommand("create_table", Null)
 'req.ExeucteQuery returns a HttpJob. The returned HttpJob is used as the sender filter.
 Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)

En Config
JdbcUrl=jdbc:mysql://localhost/kreagestion?characterEncoding=utf8

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Type DBCommand (Name As String, Parameters() As Object)

que se pone aquí Según Config 
Private rdcLink As String = "http://192.168.0.2:10199/rdc"
0
Private rdcLink As String = "http://192.168.0.2:10199/kreagestion"

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
testconnection

End Sub
Sub Activity_Resume
End Sub
[/CODE ]

sigo con timeout

sql.select=select * from article

#Lines starting with '#' are comments.
#Backslash character at the end of line means that the command continues in the next line.
#DATABASE CONFIGURATION
DriverClass=com.mysql.jdbc.Driver
JdbcUrl=jdbc:mysql://localhost/kreagestion?characterEncoding=utf8
User=krea
Password=rgg1968
#Java server port
ServerPort=10199
#example of MS SQL Server configuration:
#DriverClass=net.sourceforge.jtds.jdbc.Driver
#JdbcUrl=jdbc:jtds:sqlserver://<server address>/<database>
#example of postegres configuration:
#JdbcUrl=jdbc:postgresql://localhost/test
#DriverClass=org.postgresql.Driver
#SQL COMMANDS
#sql.create_table=CREATE TABLE IF NOT EXISTS animals (\
#  id INTEGER PRIMARY KEY AUTO_INCREMENT,\
#  name CHAR(30) NOT NULL,\
#  image BLOB)
#sql.insert_animal=INSERT INTO animals VALUES (null, ?,?)
#sql.select_animal=SELECT name, image, id FROM animals
#sql.create_table=CREATE TABLE article (col1 numeric(10,4) ,col2#\ text)
#sql.insert=INSERT INTO article VALUES(?, ?)

Esta es una tabla verdadera de kreagestion

sql.select_vend=select * from vendedores


ASI QUEDO EL CONFIG:
AFECTA en la query Mayúsculas o da lo mismo

Código Cliente


#Region  Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Type DBCommand (Name As String, Parameters() As Object)
Private rdcLink As String = "http://192.168.0.2:10199/rdc"
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
  testconnection
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub testconnection
Wait For (GetRecord(25)) Complete (result As DBResult)
If result = Null Then
Msgbox("SIN CONEXION","ERR")
Return
End If
Log(result.Rows.Size)

If result.Rows.Size > 0 Then
Dim r() As String = result.Rows.Get(0)
Log(r(0))
End If
End Sub
Sub CreateRequest As DBRequestManager
Dim req As DBRequestManager
req.Initialize(Me, rdcLink)
Return req
End Sub
Sub CreateCommand(Name As String, Parameters() As Object) As DBCommand
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = Name
cmd.Parameters = Parameters
Return cmd
End Sub
Sub GetRecord (id As Int) As ResumableSub
Dim req As DBRequestManager = CreateRequest
Dim cmd As DBCommand = CreateCommand("select_vend", Null)
'req.ExeucteQuery returns a HttpJob. The returned HttpJob is used as the sender filter.
Wait For (req.ExecuteQuery(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
'work with result
req.PrintTable(res)
Return res
Else
Msgbox(j.ErrorMessage,"eRR") ' Log("ERROR: " & j.ErrorMessage)
End If
j.Release
Dim res As DBResult = Null
Return res
End Sub
Sub InsertRecord (Name As String)
Dim cmd As DBCommand = CreateCommand("insert_animal", Array(Name, Null))
Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
Log("Inserted successfully!")
End If
j.Release
End Sub

  CODIGO SERVIDOR

Sub AppStart (Args() As String)
srvr.Initialize("")
rdcConnector1.Initialize
srvr.Port = rdcConnector1.serverPort
srvr.AddHandler("/kreagestion", "TestHandler", False)
srvr.AddHandler("/rdc", "RDCHandler", False)
srvr.Start
Log($"jRDC is running (version = $1.2{VERSION})"$)
StartMessageLoop
End Sub