Da ist nicht viel zu posten..
hier mal der Auszug aus dem Emba Demo:
Delphi-Quellcode:
procedure TForm5.FindHueButtonClick(Sender: TObject);
var
HueBridgeIndex: Integer;
begin
// find HUE Bridge - if there is one - there may be more
HueBridgeComboBox.Clear;
FindHueRESTRequest.Execute; // hier tritt der Fehler auf
Memo1.Lines.Add(FindHueRESTResponse.Content);
// populate
if FindHueClientDataSet.RecordCount > 0 then begin
for HueBridgeIndex := 0 to FindHueClientDataSet.RecordCount-1 do begin
HueBridgeComboBox.Items.Add(
FindHueClientDataSet.FieldByName('internalipaddress').AsString
);
Memo1.Lines.Add('HueBridge: '+HueBridgeComboBox.Items[HueBridgeIndex])
end;
HueBridgeComboBox.ItemIndex := 0;
GetHueInfoButton.Enabled := true;
GetLightsInfoButton.Enabled := true;
AllLightsButton.Enabled := true;
end
else
Memo1.Lines.Add('Hue Bridge not Found!')
end;