1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| sAdresseMAC est une chaîne="74:F0:7D:E3:6C:8F" // imp mac
sNom est une chaîne="BLUETOOTH PRINTER" // sokect
SI sAdresseMAC="" ALORS
Info("Pas d'imprimante configurée")
RETOUR
FIN
SI SocketConnecteBluetooth(sNom,"SerialPortServiceClass_UUID",sAdresseMAC) = Faux ALORS
Erreur("Impossible de créer le connexion Bluetooth a l'imprimante", ErreurInfo(errComplet))
RETOUR
SINON
SocketChangeModeTransmission(sNom,SocketMarqueurFinBuffer,RC)
sLachaine est une chaîne = "سلام"
SocketEcrit(sNom,UnicodeVersAnsi(sLachaine) )
SocketFerme(sNom)
FIN |
Partager