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
public
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));
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.