Ich kenne so direkt keinen. Aber ich weiss auch nicht ob man das nicht mit einer Lib erreichen kann.
Ansonsten würde ich wie folgt vorgehen:
- Ein kleines PHP-Script schreiben und das auf unseren Webspace laden
ping.php
- in meiner App einen http-Aufruf zu dieser Seite starten mittels httputils. Im JobDone käme als Result ja ein "OK" an und Jobsuccess wäre true. Wäre JobSuccess false dann gabs probleme und man sollte Job.ErrorMessage auswerten.
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
ToastMessageShow(Job.JobName&": " & res, True)
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub
Nachtrag. Erel hat eine ähnliche Methode mit "This is the most reliable way to test for a connection." betitelt. Siehe
hier.
Ich habe durch das "kleine" PHP-Script die verbrauchte Bandbreite auf ein geringes verkleinert da hier "nur" ein "OK" zurückgeliefert wird.
Fazit: Mein Ansatz (für den Fall dass ich vor dieser Problematik gestanden und dann wie oben beschrieben vorgegangen wäre) ist gar nicht so schlecht gewesen ;-)