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

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

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

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

1 إجابة واحدة

–1 تصويت

أولا :

يجب عليك إقتناء الجهاز الخاص بالتنصت على دقات القلب و بخاصية البلوتوث أو حنى الوايفاي المهم أي جهاز له القابلية في إرسال نبضات القلب في الدقيقة "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.

الرابط هنا.

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

اسئلة متعلقة

+2 تصويتات
2 إجابة
سُئل أغسطس 23، 2018 في تصنيف Delphi بواسطة alhmam (770 نقاط) | 78 مشاهدات
0 تصويتات
1 إجابة
سُئل فبراير 11 في تصنيف vcl بواسطة Saba (120 نقاط) | 34 مشاهدات
+3 تصويتات
2 إجابة
سُئل أغسطس 12، 2018 في تصنيف vcl بواسطة KHALED (7,550 نقاط) | 90 مشاهدات
+5 تصويتات
1 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

408 سؤال
642 إجابة
1,150 تعليق
242 مستخدم