Bonjour
J'ai un soucis de connexion en Bluetooth , ca marche , ca marche plus , ca marche...
une fois que cela marche je peux faire autant de synchronisation que je veux.
je ne voie pas ou ca coince.
Matériel Lenovo avec Bluetooth intégré , tablette Samsung Tab active (mais autre même pb)
Le Bluetooth est en appairé et passe bien en connecté lors d'une demande de transfert.
Kaspersky désactivé (on ne sais jamais).
Les programmes fonctionnent correctement en socket wifi , j'ai du louper quelque chose en Bluetooth.
Merci de votre aide
Sur le serveur :
Procédure EcouteServeur sur le serveur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 // Création de la socket en bluetooth SI SocketCréeBluetooth("SOCKET_SERVEUR", "SerialPortServiceClass_UUID" ) // Lance l'écoute pour la connexion des Pocket PC ThreadExécute(THREAD_SERVEUR, threadNormal, EcouteServeur) SINON // Impossible de créer la socket Erreur("Impossible de démarrer le service ", ErreurInfo()) FIN
SocketAttendConnexion(SOCKET_SERVEUR) , je reste coincé en attente de la connexion socket
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 SI SocketAttendConnexion(SOCKET_SERVEUR) ALORS SectionCritiqueDébut("gbRecoit") bConnecte = Vrai SectionCritiqueFin("gbRecoit") //efface les messages precedents TableSupprimeTout(TABLE_MESSAGES) // Accepte la connexion sSock = SocketAccepte(SOCKET_SERVEUR) // Récupère l'adresse du Pocket PC sNom = UnicodeVersAnsi(SocketLit(sSock)) .. la suite sans importance FIN
Maintenant sur la tablette
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 SI sAdresseMac <> "" ALORS // Si la socket existe, on la ferme SI SocketExiste(SOCKET_SERVEUR) ALORS SocketFerme(SOCKET_SERVEUR) // Connecte au serveur SI SocketConnecteBluetooth("SOCKET_SERVEUR", "SerialPortServiceClass_UUID" , sAdresseMac ) ALORS // Envoie le nom du Pocket PC au serveur SocketEcrit(SOCKET_SERVEUR, sNom) // Indique que l'on est connecté SectionCritiqueDébut("gbConnecte") gbConnecté = Vrai BTN_Ok..Etat = Grisé BTN_Annuler..Etat = Grisé BTN_Synchronisation..Etat = Grisé BTN_Configuration..Etat = Grisé BTN_Quitter..Etat = Grisé LIB_Synchronisation..Visible = Vrai SectionCritiqueFin("gbConnecte") Sablier(Faux) // Lance le thread d'écoute EcouteServeur_Timer SINON Sablier(Faux) Erreur("Impossible de se connecter au serveur ",ErreurInfo() ) gbConnecté = Faux FIN SINON Sablier(Faux) Erreur("L'adresse du serveur n'est pas définie" , ErreurInfo()) gbConnecté = Faux FIN
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 PROCEDURE EcouteServeur_Timer() bArret est un booléen sMsg est une chaîne BOUCLE SectionCritiqueDébut("gbConnecte") SI gbConnecté = Faux ALORS bArret = Vrai ExécuteThreadPrincipal(IHM_Menu) FIN SectionCritiqueFin("gbConnecte") // Arrêt obligatoire SI bArret = Vrai ALORS SORTIR // Récupère les messages du serveur sMsg = SocketLit(SOCKET_SERVEUR, Faux , 1000) // Vérifie la nature du message SELON sMsg[[A 8]] CAS "EXIT" // demande de Deconnection Proc_Deconnect() bArret = Vrai CAS "TIME" ..
Partager