|
| Started by no.spam, Apr., 24 2006 11:25 AM - 2 replies |
| |
| | | |
|
| |
Posted on April, 24 2006 - 11:25 AM |
j'essaye de faire communiquer mes 2 appli une WinDev 9 l'autre WinDev
Mobile 10 par socket pour cela je fais
******************** Windev : ***********************
- en global fenêtre :
CONSTANT
cteNomSocketEcoute = "SOCKET_ECOUTE"
ctePortEcoute = 5010
cteNomThreadEcoute = "THREAD_ECOUTE"
FIN
--------------------------------------------
- sur un bouton :
SocketCrée(cteNomSocketEcoute,ctePortEcoute,NetAdresseIP())
SI ErreurDétectée ALORS
Erreur("Création socket impossible.")
RETOUR
FIN
ThreadExécute(cteNomThreadEcoute,threadNormal,"EcouteConnexion")
----------------------------------------------
- procédure :
PROCEDURE EcouteConnexion()
szNomCanal est une chaîne
szNomThread est une chaîne
BOUCLE
SI SocketAttendConnexion(cteNomSocketEcoute) ALORS
szNomCanal = SocketAccepte(cteNomSocketEcoute)
SI szNomCanal ~= "" ALORS
Erreur("socket accepte",ErreurInfo())
SORTIR
SINON
szNomThread = szNomCanal
ThreadExécute(szNomThread,threadNormal,"GestionConnexion",szNomCanal)
FIN
FIN
FIN
-----------------------------------------------
PROCEDURE GestionConnexion(p_szNomConnexion)
szMessage est une chaîne
szNomThread est une chaîne = p_szNomConnexion
szIp est une chaîne =
SocketClientInfo(cteNomSocketEcoute,SocketAdresse)
BOUCLE
szMessage = SocketLit(cteNomSocketEcoute,Vrai)
SELON szMessage
CAS "QUITTER" : SORTIR
CAS "" : Multitache(-1)
AUTRES CAS : Info(UnicodeVersAnsi(szMessage))
FIN
FIN
SocketFerme(cteNomSocketEcoute)
------------------------------------------------
********************** WinDev Mobile : ********************
- en global fenêtre :
CONSTANTE
cteNomSocket = "SOCKET_CLIENT"
ctePortCnx = 5010
cteNomThreadReception = "THREAD_RECEPTION"
FIN
--------------------------------------------------
- sur un bouton:
SI PAS SocketConnecte(cteNomSocket,ctePortCnx,"192.168.0.1",1000) ALORS
Erreur("Connexion impossible",ErreurInfo())
FIN
Info("Socket connecté")
SI SocketExiste(cteNomSocket) ALORS
SI PAS SocketEcrit(cteNomSocket,"coucou") ALORS
Erreur("ecriture de la socket impossible")
FIN
FIN
--------------------------------------------------
donc il ne se passe rien sur le PC la socket est en attente et sur le
pocket elle est écrite, en fait le SocketConnecte sur le pocket n'a pas
l'air de fonctionné correctement
merci d'avance à qui pourra me venir en aide
--
Cordialement JeAn-PhI |
| |
| |
| | | |
|
| | |
| |
Posted on April, 24 2006 - 8:01 PM |
Le 24/04/2006, JeAn-PhI a supposé :
j'essaye de faire communiquer mes 2 appli une WinDev 9 l'autre WinDev
Mobile 10 par socket pour cela je fais
******************** Windev : ***********************
- en global fenêtre :
CONSTANT
cteNomSocketEcoute = "SOCKET_ECOUTE"
ctePortEcoute = 5010
cteNomThreadEcoute = "THREAD_ECOUTE"
FIN
--------------------------------------------
- sur un bouton :
SocketCrée(cteNomSocketEcoute,ctePortEcoute,NetAdresseIP())
SI ErreurDétectée ALORS
Erreur("Création socket impossible.")
RETOUR
FIN
ThreadExécute(cteNomThreadEcoute,threadNormal,"EcouteConnexion")
----------------------------------------------
- procédure :
PROCEDURE EcouteConnexion()
szNomCanal est une chaîne
szNomThread est une chaîne
BOUCLE
SI SocketAttendConnexion(cteNomSocketEcoute) ALORS
szNomCanal = SocketAccepte(cteNomSocketEcoute)
SI szNomCanal ~= "" ALORS
Erreur("socket accepte",ErreurInfo())
SORTIR
SINON
szNomThread = szNomCanal
ThreadExécute(szNomThread,threadNormal,"GestionConnexion",szNomCanal)
ThreadExécute(szNomThread,threadNormal,"GestionConnexion",szNomThread,szNomCanal)
FIN
FIN
FIN
-----------------------------------------------
PROCEDURE GestionConnexion(p_szNomConnexion)
PROCEDURE GestionConnexion(p_szNomThread,p_szNomConnexion)
szMessage est une chaîne
szNomThread est une chaîne = p_szNomConnexion
szIp est une chaîne =
SocketClientInfo(cteNomSocketEcoute,SocketAdresse)
BOUCLE
szMessage = SocketLit(cteNomSocketEcoute,Vrai)
szMessage = UnicodeVersAnsi(SocketLit(p_szNomConnexion,Faux,10))
SELON szMessage
CAS "QUITTER" : SORTIR
CAS "" : Multitache(-1)
AUTRES CAS : Info(UnicodeVersAnsi(szMessage))
AUTRES CAS : Info(szMessage)
FIN
FIN
SocketFerme(cteNomSocketEcoute)
SocketFerme(p_szNomConnexion)
>
--
Cordialement JeAn-PhI |
| |
| |
| | | |
|
| | |
| |
Posted on April, 24 2006 - 11:12 PM |
désole je repost car le message n'apparait pas en entier
- procédure :
PROCEDURE EcouteConnexion()
szNomCanal est une chaîne
szNomThread est une chaîne
BOUCLE
SI SocketAttendConnexion(cteNomSocketEcoute) ALORS
szNomCanal = SocketAccepte(cteNomSocketEcoute)
SI szNomCanal ~= "" ALORS
Erreur("socket accepte",ErreurInfo())
SORTIR
SINON
szNomThread = szNomCanal
ThreadExécute(szNomThread,threadNormal,"GestionConnexion",szNomCanal)
ThreadExécute(szNomThread,threadNormal,"GestionConnexion",szNomThread,szNomCanal)
FIN
FIN
FIN
-----------------------------------------------
PROCEDURE GestionConnexion(p_szNomConnexion)
PROCEDURE GestionConnexion(p_szNomThread,p_szNomConnexion)
szMessage est une chaîne
szNomThread est une chaîne = p_szNomConnexion
szIp est une chaîne = SocketClientInfo(cteNomSocketEcoute,SocketAdresse)
BOUCLE
szMessage = SocketLit(cteNomSocketEcoute,Vrai)
szMessage = UnicodeVersAnsi(SocketLit(p_szNomConnexion,Faux,10))
SELON szMessage
CAS "QUITTER" : SORTIR
CAS "" : Multitache(-1)
AUTRES CAS : Info(UnicodeVersAnsi(szMessage))
AUTRES CAS : Info(szMessage)
FIN
FIN
SocketFerme(cteNomSocketEcoute)
SocketFerme(p_szNomConnexion)
>
--
Cordialement JeAn-PhI |
| |
| |
| | | |
|
| | | | |
| | |
|