![Easily Connect To Zephyr HxM Smart Heart Rate Monitor Using RAD Studio | Embarcadero RAD Studio Delphi C++Builder Blogs easily connect to zephyr hxm smart heart rate monitor using rad studio 2](https://i0.wp.com/blogs.embarcadero.com/wp-content/uploads/2021/03/Easily-Connect-To-Zephyr-HxM-Smart-Heart-Rate-Monitor-Using-RAD-Studio-4984731.png?resize=1140%2C675&ssl=1)
ThingConnect IoT device component pack is one of the best areas of RAD Studio. It offers you to connect to dozens of IoT devices with easy-to-use interfaces. For instance, you can connect to the Aeon Labs Light Bulb using Delphi or C++ Builder.
![Screenshot202103172113261101944 | Embarcadero RAD Studio Delphi C++Builder Blogs screenshot 2021 03 17 211326 1101944](https://i0.wp.com/blogs.embarcadero.com/wp-content/uploads/2021/03/Screenshot-2021-03-17-211326-1101944.png?resize=750%2C407&ssl=1)
As you can see these light bulbs can be controlled by other devices. You can schedule events using your FireMonkey based mobile app.
![Screenshot202103172128089704445 | Embarcadero RAD Studio Delphi C++Builder Blogs screenshot 2021 03 17 212808 9704445](https://i0.wp.com/blogs.embarcadero.com/wp-content/uploads/2021/03/Screenshot-2021-03-17-212808-9704445.png?resize=750%2C409&ssl=1)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
procedure TAeotecLEDBulbApp.ReadBtn1Click(Sender: TObject); var Value: String; begin Memo1.Text := ''; if ComboBox1.ListItems[0].IsSelected then begin Value := FVeraAeotecLEDBulb.DeviceName; Memo1.Text := Value; end else if ComboBox1.ListItems[1].IsSelected then begin Value := FVeraAeotecLEDBulb.ManufacturerName; Memo1.Text := Value; end else if ComboBox1.ListItems[2].IsSelected then begin Value := FVeraAeotecLEDBulb.ModelName; Memo1.Text := Value; if Memo1.Text = '' then Memo1.Text := 'Not exist'; end else if ComboBox1.ListItems[3].IsSelected then begin Value := IntToStr(FVeraAeotecLEDBulb.DeviceID); Memo1.Text := Value; end else if ComboBox1.ListItems[4].IsSelected then begin Value := IntToStr(FVeraAeotecLEDBulb.PnPID); Memo1.Text := Value; end; end; |
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition