PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV Mobile 2025 → peut on savoir une connexion GPRS est déja active ?
peut on savoir une connexion GPRS est déja active ?
Iniciado por s.brackez, 07,feb. 2006 16:20 - 5 respuestas
Publicado el 07,febrero 2006 - 16:20
Voila tout est dans le titre....
avant de lancer une connexion GPRS j'aimerais savoir si on est déja connecté au net sur le pocket...
car parfois certains utilitaires sur mon pocket ouvre déja une connexion GPRS,
ce qui plante mon appli si j'essaye d ouvrir la connexion...

merci
Publicado el 08,febrero 2006 - 07:00
Dans nos applications GPRS, nous tentons d'abord une connexion au serveur.
Si cette connexion échoue, alors nous lançons le Netconnecte "GRPS", et nous re-tentons la connexion au serveur.
Jusqu'ici cela nous a donné entière satisfaction.
Publicado el 08,febrero 2006 - 09:54
Merci Nicolas,
bon je vais donc utiliser la meme astuce !
Publicado el 15,febrero 2006 - 14:58
Salut,
Voici une fonction que j'utilise pour ça !
Si ça peut t'aider...

Désolé pour le copié-collé ! Il va falloir réindenter!
====================
PROCEDURE TestConnexionGPRS()

hRasConn est un entier = Faux

stRASCON est une structure

nSize est un entier

hRasConn est un entier

szEntryName est un tableau fixe de 21 caractères

sfiller est un entier sur 2

FIN

stRASCONNSTATUS est une structure

nSize est un entier

nrasconnstate est un entier //RASCONNSTATE (enum)

nError est un entier

szDeviceType est un tableau fixe de 17 caractères

szDeviceName est un tableau fixe de 129 caractères

FIN

RASCON est un tableau de 1 stRASCON

i,j,lCb est un entier

lConNb est un entier

nRes est un entier

ch est une chaîne

SI EnModeTest() ALORS

RENVOYER 0

FIN

// Récupération d'au plus une connexion

RASCON[1]:nSize=Dimension(RASCON[1])

//info("RASCON[1]:nSize="+RASCON[1]:nSize)

lCb=Dimension(RASCON)*Dimension(RASCON[1])

//info("lCb="+lCb)

RASCONNSTATUS est un stRASCONNSTATUS

RASCONNSTATUS:nSize=Dimension(RASCONNSTATUS)

nRes=API("coredll","RasEnumConnections",&RASCON,&lCb,&lConNb)

SELON nRes

CAS 0:

nRes=API("coredll","RasGetConnectStatus",RASCON[1]:hRasConn,&RASCONNSTATUS)

SI nRes=0 ALORS

SI RASCONNSTATUS:nrasconnstate=0x2000 ALORS

hRasConn = RASCON[1]:hRasConn

FIN

FIN

CAS 8:

Erreur("Not enough memory 1")

AUTRES CAS:

// erreur(" Error n°"+nRes)

FIN

RENVOYER hRasConn
Publicado el 15,febrero 2006 - 16:17
Pour info,

CTRL + R pour réindenter automatiquement sous Windev :-)

Petit bug tout de même lors de l'utilisation des ...

"José IANEZ" <jianez@bisico.fr> a écrit dans le message de news:
43f322ed@news.pcsoft.fr...

Salut,
Voici une fonction que j'utilise pour ça !
Si ça peut t'aider...

Désolé pour le copié-collé ! Il va falloir réindenter!
====================
PROCEDURE TestConnexionGPRS()

hRasConn est un entier = Faux

stRASCON est une structure

nSize est un entier

hRasConn est un entier

szEntryName est un tableau fixe de 21 caractères

sfiller est un entier sur 2

FIN

stRASCONNSTATUS est une structure

nSize est un entier

nrasconnstate est un entier //RASCONNSTATE (enum)

nError est un entier

szDeviceType est un tableau fixe de 17 caractères

szDeviceName est un tableau fixe de 129 caractères

FIN

RASCON est un tableau de 1 stRASCON

i,j,lCb est un entier

lConNb est un entier

nRes est un entier

ch est une chaîne

SI EnModeTest() ALORS

RENVOYER 0

FIN

// Récupération d'au plus une connexion

RASCON[1]:nSize=Dimension(RASCON[1])

//info("RASCON[1]:nSize="+RASCON[1]:nSize)

lCb=Dimension(RASCON)*Dimension(RASCON[1])

//info("lCb="+lCb)

RASCONNSTATUS est un stRASCONNSTATUS

RASCONNSTATUS:nSize=Dimension(RASCONNSTATUS)

nRes=API("coredll","RasEnumConnections",&RASCON,&lCb,&lConNb)

SELON nRes

CAS 0:

nRes=API("coredll","RasGetConnectStatus",RASCON[1]:hRasConn,&RASCONNSTATUS)

SI nRes=0 ALORS

SI RASCONNSTATUS:nrasconnstate=0x2000 ALORS

hRasConn = RASCON[1]:hRasConn

FIN

FIN

CAS 8:

Erreur("Not enough memory 1")

AUTRES CAS:

// erreur(" Error n°"+nRes)

FIN

RENVOYER hRasConn

Publicado el 16,febrero 2006 - 17:28
Oui je connais le CTRL+R mais là c'est le collage dans Outlook Express qui
déconne!