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 :

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
Procédure EcouteServeur sur le serveur
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"	
	..