iOS Question how to get WanIP using b4i

[Markos]

Hi All,

is it possible to get the WAN IP in b4i?

 

[Erel]

You will need to use an external service for this.
Such as this one: https://www.ipify.org/

Cross platform code: depends on iHttpUtils2 / OkHttpUtils2 and Json libraries

'Returns an empty string if ip not available.
Private Sub FindExternalIp As ResumableSub
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("https://api.ipify.org?format=json")
    Wait For (j) JobDone(j As HttpJob)
    Dim ip As String = ""
    If j.Success Then
        ip = j.GetString.As(JSON).ToMap.Get("ip")
    Else
        Log(LastException)
    End If
    j.Release
    Return ip
End Sub

Usage:

Wait For (FindExternalIp) Complete (ip As String)
Log(ip)

 

[Markos]

Awesome thanks!