I created a class that has a method inside which is resumable sub.
If I insert the class code on one of my applications it works perfectly. If I compile it as a library and insert it into the same Application it generates this error
My app source is the same and calls the class in the same way
This is roughly the content of the method
If instead of as a library I insert it as a class everything works correctly.
If I insert the class code on one of my applications it works perfectly. If I compile it as a library and insert it into the same Application it generates this error
My app source is the same and calls the class in the same way
B4X:
Private Sub ButtonConnect_Click
MyClient.Initialize
Wait For (MyClient.Connect(TextField1.Text,TextField2.Text,TextField3.Text,TextField4.Text,MyBoolean)) Complete (Success As Boolean)
Here it generates the error without even entering the sub. I put a log at the beginning of the sub and it doesn't even appear.
log(Success)
End SubThis is roughly the content of the method
B4X:
Public Sub Connect(S1 As String,S2 As String, S3 As String, S4 As String, MyBool As String) As ResumableSub
Log("First") ' This log does not even appear
client.Initialize("",Me)
client.Download("https://www.myserver.xx")
client.GetRequest.SetHeader("User-Agent","Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.119 Safari/537.36")
Wait For (client) JobDone(j As HttpJob)
if j.success=False then return False
Log("Second pass")
client.Download("https://www.myserver.xx/second/")
client.GetRequest.SetHeader("User-Agent","Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.119 Safari/537.36")
Wait For (client) JobDone(j As HttpJob)
if j.success=False then return False
Return true
End SUbIf instead of as a library I insert it as a class everything works correctly.
Last edited:
