PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 2024 → Test réseau avec Windev 10 Mobile
Test réseau avec Windev 10 Mobile
Débuté par Patrick Catella, 14 nov. 2006 10:24 - 11 réponses
Posté le 14 novembre 2006 - 10:24
Bonjour.

Comment tester la présence du réseau sous Windev Mobile 10. Ping n'est pas utulisable en Mobile. Comment puis je faire ?

Merci.
Posté le 14 novembre 2006 - 11:34
avec les sockets ????
Posté le 14 novembre 2006 - 11:40
Bonjour,
Voici la fonction que j'utilise, pour vérifier que la connection réseau est montée:
TANTQUE bTrtOk = Faux ET NbrEssai < 10
bTrtOk = NetAdresseIP() <> "" ET NetAdresseIP() <> "127.0.0.1"
NbrEssai++
SI PAS bTrtOk ALORS
Multitâche(100 * NbrEssai)
FIN
FIN

Frédéric.
Posté le 14 novembre 2006 - 15:44
Ta méthode ne me semble bonne que lors du démarrage...

En effet, quand le portable perd le réseau, il conserve son adresse IP.
Posté le 14 novembre 2006 - 15:55
Les sockets.... euh...

Je sais pas m'en servir. Cela nécessite un programme qui tourne en permanence sur le serveur non ?

Sinon je vois pas trop...
Posté le 14 novembre 2006 - 17:10
C'est ce que j'utilise pour vérifier que la connection WiFi fonctionne. Sur des WorkAboutPro, dès que la connection WiFi est interrompue, l'interface réseau associée n'est plus listée.
Je viens de faire le test, et en fonctionnement, si je coupe l'accès Wifi, la procédure de recherche se lance bien (il faut juste le temps que la carte WiFi se rende compte que le point d'accès n'est plus là).

Fred.
Posté le 15 novembre 2006 - 14:45
Moi j'utilise effectivement les Sockets (via une procédure tourvée sur le Net)
ça fonctionne pas mal.


PROCEDURE gProc_SmartPing(_AdresseIP,_Port€ )
//Simulation d'un Ping sous Windows Mobile.
//On en profite pour proposer un port spécifique.
//Ouverture d'une socket sur le port spécifique
Sablier()
SI PAS SocketConnecte("Ping",_Port,_AdresseIP, 4000) ALORS
Sablier(False)
IF EnModeTest() THEN Error(ErreurInfo())
RESULT False
ELSE
SocketFerme("Ping")
Sablier(False)
IF EnModeTest() THEN Info("Connection Ok")
RESULT True
FIN
Posté le 16 novembre 2006 - 11:37
Eh bien tu as de la chance car sur un Falcon 42xx ça ne marche pas. L'adresse ip reste.

Merci quand même
Posté le 16 novembre 2006 - 11:38
Bonjour.

Oui bien mais j'arrive a rien encore...

Comme adresse IP j'ai mis celle d'un serveur windows 2000 sur laquelle devrait figurer ma base.

Sur le serveur il faut faire quoi ?

Merci.
Posté le 16 novembre 2006 - 14:45
Il suffit qu'un IIS/Apache tourne, et tu essaies de te connecter sur le port 80. Si tu as un serveur FTP, tu peux aussi essayer avec le port 21.

Frédéric.
Posté le 17 novembre 2006 - 11:12
Bonjour.

J'ai donc utilisé la fonction de JulianO.

J'ai une proczdure automatique qui vient me griser la fenetre en cours lors de la sortie de la couverture réseau. Cela fonctionne trrès bien.

Juste un bémol : Dommage que la fonction soit si longue à répondre quand le réseau est HS.

Merc i à tous
Posté le 24 novembre 2006 - 07:38
Bonjour
Il existe un freeware sur PocketPC
Network Tools 1.0
il fait ping & trace route
pas testé mais peut répondre à ton besoin