verifica connessione

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:

Codice: [Seleziona]

message.error("NON C'E CONNESSIONE")

grazie ancora

[fsurfing]

prendendo spunto (copiando) da meteomachine e da bashare poi fare così:

Codice: [Seleziona]

  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

[Ceskho]

Oppure fai come faccio io....

Senza abilitare componenti aggiuntivi usi

Codice: [Seleziona]

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.

[giulio]

Oppure:

SHELL "ping google.it -c1 -W10" WAIT

IF Process.LastValue <> 0 then Message.Error(etc etc)