Test du protocole OBEX
June 20, 2009 — SEINLET Nicolas (Views: 28)Ces quelques lignes de code permettent d’envoyer un fichier vcard sur tous les téléphonnes BlueTooth détectés par le PC.
sSlstperif est une chaîne sTheperif est une chaîne nCmpti est un entier nNumconn est un entier SI BTPile()=btPileMicrosoft ALORS sSlstperif=BTListePériphérique(btListeSimple) POUR TOUTE CHAINE sTheperif DE sSlstperif SEPAREE PAR RC nNumconn=OBEXConnecte(obexBluetooth,ExtraitChaîne(sTheperif,2,TAB)) SI PAS OBEXEnvoieVCard(nNumconn,fRepExe()+[""]+"nse.vcard") ALORS Erreur(ErreurInfo()) OBEXDéconnecte(nNumconn) FIN SINON Erreur("Utilisez la pile bluetooth microsoft") FIN



