Obtener el nombre del dispositivo Androoid.

[jhonalone]

A ver, Neftalí.

Estoy probando con el código que me dejaste. Pero algo me debe faltar...

Utilizo este programa de prueba:

Código Delphi [-]
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, AndroidApi.JNI.GraphicsContentViewText, AndroidApi.JNI.OS, AndroidApi.Helpers, AndroidApi.JNI.Net,
  AndroidApi.JNI.JavaTypes, AndroidApi.JNIBridge, AndroidApi.JNI.Provider, AndroidApi.JNI.Telephony,
  FMX.PhoneDialer, FMX.PhoneDialer.Android, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, System.Bluetooth,
  System.Bluetooth.Components, AndroidApi.Jni.App,
  Androidapi.JNI.Bluetooth;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Bluetooth1: TBluetooth;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Adapter:JBluetoothAdapter;
implementation

{$R *.fmx}



procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Add('Class: ' + JStringToString(Adapter.getClass.getName));
  Memo1.Lines.Add('Name: ' + JStringToString(Adapter.getName));
  Memo1.Lines.Add('ScanMode: ' + IntToStr(Adapter.getScanMode));
  Memo1.Lines.Add('State: ' + IntToStr(Adapter.getState));
  Memo1.Lines.Add('Adress: ' + JStringToString(Adapter.getAddress));
{Memo1.Lines.Add(JStringToString(TJBuild.JavaClass.MODEL));//Model name
Memo1.Lines.Add(JStringToString(TJBuild_VERSION.JavaClass.RELEASE));//Os Version
//Memo1.Lines.Add(JStringToString(TJBuild.JavaClass.HOST));
// Memo1.Lines.Add(JStringToString(TJBuild.JavaClass.PRODUCT));
// Memo1.Lines.Add(JStringToString(TJBuild.JavaClass.DISPLAY));
// Memo1.Lines.Add(BluetoothLE1.GetCurrentAdapter.AdapterName);
}
end;

end.

Te cuento:
1.- Verás que hay muchas cosas inhabilitadas, porque es el mismo programa que utilizaba para probar el Modelo del dispositivo. También sobran muchas unidades en el uses.

2.- Si inhabilito el componente Bluetooth1, queda la pantalla en negro y se cierra el programa.
3.- Si habilito el componente Bluetoooth1, tengo dos posibilidades:
a) Con la propiedad Enabled := False. Al pulsar el Button1 me da "Access violation..."
b) Con la propiedad Enabled := True. Hace lo mismo que en el caso 2. Cierra el programa.

Mira si tú ves lo que me falta y me puedes ayudar. Por favor.

Gracias y un saludo.