WM FinProgramme() sous iOs ?!

Bonjour à tous, je rencontre un petit souci sous iOs.

Sous Android, je lance un test au démarrage de l'appli pour vérifier qu'il y a une connexion internet active, si non, je fais quitter mon appli.

Code (Text):

SI EnModeTest() = Faux  ALORS
    SI InternetConnecté() = Faux ALORS
        TitreSuivant("Attention !")
        Info("Vous devez être connecté à un réseau GSM ou WIFI")
        FinProgramme()
    FIN
FIN

FinProgramme() sous iOs n'existe pas et du coup si je le remplace par RETOUR, j'obtiens bien le message au lancement mais un plantage derrière car il tente quand même d'exécuter les requêtes de ZR.

Avec une idée pour le traitement n'aille pas plus loin ?

Merci pour votre aide.

 

Salut

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

et merci pour ta réponse mais ça peut pas fonctionner car mon code est dans l'initialisation du projet avant qu'une fenêtre soit ouverte.

J'rai trouvé une solution "provisoire" je déclenche une variable sur 1 si connexion ok et 0 si pas ok et après je fais un si 1 alors en calcul ... C'est hyper chiant car je suis obligé de modifier tout mon code.

 

Bon visiblement il n'y a pas vraiment de solution avec iOs vu que la commande FinProgramme() n'est pas autorisé sous iOs et que le commande ferme(p implique qu'au moins une fenêtre soit ouverte, alors j'ai trouvé une solution "provisoire" en attendant une solution plus pérenne.

Dans l'initialisation de mon projet j'insère ceci :

Code (Text):

Cnx_HFSQL est une Connexion
Cnx_HFSQL..Provider = hAccèsHFClientServeur
Cnx_HFSQL..Utilisateur = "XXXX"
Cnx_HFSQL..MotDePasse = "XXXX"
Cnx_HFSQL..Serveur = "SERVEUR:PORT"

VAR_CONNEXIONRESO est un entier

/// Je teste la connexion à internet
SI InternetConnecté() = Faux ALORS
    VAR_CONNEXIONRESO=0
    TitreSuivant("Attention !")
    Info("Vous devez être connecté à un réseau GSM ou WIFI")
SINON
    // Je teste la connexion à mon serveur de base
    SI HOuvreConnexion(Cnx_HFSQL) = Faux ALORS
        VAR_CONNEXIONRESO=0
        TitreSuivant("Attention !")
        Info("Le serveur est injoignable, merci de retenter plus tard")
      SINON
        VAR_CONNEXIONRESO=1
        NotifPushProcédure(RéceptionNotifPush)
        SI ExeInfo(exeLancement) <> exeNotificationPush  ALORS
            NotifPushActive(ActivationNotifPush)
        FIN
     FIN
FIN

Dans le code de [Mise au premier plan] du projet

Code (Text):

SI InternetConnecté() = Vrai ET HOuvreConnexion(Cnx_HFSQL)=Vrai ALORS
    VAR_CONNEXIONRESO=1
 SINON
    VAR_CONNEXIONRESO=0
FIN

Puis dans le traitement de l'appel aux bases des différents traitement

Code (Text):

SI VAR_CONNEXIONRESO=1 ALORS
TRAITEMENT
FIN

Sujet clos en attendant d'avoir mieux ...