Android Question Resumable sub HELP!!!!

Ale_resource said:

B4X:

Sub StartConnection As ResumableSub
    Funzioni.ScriviLog("Trying to connect to: " & Funzioni.ip)
    CloseExistingConnection
    clientSocket.Initialize("clientSocket")
    clientSocket.Connect(Funzioni.ip, Funzioni.port, 8000)
    Wait For ClientSocket_Connected (Successful As Boolean)
    If Successful Then
        Funzioni.ScriviLog("Connect a " & Funzioni.ip)
        'AStreams1.InitializePrefix(clientSocket.InputStream, False, clientSocket.OutputStream, "astreams1")
        AStreams1.Initialize(clientSocket.InputStream, clientSocket.OutputStream, "astreams1")
        Return True
    Else
        Funzioni.ScriviLog("Error Connection : " & LastException)
        Return False
    End If
End Sub

B4X:

dim c as Custom
c.Initialize
Wait For(c.StartConnection) Complete (Result As Boolean)
If Result = True Then
     'go ahead with command execution
Else
    'I have to repeat the sub StartConnection
End If

Hi, I have this sub which I then call this way, how do I repeat the command n times in case of a false result?

Click to expand...

Ale_resource said:

Any Help Please ??!!

Click to expand...

Erel said:

I would change it a bit:

B4X:

Dim N As Int = 0
Dim MaxN As Int = 5


Do While N<MaxN
Dim c As Custom 'safer to start clean.
c.Initialize
  Wait For(c.StartConnection) Complete (Result As Boolean)
  If Result = True Then
     'go ahead with command execution
     N=MaxN+1
  Else
     Sleep(500) 'or more
    'I have to repeat the sub StartConnection
    N=N+1
  End If
Loop

Click to expand...