B4A Library [B4X][B4XLib] B4XCheckInternetLM

LucaMs · Aug 22, 2021

Very simple cross-platform library to test if an Internet connection is active.

It has only one method, Check:

B4X:

Public CheckInternet As B4XCheckInternetLM

Wait For (CheckInternet.Check(True)) Complete(Result As Boolean)
If Result Then
'
Else
'
End If

Set the DialogToo parameter to False if you just want to test the presence of an active Internet connection, to True if you want to show a B4XDialog that gives the user time to activate one or "abort" the operation.

To test, the library downloads the page https://google.com. A different address can be set via the URL property.

It exposes the properties for the B4XDialog texts:

DlgTitle
DlgMsg
DlgYesText
DlgCancelText

and the B4XDialog itself, so you can change its appearance.

Library and B4XPages example attached.

V. 1.10
Added an indispensable property to set the Root of the current B4XPages open (name: ParentView)

I am also attaching a second example, which has two B4XPages, just to show that the new property is indispensable and how to use it.

LucaMs · Aug 22, 2021

V. 1.10
(read the first post)

LucaMs · Aug 23, 2021

I had added the handy "copy & paste" code in the Check method comment... it is gone ?

I'll put it back.

bobbruns · Sep 11, 2021

Could not get this to work with B4i. Both my local server and the hosted server failed. Basic algorithm worked fine, and pasting it in place ok, but the library did not work.
I cannot find the dependant library iOkHttpUtils2

got this:
ld: library not found for -liOkHttpUtils2
clang: error: linker command failed with exit code 1 (use -v to see invocation)

Error: ** BUILD FAILED **

LucaMs · Sep 11, 2021

bobbruns said:
I cannot find the dependant library iOkHttpUtils2

Sorry, I don't have B4i and I assumed that the name of the library analogous to OKHttpUtils2 and jOKHttpUtils2 was iOKHttpUtils2 (strange that I didn't search!) instead for B4i it is still HttpUtils2.

Fixed.

bobbruns · Sep 11, 2021

Thanks.

Erel · Sep 12, 2021

LucaMs said:
still HttpUtils2

It is iHttpUtils2

LucaMs · Sep 12, 2021

Erel said:
It is iHttpUtils2

Thanks. Fixed.

bobbruns · Sep 12, 2021

I used the following, lifted almost exactly from this library:

B4X:

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    Wait For(checkinternet) complete(Result As Boolean)
    Log("result: " & Result)
End Sub

Private Sub checkinternet() As ResumableSub
    Dim URL As String = "https://www.google.com"
    Dim result As Boolean = False
    Dim Job As HttpJob
    Job.Initialize("Job", Me)
    Job.Download(URL)
    Wait For(Job) JobDone(Job As HttpJob)
    result = Job.Success
    Job.Release
    Return result
End Sub

Disadvantage of this method:
uses more bandwidth

Advantage of this method:
By changing the URL, I can check whether an older device can connect to the server of my choice. I am particularly worried about migration to newer TLS certificate standards where ipad production/OS version may have preceeded the development of the standard in use. (I know just throw that old ipad/tab away!) People keep their old devices far too long, and I don't want to get the phone call where they blame my app for their inability to connect to a TLS1.2 encrypted page.

LucaMs · Sep 12, 2021

bobbruns said:
Advantage of this method:
By changing the URL

LucaMs said:
A different address can be set via the URL property.

B4A Library [B4X][B4XLib] B4XCheckInternetLM

Attachments

LucaMs

Expert

LucaMs

Expert

bobbruns

Member

LucaMs

Expert

bobbruns

Member

Erel

B4X founder

LucaMs

Expert

bobbruns

Member

LucaMs

Expert

Similar Threads

B4A Library [B4X][B4XLib] B4XCheckInternetLM

Attachments

Expert

Expert

Member

Expert

Member

B4X founder

Expert

Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency