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.
As you can see these light bulbs can be controlled by other devices. You can schedule events using your FireMonkey based mobile app.
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