Hi
I currently have an app which is a few years old now which works fine with RDC and was done with version 4.3 of B4A, I needed to upgrade it to provide more functionality so thought I would use the new JRDC2 functionality, however I'm having a few issues.. the server side is fine, I can test the connection is open and running via my browser, but the client just crashes out all the time sometime after SendJob (DbRequestManager) has been called.. and never actually connects to the JRDC server
In attempt to identify the problem I reverted back to a very simple test app.. see below.. which has the same issue.. any indicators as to the problem would be greatly appreciated (note: I have just changed the <myipaddress> rather than show actual ip)
these are the libraries used:
I currently have an app which is a few years old now which works fine with RDC and was done with version 4.3 of B4A, I needed to upgrade it to provide more functionality so thought I would use the new JRDC2 functionality, however I'm having a few issues.. the server side is fine, I can test the connection is open and running via my browser, but the client just crashes out all the time sometime after SendJob (DbRequestManager) has been called.. and never actually connects to the JRDC server
In attempt to identify the problem I reverted back to a very simple test app.. see below.. which has the same issue.. any indicators as to the problem would be greatly appreciated (note: I have just changed the <myipaddress> rather than show actual ip)
B4X:
Sub Process_Globals
Dim reqManager As DBRequestManager
Type DBResult (Tag As Object, Columns As Map, Rows As List)
Type DBCommand (Name As String, Parameters() As Object)
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
'reqManager.Initialize(Me, "http://192.168.0.100:1")
reqManager.Initialize(Me, "http://<myIPAddress>:3013/rdc")
End If
End Sub
Sub Activity_Click
GetAnimal("1")
End Sub
Sub GetAnimal(Name As String)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_animal"
cmd.Parameters = Array As Object(Name)
reqManager.ExecuteQuery(cmd, 0, Null)
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success = False Then
Log("Error: " & Job.ErrorMessage)
Else
If Job.JobName = "DBRequest" Then
reqManager.HandleJobAsync(Job, "ReqManager")
End If
End If
Job.Release
End Sub
Sub ReqManager_Result(result As DBResult)
'work with result
End Subthese are the libraries used: