Italian B4J - Connessione Internet

[marco.canta]

Buongiorno, sto realizzando un programma magazzino in B4j, ho la necessita di verificare se quando va in esecuzione il programma è presente la connessione internet, e eseguire degli aggiornamenti.

Ho cercato du tutto il forum e ho fatto diverse prove, ma nulla, non sono riuscito ad arrivare a nulla di funzionante.

Quello che ho fatto è il seguente, ma non sempre mi da un risultato veritiero.

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Dim Login As HttpJob
    Dim Respo As HttpResponse
   
    Dim Res As Int
    Private Button1 As Button
    Private Label1 As Label
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
   
    Login.Initialize("L",Me)

    ' wait 1 secondo
End Sub

Sub Button1_MouseClicked (EventData As MouseEvent)
    Login.Download("http://www.google.it")
   
    Label1.Text = Login.Success

End Sub

Qualche suggerimento o aiuto ?

Grazie Marco

 

[LucaMs]

Ti dà risultati inaffidabili perché devi attendere che il download (o il tentativo) sia completato, invece imposti il valore della label subito dopo aver inviato il comando.


Libreria JHttpUtils2

' Process_Globals
    Private hjTestConn As HttpJob
    Private lblTestConn As Label

' AppStart
    hjTestConn.Initialize("TestConn", Me)
    hjTestConn.Download("http://www.google.it")


Sub JobDone (Job As HttpJob)
    If Job.JobName = "TestConn" Then
        If Job.Success = True Then
            lblTestConn.Text = "Connesso"
        Else
            lblTestConn.Text = "Non connesso"
        End If
    End If
End Sub

 

[marco.canta]

Grazie Luca, ora funziona tutto !!!