BlueTooth, est-il possible de démarrer le device au runtime ?

Bonjour,

Je suis flemmard aujourd'hui, le boulot n'avance pas, aussi ai-je voulu me plonger un peu sur un sujet de "diversion".

Je voudrais savoir s'il est possible de démarrer ma carte bluetooth d'un clic de bouton de mon application et ce de manière plus facile qu'en utilisant les API Windows.
Naievement je croyais que la propriété Enabled du composant Bluetooh l'aurait fait :roll:

Ah, précision , je parle du bluetooth de mon PC (généralement éteint) et non de mon mobile.

Windows fournit des API pour ça, mais rien de géré à ma connaissance dans le TBluetoothManager et les composants associés.

L'activation des composants ne fait que déclencher le processus d'utilisation de l'API et la recherche automatique d'appareils compatibles à portée ou déclarés dans le système (selon la plateforme).

Bonjour,

Citation:

---

Envoyé par pprem

rien de géré à ma connaissance dans le TBluetoothManager

---

c'est bien ce que je craignais :weird:

Toutes solutions que j'ai pu trouver à base de commandes, shell etc.. semblent nécessiter les droits administrateur.

Par acquit de conscience j'ai même vérifier ce que WMI les pouvaient faire pour moi

Code:

---

Select * from Win32_PnPEntity where pnpclass='BlueTooth'

---

Si le bluetooh est désactivé, une seule ligne dispo

Citation:

---

instance of Win32_PnPEntity
{
Caption = "Realtek Bluetooth 4.2 Adapter";
ClassGuid = "{e0cbf06c-cd8b-4647-bb8a-263b43f0f974}";
CompatibleID = {"USB\\Class_E0&SubClass_01&Prot_01", "USB\\Class_E0&SubClass_01", "USB\\Class_E0"};
ConfigManagerErrorCode = 0;
ConfigManagerUserConfig = FALSE;
CreationClassName = "Win32_PnPEntity";
Description = "Realtek Bluetooth 4.2 Adapter";
DeviceID = "USB\\VID_0BDA&PID_B00A\\00E04C000001";
HardwareID = {"USB\\VID_0BDA&PID_B00A&REV_0110", "USB\\VID_0BDA&PID_B00A"};
Manufacturer = "Realtek Semiconductor Corp.";
Name = "Realtek Bluetooth 4.2 Adapter";
PNPClass = "Bluetooth";
PNPDeviceID = "USB\\VID_0BDA&PID_B00A\\00E04C000001";
Present = TRUE;
Service = "BTHUSB";
Status = "OK";
SystemCreationClassName = "Win32_ComputerSystem";
SystemName = "LAPTOP-781VSPO9";
};

---

mais à ma connaissance WMI ne fait que de la lecture, lecture dans le b....l qu'est la base de registre cela dit. Serait-il alors possible d'activer le bluetooth en tapant dans la base de registre ? C'est l'objectif de ce matin, affaire à suivre.

D'un autre côté, je pense aussi à Ubuntu (pas à OSX je n'ai pas de pommier sous la main) et là adieu WMI, base de registre etc. Bonjour les {$IFDEF} :(
Tout ça pour tenter d'utiliser un mobile comme lecteur de code barre :) ! Je suis :fou: ou trop curieux.

Le pire est que je suis persuadé d'avoir déjà posté sur ce sujet (la partie inventaire avec mon mobile), Alois Alzheimer me guette ?

Autre chose, j'ai toujours en tête la demande de Chekkal or au cours de mes essais (programmes de démo) j'ai vu ceci :
Pièce jointe 580604
Il serait donc possible d'utiliser un service SMS :koi: Malheureusement cette démo fait un remplissage des services à partir de constantes :roll: et non de services "réels" il va falloir que j'étudie chaque exemples de ce répertoire (C:\Users\Public\Documents\Embarcadero\Studio\21.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth)

Citation:

---

Envoyé par SergioMaster

Autre chose, j'ai toujours en tête la demande de Chekkal or au cours de mes essais (programmes de démo) j'ai vu ceci :
Pièce jointe 580604
Il serait donc possible d'utiliser un service SMS :koi: Malheureusement cette démo fait un remplissage des services à partir de constantes :roll: et non de services "réels" il va falloir que j'étudie chaque exemples de ce répertoire (C:\Users\Public\Documents\Embarcadero\Studio\21.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth)

---

dans cet exemple les services correspondent probablement aux services GATT publiés par l'appareil auquel on est connecté en BT LE

Re,
Non, dans l'exemple cela semble être des constantes lues dans le programme et non récupérée en fonction de l'appareil il me semble mais peu importe, cette histoire de service SMS/MMS m'intrigue j'aimerai en savoir plus.

N.B. pour Ubuntu

Code:

---

systemctl {start|stop|restart} bluetooth

---

semblerait la piste (cmde non testée) mais il y a aussi

Code:

---

rfkill {unblock|block-list} bluetooth

---

pour windows, j'ai pu voir un script powershell à étudier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

[CmdletBinding()] Param ( [Parameter(Mandatory=$true)][ValidateSet('Off', 'On')][string]$BluetoothStatus ) If ((Get-Service bthserv).Status -eq 'Stopped') { Start-Service bthserv } Add-Type -AssemblyName System.Runtime.WindowsRuntime $asTaskGeneric = ([System.WindowsRuntimeSystemExtensions].GetMethods() | ? { $_.Name -eq 'AsTask' -and $_.GetParameters().Count -eq 1 -and $_.GetParameters()[0].ParameterType.Name -eq 'IAsyncOperation`1' })[0] Function Await($WinRtTask, $ResultType) {   $asTask = $asTaskGeneric.MakeGenericMethod($ResultType)   $netTask = $asTask.Invoke($null, @($WinRtTask))   $netTask.Wait(-1) | Out-Null   $netTask.Result } [Windows.Devices.Radios.Radio,Windows.System.Devices,ContentType=WindowsRuntime] | Out-Null [Windows.Devices.Radios.RadioAccessStatus,Windows.System.Devices,ContentType=WindowsRuntime] | Out-Null Await ([Windows.Devices.Radios.Radio]::RequestAccessAsync()) ([Windows.Devices.Radios.RadioAccessStatus]) | Out-Null $radios = Await ([Windows.Devices.Radios.Radio]::GetRadiosAsync()) ([System.Collections.Generic.IReadOnlyList[Windows.Devices.Radios.Radio]]) $bluetooth = $radios | ? { $_.Kind -eq 'Bluetooth' } [Windows.Devices.Radios.RadioState,Windows.System.Devices,ContentType=WindowsRuntime] | Out-Null Await ($bluetooth.SetStateAsync($BluetoothStatus)) ([Windows.Devices.Radios.RadioAccessStatus]) | Out-Null

---

mais je me demande si wsl (que j'ai installé/testé , sur lequel j'ai écrit un petit tutoriel resté dans mes cartons) pourrait être une solution possible au sein d'un programme delphi