Android Question Read data from a url

[bixmatech]

Dear,
I want to read data from a text file in a url, how to do that?

 

[bixmatech]

Dear my friend,
In the post #7: https://www.b4x.com/android/forum/threads/read-data-from-a-url.85118/#post-539193 You told me to updeate or create it in the old style
I've replied you in the post #8: https://www.b4x.com/android/forum/threads/read-data-from-a-url.85118/#post-539194, and told you it worked, and I've wrote the code which it worked, and as the Wait will not work until updating the B4A then it is clear that I've updated it right?

 

[bixmatech]

my problem is that i want the checkinternet function to finish completely and update the variable ConnexioInternet before the if ConnexioInternet statement execute, got me?

 

[NJDude]

If you want a sync way, then you will have to handle it yourself, read THIS

 

[bixmatech]

If you want a sync way, then you will have to handle it yourself, read THIS

Any clear code on how to do that? as I am completely new to basic

 

[NJDude]

Just modify the code you have in post #8.

 

[bixmatech]

Do you mean modifying it like this? if yes it didnt work

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim ConnexioInternet As String
    Dim no_intenet As String = "<center><h1>No Internet</h1></center>"
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")
  
    Dim myw As WebView
    myw.Initialize("myw")
    Activity.AddView(myw, 0, 0, 100%x, 100%y) 'Your options for size here
    Log("Will check internet now")
    CheckInternet
    If ConnexioInternet = "value is 5" Then
        Log("Internet: 1")
        myw.LoadUrl("http://www.stackoverflow.com")
    Else
        Log("Internet: 0")
        myw.LoadUrl($"no_internet"$)
    End If
End Sub

Sub CheckInternet
    Dim j As HttpJob
    j.Initialize("JobA", Me)
    j.Download("http://bixma.com/test_value.txt")
    Wait For (j) JobDone(j As HttpJob)
   
    Select j.JobName
        Case "JobA"
            If j.Success Then
                ConnexioInternet = j.GetString
                Log(ConnexioInternet)
            End If
    End Select
   
    j.Release
End Sub

 

[OliverA]

Don't use a separate 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")
  
    Dim myw As WebView
    myw.Initialize("myw")
    Activity.AddView(myw, 0, 0, 100%x, 100%y) 'Your options for size here
    Log("Will check internet now")
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("http://bixma.com/test_value.txt")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        ConnexioInternet = j.GetString
        Log(ConnexioInternet)
    End If
    j.Release
    If ConnexioInternet = "value is 5" Then
        Log("Internet: 1")
        myw.LoadUrl("http://www.stackoverflow.com")
    Else
        Log("Internet: 0")
        myw.LoadUrl($"no_internet"$)
    End If
End Sub

 

[bixmatech]

This is not logical, as if i have 100 buttons in the app and i want to check internet , then i have to write the code 100 time. lol

 

[OliverA]

This is not logical

Then I'm just going to leave you with this: (https://www.b4x.com/android/forum/threads/b4x-resumable-subs-that-return-values-resumablesub.82670/)