RAD Studio XE8 + PATCH!!

RAD STUDIO XE8 Funcionando (esta probado por mi)

Esto es lo que puedes hacer con Delphi XE8:

• Mejora el rendimiento de forma significativa con la nueva Librería de Programación Paralela y de compilación de código nativo para iOS 64 bit.
• Amplía el alcance de tus aplicaciones existentes de Windows con las apps de tethering móvil usando conectividad Wi-Fi y Bluetooth.
• Consigue que tus aplicaciones tengan en cuenta la localización y la proximidad con soporte para Beacons a nivel de componente.
• Conéctate fácilmente a los servicios en la nube más populares con REST así como proveedores de BaaS par notificaciones push, autenticación, almaceamiento ¡y mucho más!
• Usa el Diseñador MultiDispositivo FireUI para crear interfaces de usuario para múltiples factores de forma de dispositivo y SOs con una fidelidad, capacidades y singularidad nativas.
• Despliega los Enterprise Mobility Services (EMS) para publicar y gestionar custom APls, Enterprise data, servicios y analíticas.

Desarrollo multiplataforma Andrid, IOS, Windows

Link Mediafire\

-----------------------------------------------------------------------------------------------

RAD STUDIO XE8: 

Torrent XE8

PATCH:

AUTO PATCH

Soporte para Bluetooth LE en RAD Studio XE7

Soporte inalámbrico integrado de RAD Studio XE7 (Bluetooth y Wifi) trabaja con miles de dispositivos específicos de los consumidores y de la industria. El enfoque de RAD Studio hace que sea fácil de integrar prácticamente cualquier dispositivo en la experiencia del usuario de aplicaciones, e incluso soportar múltiples proveedores de dispositivos con el mismo código.

En RAD Studio XE7, tenemos un nuevo componente Bluetooth LE para conectar a muchos diferentes inteligentes dispositivos Bluetooth que trabajan con los diferentes perfiles del GATT .

Enviamos varios demos Bluetooth con el producto que usted puede mirar. Por Bluetooth LE, tenemos una demostración del monitor de ritmo cardíaco que muestra la frecuencia cardíaca actual mediante la conexión a un sensor de frecuencia cardíaca. 

Usted puede encontrar la demo en: C: /Users/PublicDocuments/Embarcadero/Studio/15.0/Samples/Object Pascal / Móvil Muestras / Sensores de Dispositivos y Servicios / Bluetooth / HeartRateMonitor

Estoy utilizando el monitor de frecuencia cardiaca Zephyr para esto, pero también he utilizado H7 monitor de ritmo cardíaco Polar.

Extendí la demo ligeramente añadiendo un cuadro de lista para registrar el ritmo cardíaco. También, para la versión de iPhone, personalicé mi opinión iPhone utilizando el nuevo FireUI Diseñador Multi-Dispositivo para mostrar un icono + en lugar del texto 'Guardar' para registrar el ritmo cardíaco ya estoy trabajando con menos espacio en pantalla.

--------------------------------------------------------------------

---------------------------------------------------------------------------------------------------------------------------------------

A continuación se presentan los UUID necesarias que necesitamos para conectar con nuestro sensor de frecuencia cardíaca:

const
  HRDeviceName = 'Cardiosport HRM';
  ServiceUUID = '';
  CharactUUID = '';

  // P. om el sitio web de Bluetooth Inicio> Especificaciones del GATT> Servicios> ServiceViewer
   // Expone el ritmo cardíaco y otros datos de un medidor de frecuencia cardiaca 

  HRSERVICE: TBluetoothUUID = '{0000180D-0000-1000-8000-00805F9B34FB}';

  // Desde el sitio web de Bluetooth bajo Inicio> Especificaciones del GATT> Características> CharacteristicViewer
  HRMEASUREMENT_CHARACTERISTIC: TBluetoothUUID = '{00002A37-0000-1000-8000-00805F9B34FB}';
  BODY_SENSOR_LOCATION_CHARACTERISTIC: TBluetoothUUID = '{00002A38-0000-1000-8000-00805F9B34FB}';

  // Sensor Cuerpo Ubicación Valor característico utiliza para indexar la matriz para mostrar la cadena
  BodySensorLocations: array [0..6] de cadena = ('Otro', 'pecho', 'muñeca', 'dedo', 'mano', 'lóbulo de oído', 'Pie');

  HR_VALUE_FORMAT_MASK = $ 1;
  SENSOR_CONTACT_STATUS_MASK = $ 6;
  ENERGY_EXPANDED_STATUS_MASK = $ 8;
  RR_INTERVAL_MASK = $ 10;

Aquí está el código btnScanClick:

procedimiento TfrmHeartMonitor.DoScan;
comenzar
  ClearData;
  lblDevice.Text: = '';
  lblBodyLocation.Text: = '';
  lblContactStatus.Text: = '';
  BluetoothLE1.DiscoverDevices (2500, [HRSERVICE]);
fin;

Hemos creado también varios eventos adicionales:

TfrmHeartMonitor.BluetoothLE1EndDiscoverDevices procedimiento (Remitente const: TObject;
  const ADeviceList: TBluetoothLEDeviceList);
var
  I: Integer;
comenzar
  // Registro
  Memo1.Lines.Add (ADeviceList.Count.ToString + 'dispositivos descubiertos:');
  porque yo: = 0 a ADeviceList.Count - 1 hacer Memo1.Lines.Add (ADeviceList [I] .DeviceName);

  si BluetoothLE1.DiscoveredDevices.Count> 0 entonces
  comenzar
    FBLEDevice: = BluetoothLE1.DiscoveredDevices.First;
    lblDevice.Text: = HRDeviceName;
    si BluetoothLE1.GetServices (FBLEDevice) .count = 0 entonces
    comenzar
      Memo1.Lines.Add ('No hay servicios encontrado!');
      lblBPM.Font.Size: = 26;
      lblBPM.Text: = 'No hay servicios encontrado!';
    fin
    más
      GetServiceAndCharacteristics;
  fin
  más
    lblDevice.Text: = 'Dispositivo no encontrado';
fin;