Ciao.. nel tempo libero sto continuando lo sviluppo del programma per lo streaming di canali televisivi..
ora vi chiedo, all'avvio del prog, vorrei verificare che la connessione sia veramente attiva... come fare?
se è attiva deve avviarsi il programma normalmente, in caso contrario deve apparire:
message.error("NON C'E CONNESSIONE")
grazie ancora
prendendo spunto (copiando) da meteomachine e da bashare poi fare così:
DIM h AS HttpClient
h = NEW HttpClient AS "h"
h.URL = "http://www.google.it"
h.Async = FALSE
h.Timeout = 60
h.Get
IF h.Status < 0 THEN
Message.Error("nessuna connessione internet attiva", "ok")
h.Close()
RETURN
ELSE
''routine da effettuare in presenza della connessione
Message.Info("connessione ok", "ok")
'fine routine da effettuare
h.close
END IF
END
per funzionare devi abilitare i l componente gb.net.curl e gb.net
Oppure fai come faccio io....
Senza abilitare componenti aggiuntivi usi
SHELL "ping -c 4 www.google.it" to controllo
IF Len(controllo) = 0 THEN
Messagge.Error("tuo messaggio")
ELSE
Avvia programma
END IF
Penso che il codice non ha bisogno di spiegazioni poichè è intuitivo.