...

B4A/DBRequestManager.bas

@@ -41,6 +41,7 @@ Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object)
 	WriteList(Command.Parameters, out2)
 	out2.Close
 	j.PostBytes(link & "?method=query", ms.ToBytesArray)
+	j.GetRequest.Timeout = 10000 'timeout del request (10 segs)
 End Sub
 
 'Executes a batch of (non-select) commands.
@@ -188,7 +189,7 @@ End Sub
 
 'Handles the Job result and returns a DBResult.
 Public Sub HandleJob(Job As HttpJob) As DBResult
-	Dim start As Long = DateTime.Now
+'	Dim start As Long = DateTime.Now
 	Dim In As InputStream = Job.GetInputStream
 	Dim cs As CompressedStreams
 	In = cs.WrapInputStream(In, "gzip")