easyDelphi Q&A
+1 تصويت
55 مشاهدات
السلام عليكم

ممكن شرح عن طريقة عمل Heart Beating
سُئل في تصنيف vcl بواسطة (170 نقاط) | 55 مشاهدات
 
صديقي انت جهز المثال، ونحن نساعدك باضافة ال heart beating
اضف هذا و يصبح عندك HeartBeating

procedure TForm23.Timer1(Sender: TObject);
begin
    HeartBeating;
end;

procedure TForm23.HeartBeating;
begin
//
end;
هل فعلا هذه طريقة الheartbeating!!!
فقط تكرار العملية من خلال تايمر
كيف يمكن التحقق ان كان العميل استلم ام لا
هذا هو سؤالي من الاول القطع اتصال العميل الغير نشط
جوابي على قد مثالك
من سؤالك يدل على انك تعمل على مشروع حقيقي و فعليا يوجد كود مسبق، وهاد الكود كبير، وليس كم سطر يمكن انجازه ب 5 دقائق.

1 إجابة واحدة

0 تصويتات

أولا :

يجب عليك إقتناء الجهاز الخاص بالتنصت على دقات القلب و بخاصية البلوتوث أو حنى الوايفاي المهم أي جهاز له القابلية في إرسال نبضات القلب في الدقيقة "BpM" ... الرابط هنا .

The sample shows how to use the TBluetoothLE component in a client application to connect to a Bluetooth LE sensor that implements the Heart Rate standard profile.

To have this sample working and showing values, you need a heart rate monitor sensor with Bluetooh LE or Smart Bluetooth technology.

How to Use the Sample

  1. Navigate to the location given above and open HeartRateMonitor.dproj.
  2. Select as a platform a device with a bluetooth sensor.

    Note: See Using Bluetooth for more information about client platform support for Bluetooh LE.

  3. Press F9 or choose Run > Run.
  4. Click Scan to discover server devices publishing the Heart Rate service.
  5. Click Stop monitoring to stop receiving information from the server.

Implementation

The Scan button starts searching for Bluetooth LE devices implementing the Heart Rate service. It uses the DiscoverDevices method with a timeout period and an array of TBluetoothUUID's, in this case, BluetoothLE1.DiscoverDevices(2500, [HRSERVICE])  where HRSERVICE is the standard service for the heart rate measurement: HRSERVICE: TBluetoothUUID = '{0000180D-0000-1000-8000-00805F9B34FB}'.

After the timeout period the OnEndDiscoverDevices event is triggered. When there is no available BluetoothLE sensor the 0 devices discovered: appears on the TMemo, otherwise the number of devices is shown and the application starts searching for the services on the device.

To discover the services on a device it uses the GetServices method. If no service is found, the message 'No services found!' appears on the TMemo, otherwise the application starts getting some specific characteristics for the service using the GetCharacteristic method:

  • HRMEASUREMENT_CHARACTERISTIC: HRMEASUREMENT_CHARACTERISTIC: TBluetoothUUID = '{00002A37-0000-1000-8000-00805F9B34FB}'
  • BODY_SENSOR_LOCATION_CHARACTERISTIC:BODY_SENSOR_LOCATION_CHARACTERISTIC: TBluetoothUUID = '{00002A38-0000-1000-8000-00805F9B34FB}'

After getting the service and the characteristic, the monitoring starts and the values are shown. When the application successfully gets a value for the characteristic, it calls theSubscribeToCharacteristic method to start receiving the values periodically. Click Stop monitoring to call the UnSubscribeToCharacteristic method to stop receiving values from the device.

The OnCharacteristicRead event is triggered after reading the value of the characteristic.

The server device sends a package with raw data to the client. To extract the information in order to display the bmp's (beats per minute) the sample follows the specification on the GATT profile, extracting the flags from the first byte and then the value. For more information, see Heart Rate Measurement Data Package Structure.

الرابط هنا.

تم الرد عليه بواسطة (14,010 نقاط)
عُدل بواسطة
شكرا لك لكن ليس هذا المطلوب
سؤالي بالضبط كيف بمكاني فصل اتصال العميل غير نشط
في بعض الاحيان عندما يقطع الانترنت عن العميل وهو متصل بالاندي سوكت يبقى الاتصال موجود
كيف بمكاني التحقق منه اذا كان نشط او لا واذا كان غير نشط الغاء اتصاله وشكرا
قمت بكتابة هذا السؤال من قبل وقام احد الاخوة بالرد بعمل Heart Beating لكن لم افهم ماذا يقصد

اسئلة متعلقة

+2 تصويتات
2 إجابة
سُئل أغسطس 23 في تصنيف Delphi بواسطة alhmam (710 نقاط) | 64 مشاهدات
+3 تصويتات
2 إجابة
سُئل أغسطس 12 في تصنيف vcl بواسطة KHALED (6,350 نقاط) | 86 مشاهدات
+4 تصويتات
1 إجابة
+1 تصويت
1 إجابة
سُئل أغسطس 20 في تصنيف vcl بواسطة Yamada Fakir (1,330 نقاط) | 77 مشاهدات
+3 تصويتات
2 إجابة
سُئل أغسطس 10 في تصنيف SQL Server بواسطة KHALED (6,350 نقاط) | 82 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

267 سؤال
476 إجابة
833 تعليق
163 مستخدم