Ver Mensaje Individual
  #2  
Antiguo 19-12-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.282
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por jhonalone Ver Mensaje
En las versiones más modernas existe la posibilidad de personalizar el nombre que se muestra por bluetooth y este nombre es lo que pretendo conseguir.
Si lo que estás intentando es obtener el nombre que el dispositivo tiene definido para el acceso a bluetooth, deberás acceder por las clases que hay específicas de Bluetotth.
En concreto, con delphi viene la unit Androidapi.JNI.Bluetooth.pas.


En esta unit está definido el mapeo sobre la clase de Android BlueToothAdapter.
https://developer.android.com/refere...thAdapter.html

Si miras la documentación verás que entre los métodos que trae, hay uno llamado getName.
https://developer.android.com/refere...html#getName()

Así que un código como este te debería devolver el nombre y algunas cosas más...

Código Delphi [-]
uses
  Androidapi.Helpers,
  Androidapi.JNIBridge,
  AndroidApi.Jni.JavaTypes,
  AndroidApi.Jni.App,
  Androidapi.JNI.Bluetooth;
  
...


var
  adapter:JBluetoothAdapter;
begin
  // acceso al servicio
  Adapter := TJBluetoothAdapter.JavaClass.getDefaultAdapter;
  // Obtener datos
  mmLog.Lines.Add('Class: ' + JStringToString(Adapter.getClass.getName));
  mmLog.Lines.Add('Name: ' + JStringToString(Adapter.getName));
  mmLog.Lines.Add('ScanMode: ' + IntToStr(Adapter.getScanMode));
  mmLog.Lines.Add('State: ' + IntToStr(Adapter.getState));
  mmLog.Lines.Add('Adress: ' + JStringToString(Adapter.getAddress));

El resultado es este:


En esa misma clase (ya no lo he probado) también tienes el método setName.

NOTA: Tendrás que activar los permisos para Bluetooth ( y tal vez el bluetooth admin).
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita