Discussion :

[Zorg44]

Bonjour,

Je tente de créer une petite appli sur windows pour faire un tchat via bluetooth.

J'ai donc créer une app android avec windev mobile 20 qui ouvre la connexion bluetooth avec un PC (windows 7 pro 64bits) et qui pour le moment se contente d'envoyer des messages au PC (chaines de caractères). Cette partie fonctionne bien.
J'utilise pour cela les sockets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
SI SocketExiste("pgb") ALORS
    SI SocketEcrit("pgb", "Message envoyé au PC") = Vrai ALORS
        Info("message envoyé")
    SINON
        Info("Echec envoi message")
    FIN
FIN

Je m'attaque maintenant à la partie PC. Et c'est là que je bloque un peu.

J'ai essayé d'ouvrir sur le PC le port com lié au Bluetooth, mais j'ai l'erreur suivante :



erreur détecté sur le port.
J'ai donc essayé d'autres ports com associés au bluetooth, mais toujours la même erreur apparaît.

Voici le code de ma connexion

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
 
nPort est un entier
 
 
// Ouverture du Port série
nPort = sOuvre("COM5", 4096, 4096, sTimeoutDéfaut, Vrai)
SI ErreurDétectée ALORS
    Erreur()
SINON
 
    // Paramétrage d'E/S
    sFixeParamètre(nPort, 9600, 1, 8, 0)
 
    // Insérez votre code ici
 
FIN

Quelqu'un pourrait il me donner quelques infos ? me mettre sur la bonne piste ?

Merci d'avance

[Zorg44]

Pour information, j'arrive à ouvrir les ports COM 7,8,9,10,11,12,13 et 14. Ils sont tous notés "BT Port". J'en ai donc déduit que cela avait un rapport avec le BlueTooth.
Par contre je ne reçois rien dessus lorsque j'envoi une chaine de caractères depuis l'application Android.

Je viens également d'essayer une autre solution en passant par les sockets. voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
SI SocketConnecteBluetooth("pgb","SerialPortServiceClass_UUID",Addresse_Mac_CarteBluetooth,10000) ALORS
	Info("Socket crée")
SINON
	Info("Echec création Socket "+ErreurInfo(errComplet))
FIN

Mais du coup j'obtiens l'erreur suivante :


Je continue mais recherche et espère une aide de la communauté.